Problema decimales en 64bits
 

Bueno, si aun no lo han sufrido estén atentos.
Transmito nuestra reciente experiencia.

Nosotros utilizamos XE-10.2 Tokyo v.25.0.263x pero aplica en cualquier XE compilado en 64 bits :(

Observen este ejemplo:

Código Delphi [-]
var
  F: Single;
begin
  F := 0.1;
  if F = 0.1 then
    ShowMessage('equal')
  else
    ShowMessage('not equal');
end;

La pregunta del millón es: ¿cuál será la respuesta de salida?

Respuesta: "not equal" :eek:

Aquí un muy buen artículo, totalmente recomendado, con la explicación del problema: http://rvelthuis.de/articles/articles-floats.html


Por ejemplo, a nosotros nos acaba de pasar con, nada menos, que la emisión de comprobantes de ventas y el cálculo de percepciones de ingresos brutos.
Algo sencillo:

Código Delphi [-]
function Parte_Entera(f: single): integer;
begin
  Result:= int( f ); 
end

Si el valor de entrada es por ejemplo "2946" sin ningún decimal, la función anterior devolverá "2945" y, si se trata de dinero es un Euro menos y si se trata de enviar un rover a Marte con suerte lo aterrizamos en Urano :)

Aquí, http://docwiki.embarcadero.com/RADSt...int_Arithmetic la gente de Embarcadero te ilustra como ellos se "lavan las manos" y en síntesis te dicen que el problema puede ser tu diseño, por pensar que una variable Single o Double de valor "0,25" en realidad por ejemplo puede llegar a ser "0.2499999999999999999999" y que obviamente TODO el mundo lo sabe menos vos :mad:

qP:-)...empiezo a extrañar mucho al querido Clipper 5.01


Ahora bien, a modo de resumen, utilizando XE compilado en 64 bits, el tipo Double pasa a ser interpretada como Extended y no solo eso, todo el manejo de variables internamente XE lo hace convertido a Extended.
Por consiguiente, como lo recomendable es no ir cambiando entre tipos para que nos se "pierdan decimales" entre conversiones, lo recomendado es manejar todo en Extended, aun cuando necesites operar solo con 2 decimales :confused:

Sin embrago, en operaciones tradicionales de suma, resta y multiplicación, los resultados parecen mantenerse bien aun cuando sea entre tipos diferentes.
Las divisiones, exponenciales y otros cómputos como el uso de RoundTo() que puedan generar varios decimales ya presentan algún problema.

En el caso de REDONDEO, nuestra solución fue utilizar una función propia, basada en una antigua de Delphi 7 y "forzando" a utiliza el redondeo hacia arriba:

Código Delphi [-]
Function RoundD(x: Extended; d: Integer): Extended;
var
 n, f: Extended;
 i: integer;
 OldRM: TRoundingMode;
begin
  n := Power(10, d);
  x := x * n;
{--“Bankers rounding”--->Result := ( (Int(x) + Int(Frac(x)*2) ) / n);}

  OldRM := GetRoundMode;
  try
    SetRoundMode(rmUp);

    i := Trunc(X);
    f := ((x - i) + 0.00000001) ;
    if f>=1
     then Result := (x / n )   {cuando es un entero}
     else Result := ( (Int(x) + Int((f*2)) ) / n );

  finally
    SetRoundMode(OldRM);
  end;
end;

Suerte amigos!:D

Es que es así, realmente no tiene nada que ver con delphi, es un tema que hemos tratado en diversas ocasiones.

Hola.
Así es, aquí hay una: redondear decimas de un float como excel.

Saludos :)

Ese fue un buen hilo sobre el tema :)

Por supuesto que es un problema del programador, y no de Embarcadero. No se pueden comparar numeros de coma flotante por igualdad, y el que te diga lo contrario, está mintiendo o no tiene idea del tema. Los numeros flotantes se pueden comparar "aproximadamente". Esto es intrinseco a como se representan estos numeros, basicamente, hay números que no se pueden representar exactamente, entonces por eso siempre se "redondea" o se "aproximan".

Si necesitas precision, y usas numeros de aritmetica flotante, vas mal. Deberias usar un tipo de datos de los que se conoce como "fixed". En Delphi, ese tipo de datos se llama Currency. Desde todos los lenguajes de programacion, hasta las bases de datos, contemplan este tipo de datos (puede ser llamado currency, money, fixedfloat, etc). Basicamente funciona como un entero de 64bits (con signo), pero del cual se interpretan los ultimos 4 digitos del numero como los decimales; en la practica, no creo que necesites mas de 4 decimales para manejar dinero. En Delphi creo que existe otra alternativa, el Binary Coded Decimal (BCD), pero nunca lo he usado y no puedo opinar

Te recomiendo que leas esto http://floating-point-gui.de/