Tema: Problemas con funcion RoundTo
Ver Mensaje Individual
  #2  
Antiguo 12-10-2005
Avatar de Sotrono
Sotrono Sotrono is offline
Miembro
  
Registrado: abr 2004
Ubicación: Buenos Aires - Argentina
Posts: 396
Reputación: 21
Sotrono Va por buen camino
En la ayuda de Delphi 5 no figura la funcion RoundTo, asi que supongo que no la soporta.
Esta funcion de Trucomania seguramente te sirva:

Código Delphi [-]
function Redondear(Valor: Real; Redondeo: Integer):Real;
begin 
  Redondear := Round(Valor * Power(10, Redondeo)) / Power(10,Redondeo);
end;

Bytes...
Última edición por Sotrono fecha: 12-10-2005 a las 02:14:35.
Responder Con Cita