Ver Mensaje Individual
  #6  
Antiguo 24-11-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.141
Reputación: 36
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Pues a lo mejor la función "RoundTo()" de la unidad "Math" te apaña:

Código Delphi [-]
var
  dec: Double;
begin
  dec := 91.2345;
  dec := RoundTo(dec, -2);

  // Muestra 1,23
  ShowMessage( FloatToStr(dec) );
end;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita