Problema con datos decimales

[mgd]

Hola como están?
estoy intentando cargar una compra y antes de cargarla controlo todos los datos de la grilla donde voy agregando cada producto que tiene esta compra. Controlo el importe y los cálculos de descuento con el monto total etc etc etc
el tema es que declare variables double y también currency es decir probé con los dos tipos. Supongamos estos dos valores


total = cdbl(grilla.textmatrix(fila,2))
importe = cdbl(grilla.textmatrix(fila, 4))

los dos valores son 1256,64
pero al hacer esta compararon me da verdadero es decir que si son distintos, repito si hago esto

msgbox (importe)
msgbox (total)

ambos valores son 1256,64


esta es la comparación

if total <> importe then

end if

entonces hice esto, para que me de 0 ya que los valores son iguales


msgbox (total - importe) pero el resultado es -12154545E
o algo así

Como puedo solucionarlo?
gracias

[erbuson]

Yo, en tu lugar probaria lo siguiente:

msgbox "/" & grilla.textmatrix(fila,2) & "/" & grilla.textmatrix(fila, 4) & "/"

para comprobar que los valores son exactamente iguales, porque , si en lugar de tomar los datos de la grilla, indicas

total = CDbl("1256,64")
importe = CDbl("1256,64")

parece que funciona, por lo que deberías confirmar que los datos son iguales

[zxs23]

Cuando hagas calculos debes utilizar la funcion val
if val(total) <> importe then

end if

msgbox val(total) - val(importe)

Tambien puedes utilizar round para redondear o format para darle formato a los decimales y me parece que tambien redondea.