tipo texto a numerico con decimales

[Jennifer_munn]

Hola de nuevo:
Ultimamente estoy aki todo el día...
Alguien sabe cómo puedo hacer para pasar un texto a número pero con decimales que luego tengo q sumar??
utilizo la función val pero si el texto es 10.20 + 11.20 = 21.40 me devuelve solo 21...

[Bacarra]

El problema viene dado por la configuracion regional del pc,
dependiendo de si el separdor de miles es una coma o un punto:




'configuracion con coma
suma = Val(Replace(Text1.Text, ",", ".")) + Val(Replace(Text2.Text, ",", "."))



'configuracion con punto
suma = Val(Replace(Text1.Text, ".", ",")) + Val(Replace(Text2.Text, ".", ","))

He utilizado 2 cajas de texto (text1 y text2) como ejmplo, puedes poner en su lugar vaiables o valores entre comillas: Val(Replace("10,25", ".", ","))


Saludos.

[peloteitor]

Seguramente estás conviertiendo el texto a entero. Recuerda que los números enteros no tienen decimales, por eso te sale 21. Tienes que convertirlo a un tipo que si tenga decimales, como long.

Saludos.

[Jennifer_munn]

Gracias chicos, yo encontre tb otra solución lo que hice fue un Cdbl(val(importe.text))

[[EX3]]

Iniciado por Jennifer_munn

Gracias chicos, yo encontre tb otra solución lo que hice fue un Cdbl(val(importe.text))

Te sobra la conversion de la funcion CDbl() ya que la funcion Val() devuelve un Double.

Salu2...

[Jennifer_munn]

Pues no sé si me sobra o no pero poniendo val me quitaba los decimales y poniendo solo cdbl me daba un error y con los dos es como me funciona...