Cómo truncar decimales

[dec]

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;