operaciones con números float.

[marcoszorrilla]

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.