Ver Mensaje Individual
  #8  
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 acaso no exista esa función en tu versión de C++ Builder. Esta es la implementación de la función "RoundTo()":

Código Delphi [-]
uses
  Math;

type
  // Acaso no dispongas de esto
  TRoundToRange = -37..37;

function RoundTo(const AValue: Double;
 const ADigit: TRoundToRange): Double;
var
  LFactor: Double;
begin
  LFactor := Math.IntPower(10, ADigit);
  Result := Round(AValue / LFactor) * LFactor;
end;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita