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

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;