Error al Multiplicar (Función de Redondeo)

[Neeruu]

Hola a todos, tengo la siguiente función para redondear:

Código Delphi [-]
Function Redondear (Numero : Double; PrecisionDec : byte) : double;
  function Potencia(Base : Double; Exponente : byte) : Double;
  begin
    Result := Exp(Exponente * ln(Base));
  end;
var Nro:Single;
iRound:Integer;
begin
  Nro := Numero * Potencia(10, PrecisionDec);

  if (Frac(Nro))>=0.5 then
    iRound := 1
  else
  if (Frac(Nro))<=-0.5 then
    iRound := -1
  else iRound := 0;

  Result := (Trunc(Nro)+iRound) / Potencia(10, PrecisionDec);
end;

Pero cuando redondeo este valor :247999.57 a 2 decimales el valor de la variable Nro es de 24799958, cuando debería ser 24799957...

O sea el error esta en esta linea:

Código Delphi [-]
  Nro := Numero * Potencia(10, PrecisionDec);

Alguien sabe porque se puede dar esto?

Saludos...

[Casimiro Notevi]

Si quieres redondear, por ejemplo, a 2 decimales:

Código Delphi [-]
resultado := redondeo(importe,2);

Código Delphi [-]
uses Math;
...
...
function Redondeo (valor: Double; decimales: integer = 0): Double;
var
  factor: Double;
begin
  factor := IntPower(10,decimales);
  //
  if valor > 0 then
    Result := (trunc((valor*factor)+0.5)) / factor
  else
    Result := (trunc((valor*factor)-0.5)) / factor;
end;

[ecfisa]

Empezado por Neeruu

...
Pero cuando redondeo este valor :247999.57 a 2 decimales el valor de la variable Nro es de 24799958, cuando debería ser 24799957...
...
Alguien sabe porque se puede dar esto?

Hola.

Código Delphi [-]
...
var
  Nro: Double;
  ...

Saludos

[Neftali [Germán.Estévez]]

¿Puedes hacer la misma prueba utilizando tipos Currency?

[[Delphius]]

Clase número 1 en cualquier lenguaje: aprender los tipos de datos.

¿Desde cuando un Single tiene precisión para 8 decimales?