Al sumar doubles me pierde los decimales en Visual Basic 6
Bienvenidos a VerTutoriales.com, en esta ocasión vamos a ver un posible error que os puede dar al sumar un número de tipo doble o decimal en visual basic y que tiene fácil solución.
En mi caso, tenía un array con valores doubles y una función que devolvía doubles, al hacer el sumatorio los decimales se perdían, lo cual no tenía mucha lógica ya que estoy sumando del mismo tipo y asignando a una variable del mismo tipo.
La solución después de usar el debbuger más de 10 veces pasando por el mismo sitio, obteniendo el mismo resultado, (un número que pierde la coma) opté por declarar una tercera variable que recogiera el valor de la suma y asignandolo en un paso más. De esta manera y para que lo veáis más claro:
dim vDoble as Double
vDouble = arraydouble(0,0) + fDevuelveDoble(10, 20)
arraydouble(0,0) = vDouble
Anteriormente estábamos asignando de forma directa:
arraydouble(0,0) = arraydouble(0,0) + fDevuelveDoble(10, 20)
Y nos daba error perdiendo el decimal, así que tuvimos que dar un paso más y listo.
Espero que esta pequeña solución sea un gran paso para continuar y no perder los papeles a la hora de seguir con la aplicación.
Un saludo!
