Esta sencilla función redondea cualquier número a la precisión que se desé, y devuelve el resultado vara ser asignado a valores monetarios.
Aunque esta función está asociada internamente a cantidad de rutinas que manejan números, es bueno tenerla aislada por si llega a ser necesaria.
Código Delphi
[-]
function Redondea(Numero : Double;PrecisionDec : byte) : Currency;
function Potencia(Base : Double;Exponente : byte) : Double;
begin
Result := Exp(Exponente * ln(Base));
end;
begin
result := Round(Numero*Potencia(10,PrecisionDec))/Potencia(10, PrecisionDec);
end;