comparar numeros float

[[oscarac]]

buenas tardes

estoy haciendo un sistema contable y me esta pasando algo muy curioso que me rompe al cabeza, estuve haciendo uns pruebas en la digitacion del voucher y tengo los siguientes valores

pero como el sistema es bimonetario debo transformar en dolares esos importes a un tipo de cambio, para el ejemplo 2.78

DEBE 100 ----- 35.97'
DEBE 23 --------- 9.27
HABER 123 -------- 44.24

entonces tengo que el
total debe en moneda nacional es 123
total haber en moneda nacional es 123

total debe en moneda extranjera = 44.24
total haber e moneda extranjera 44.24


pero cuando hago comparaciones totaldebe = total haber... lo que esta en moneda nacional si es igual, pero en la comparacion de la moneda extranjera me dice que no son iguales lo montos


las sumas las saco de esta consulta

Código Delphi [-]
  Select SUM(Case when T.DH in ('D','I','1','+') then n_IMP else 0 End) AS DEBEMN,  
 SUM(Case when T.DH in ('H','s','2','-') then n_IMP else 0 End) AS HABERMN,  
 SUM(Case when T.DH in ('D','I','1','+') then u_IMP else 0 End) AS DEBEME,  
 SUM(Case when T.DH in ('H','s','2','-') then u_IMP else 0 End) AS HABERME 
 from tmpconta T  with (nolock) where session = '001.OSC.O'

[Delphi01]

Empezado por oscarac

buenas tardes

estoy haciendo un sistema contable y me esta pasando algo muy curioso que me rompe al cabeza, estuve haciendo uns pruebas en la digitacion del voucher y tengo los siguientes valores

pero como el sistema es bimonetario debo transformar en dolares esos importes a un tipo de cambio, para el ejemplo 2.78

DEBE 100 ----- 35.97'
DEBE 23 --------- 9.27
HABER 123 -------- 44.24

entonces tengo que el
total debe en moneda nacional es 123
total haber en moneda nacional es 123

total debe en moneda extranjera = 44.24
total haber e moneda extranjera 44.24


pero cuando hago comparaciones totaldebe = total haber... lo que esta en moneda nacional si es igual, pero en la comparacion de la moneda extranjera me dice que no son iguales lo montos


las sumas las saco de esta consulta

Código Delphi [-]
  Select SUM(Case when T.DH in ('D','I','1','+') then n_IMP else 0 End) AS DEBEMN,  
 SUM(Case when T.DH in ('H','s','2','-') then n_IMP else 0 End) AS HABERMN,  
 SUM(Case when T.DH in ('D','I','1','+') then u_IMP else 0 End) AS DEBEME,  
 SUM(Case when T.DH in ('H','s','2','-') then u_IMP else 0 End) AS HABERME 
 from tmpconta T  with (nolock) where session = '001.OSC.O'

Esto puede deberse a algunos errores en tus cálculos o a la forma en que estás realizando la comparación.
Primero, verifica que hayas aplicado el tipo de cambio correcto (2.78 en este caso) para convertir los importes en moneda nacional a moneda extranjera. Asegúrate de aplicar el tipo de cambio de manera consistente en todos los cálculos.
Luego, al realizar la comparación entre los totales en moneda extranjera, ten en cuenta posibles redondeos o errores de precisión en los cálculos. Pueden surgir discrepancias mínimas debido a esto. Para realizar la comparación, considera utilizar una tolerancia o margen de error aceptable.

[delphi.com.ar]

Delphi tiene un tipo de dato específico, para no tener que lidiar con esos inconvenientes, que es "Currency". Básicamente es un decimal de 64 bits, con punto fijo y cuatro decimales. Los float, como su nombre lo indica, son de punto flotante, y lo que te sucedió es esperable. Trabajar con datos de punto flotante requiere entender como funcionan, tal como dice el siguiente artículo que te recomiendo leer: https://docwiki.embarcadero.com/RADS...int_Arithmetic

Saludos.

[[oscarac]]

lo solucioné con RoundTo

Código Delphi [-]
 _TotalDebeMN := RoundTo(qrySumas.FieldByName('debemn').AsFloat, -2);
  _TotalHaberMN := RoundTo(qrySumas.FieldByName('habermn').AsFloat, -2);
  _TotalDebeME := RoundTo(qrySumas.FieldByName('debeme').AsFloat, -2);
  _TotalHaberME := RoundTo(qrySumas.FieldByName('haberme').AsFloat, -2);

gracias por su atención

[Delphi01]

Perfecto