Como redondear a partir del numero 5

[olbeup]

Empezado por maxzama

Hola.

Programa a utilizar:

- Delphi xe2

Pregunta y problema:

- E probado varios códigos de redondeo, y me e dado cuenta de que No redondea a partir del numero 5, sino del numero 6.

Hay algún código que me redondee a partir del numero 5. Ejemplo:

35,145 = 35,15

___________________________________________

Código a utilizar para redondear:

- RoundTo(I,-2), -Str (I:2:2,Texto)


Espero sus respuesta por favor y gracias...

Hola maxzama,

Prueba realizada con Delphi 7

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  I: Double;
begin
  I := 35.145;
  Label1.Caption := FormatFloat('0.00', I);
  I := RoundTo(I, -2);
  Label2.Caption := FormatFloat('0.00', I);
end;

Resultado = 35.15, con el RoundTo es mas que suficiente.

Un saludo.