Código Delphi
[-]uses Math;
.
.
.
function RoundEuros(Const X: Double): Double;
begin
Result := roundTo(x, -2);
end;
El problema es que esta función no está dispnible en Delphi 5 y versiones inferiores.
Si existe en D7 y no sé en D6, yo debo reconocer que la cree para una versión de Access en que se les olvidó poner la opción redondeo y luego la adapté a Delphi 3 y hasta D5 la he venido utilizando sin ningún problema.
Un Saludo.