Visual Basic - Suma de numeros

Life is soft - evento anual de software empresarial
   
Vista:

Suma de numeros

Publicado por Hector (1 intervención) el 02/01/2009 16:37:28
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Suma de numeros

Publicado por P3L30N2009 (701 intervenciones) el 02/01/2009 19:03:45
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!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Suma de numeros

Publicado por Hector (27 intervenciones) el 03/01/2009 00:35:49
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?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Suma de numeros

Publicado por P3L30N2009 (701 intervenciones) el 03/01/2009 10:33:54
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar