[jachguate]

Empezado por marcoszorrilla

Para eso yo me hice una función:

No seria mas simple y con el mismo resultado:

Código Delphi [-]
uses Math;
.
.
.
 function RoundEuros(Const X: Double): Double;
 begin
    Result := roundTo(x, -2);
 end;

Hasta luego.