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

[anniel]

Lo que puedes hacer es verificar tus cálculos para asegurarte de que estén correctos.

Puedes sumar manualmente los valores transformados a moneda extranjera para ver si obtienes el mismo resultado que al hacerlo en tu sistema contable. De esta manera podrás identificar si hay algún error en el cálculo de la moneda extranjera.

También puedes revisar paso a paso cómo se está realizando la conversión de moneda extranjera en tu sistema para asegurarte de que se esté realizando de forma correcta.
https://hidroterm-bombasyplantasvene....ve/index.html

[mamcx]

Primero, `float` es un terrible tipo de datos para cualquier manejo financiero. Lo correcto es usar `Decimal` y/o un tipo `Currency` hecho a la medida sobre un `Int`.

Y luego usar una lógica centralizada con las conversiones, redondeos, formateos, etc explicita que siempre debes usar.

Pero TIENES que hacerlo a travez de toda la cadena, desde la BD hasta la interface.

[navbuoy]

si pero si lo haces sobre un "int" como controlas los decimales en el caso de centimos de euro o centavos en el caso del dolar?

[Casimiro Notevi]

Empezado por navbuoy

si pero si lo haces sobre un "int" como controlas los decimales en el caso de centimos de euro o centavos en el caso del dolar?

Por ejemplo, si decides que vas a guardar todos los valores con 2 decimales, entonces en lugar de guardar 2,35 guardas 235, y ya sabes que todos los valores los tienes que dividir entre 100.
Es un simple ejemplo.

[navbuoy]

pues ni se me habia ocurrido pensar en eso Casimiro, siempre fui bastante mediocre en matematicas, entre que mi profe era bastante malo para las explicaciones y luego que tampoco me entraron nunca muy bien las "mates" puesss.... se ponia todo enfurecido el tio porque nadie entendia sus explicaciones "porque si tenemos 1 pepino y 2 platanos..blablabla..." gritando como un enloquecido.