Diferencia entre 2 números iguales. Por Que?

[José Camilo]

Buenos días.
Me sucede que el resultado de esta resta es IGUAL al valor de la varible y sin embargo sale por el ELSE.
Por que puede suceder esto? como lo evito?

if (nIngEfe-nEgrEfe) = nTotArq
If MsgYesNo('Confirma Cierre de Caja '+str(nQueCaja,5)+' ?','Caja')
CajTFor->Cierre := qfecha
....
endif
else
MsgAlert(' Arqueo: '+Transform(nTotArq,'99,999,999.99')+CRLF+ ;
'Saldo en Caja: '+Transform((nIngEfe-nEgrEfe),'99,999,999.99') +CRLF+CRLF+' NO SE PUEDE CERRAR CAJA!!!!'+CRLF+CRLF+'No
Coincide el Saldo en efectivo con el arqueo !!!','Atención!!!')
endif


Gracias

[Manuel Aranda]

¿Has probado a usar esto?

Code: Select all  Expand view

 if (nIngEfe-nEgrEfe) == nTotArq

 

[carlos vargas]

Para comparar números usa la función

Code: Select all  Expand view

round(num1,2)==round(num2,2)
 

[José Camilo]

Muchas gracias Manuel y Carlos.

[albeiroval]

Para comparar números usa la función

Code: Select all  Expand view

round(num1,2)==round(num2,2)
 

Carlos yo tambien utilizo tu codigo para comparar dos valores numericos, lo que no entiendo es porque no se puede hacer de manera simple :

Code: Select all  Expand view

num1 := 15.25
num2 := 15.25

if num1 == num2   // if round(num1,2)==round(num2,2)
   ? "Iguales"
else
  ? "no iguales"  <------- Siempre retorna esto
endif
 

[carlos vargas]

Creo es por que en los números los decimales podrían ser

15.25000001 == 15.2500012 //falso

[Antonio Linares]

Asi funciona bien:

Code: Select all  Expand view

  if ( 15.25000001 - 15.2500012 ) != 0
      ? "si"
   endif

[FranciscoA]

Intenta de esta manera:
if Str( nIngEfe-nEgrEfe, 12,2) == Str( nTotArq, 12,2)