Visual Basic - Suma de numeros

Saludos.

Bueno tengo anterior mente me avian ayudado con una duda que tenia en los decimales pero me ayudaron y me funciono bien

pero note algo.. pongo el codigo y le esplico

precio4 = Format(Val(Text14) * Val(Text27), "Standard")

guarda lo multi en 14 y 27 en precio4 hay funciona bien ejemplo


precio4 = Format(Val(Text14) * Val(Text27), "Standard")
2,695.50 = 29.95 * 90

todo funciona biene asta hay.. en el programa tengo una funcion que

suma el precio4 osea 2,695.50 con otro valor el lo suma bien asta el 999.99 luego de eso se convierte en 1.0 en ves de 1,000,00 en este ejmplo como precio4 sobre paso el mil osea es 2,695.60 en el programa apareseria como 2.6

pongo el codigo completo

Private Sub Text14_Change()
precio4 = Format(Val(Text14) * Val(Text27), "Standard") 'aqui es el precio4 que si pasa de mil dana la suma de abajo

precio9 = Format(Val(precio4) + Val(Text50), "Standard") 'aqui es donde sale el error luego de pasar el mil y guarda dicho error en precio9
End Sub

Muchas gracia por la ayuda que me puedan brindar
Perdonen los errores ortografico.. tengo un poco de dilexia

Hola Hector

La dislexia (que no dilexia) aplicada a la escritura se denomina disgrafía.

Bueno, parece ser que el poblema está en la configuración regional de la máquina, revisa los formatos numéricos y los símbolos que tienes como separador decimal y separador de miles.

Saludos y Feliz 2009!!

Gracia nuevamente..

intente pero nada

para aclarar mi mente realise una calculadora simple

Text3 = Format(Val(Text1) * Val(Text2), "Standard")

si ago esto i sumo 2,000.95 + 2,000.95 meda un total de 4.00

ahrao si lo sumo sin comas ni pinto

200095+200095= 40,038,009,025.00

mi prposito es sumar

2,000.95 + 2,000.95 y que de 4,001.90

que podria ser esto?

Para que te dé un resultado correcto, no escribas la coma pero sí el punto.

2000.95 + 2000.95 Resultado: 4.001,90 (si la configuración numérica la tienes en español).

La función VAL no reconoce la coma y por lo tanto, trunca el número.

Saludos