Sumas y restas incorrectas en varios textbox con formato

[robgomezs]

saludos a todos, por favor solicitando su apoyo con esta duda que no puedo desatar, tengo varios textbox en un Form que deben sumar y restar en otro textbox el problema es que el resultado no es el correcto, me parece que es por los formatos de los textbox, sin embargo necesito que conserven dichos formatos y a la vez arrojen el resultado correcto de la operación, Adjunto archivo, muy agradecido por su apoyo...

Libro1.rar

[Antoni]

Aquí te dejo la solución. Te aconsejo convertir siempre a número el contenido de los textbox antes de hacer operaciones aritméticas con ellos.

Private Sub FORMULA()


Dim v1 As Currency, v2 As Currency, v3 As Currency

Dim v4 As Currency, v5 As Currency


If IsNumeric(TextBox1) = True Then v1 = CCur(TextBox1)

If IsNumeric(TextBox2) = True Then v2 = CCur(TextBox2)

If IsNumeric(TextBox3) = True Then v3 = CCur(TextBox3)

If IsNumeric(TextBox4) = True Then v4 = CCur(TextBox4)

If IsNumeric(TextBox5) = True Then v5 = CCur(TextBox5)


TextBox6.Value = Format(v1 - v2 - v3 - v4 - v5, "#,##0.00")


TextBox1 = Format(TextBox1.Text, "#,##0.00")

TextBox2 = Format(TextBox2.Text, "#,##0.00")

TextBox3 = Format(TextBox3.Text, "#,##0.00")

TextBox4 = Format(TextBox4.Text, "#,##0.00")

TextBox5 = Format(TextBox5.Text, "#,##0.00")


End Sub

[/CODE]

[robgomezs]

Muchísimas gracias Macro Antonio la verdad efectivo como siempre, ahora me doy cuenta, hay que usar variables...

Saludos....

Tema Cerrado