Problemas con Decimales

[jhonny]

Nota: El Delphi 5 no trae la funcion RoundTo pero es posible hacer un simple copiar y pegar de la misma desde un delphi de una version mas adelantada y funciona sin necesidad de hacer ninguna clase de "Truquito" ni nada que se le paresca (Yo lo he probado ya).

[gmontes]

yo tengo una rutina para redondear las cantidades float a dos decimales porque tengo el mismo problema. antes de guardar datos la aplico y solucionado el problema


no recuerdo el nombre del autor, pero sigo agradeciendole esta rutina

fCostoult:=RoundN((grdMov.Floats[7,i]/grdMov.Floats[4,i]),2)

d es el numero de decimales que vas a querer

function TFCapfac.RoundN(x: Extended; d: Integer): Extended;
// RoundN(123.456, 0) = 123.00
// RoundN(123.456, 2) = 123.46
// RoundN(123456, -3) = 123000
const
t: array [0..12] of int64 = (1, 10, 100, 1000, 10000, 100000,
1000000, 10000000, 100000000, 1000000000, 10000000000,
100000000000, 1000000000000);
begin
if Abs(d) > 12 then
raise ERangeError.Create('RoundN: Value must be in -12..12');
if d = 0 then
Result := Int(x) + Int(Frac(x) * 2)
else if d > 0 then begin
x := x * t[d];
Result := (Int(x) + Int(Frac(x) * 2)) / t[d];
end else begin // d < 0
x := x / t[-d];
Result := (Int(x) + Int(Frac(x) * 2)) * t[-d];
end;
end;