como truncar flotantes?

[Er_Manué]

Si lo que quieres es redondear con x dígitos decimales de precisión puedes usar la función RoundTo(numero,precision) debes incluir la librería Math en el uses.

miVar := 1.3256;
// Redondeamos con 3 dígitos de precisión
miVar := RoundTo(miVar, -3);

// Ahora tendríamos en miVar el valor 1.326

salu2

[Dantael]

Hola Muchas gracias por tu ayuda estoy utilizando delphi 5 y puse en el uses Math, luego puse la función RoundTo como me lo indicaste pero me manda este error undeclared idintifier 'RoundTo' ya busque la función en la ayuda de delphi pero no aparece, Gracias nuevamente

mi declaración es así
saldoact:=RoundTo(saldoact,-3);
Saludos

[marcoszorrilla]

Otra solución a falta de la función en D5 es multiplicar el número por 1000, extraer la parte entera y volver a dividirlo por 1000.

Un Saludo.

[llonigualker]

Esta funcion Redondea Numeros reales segun la cantidad de decimales y el tipo de redondeo (Truncado o Simetrico) que le pasemos por parametro.
Devuelve un String porque yo la uso para visualizar los numero en un String pero se puede convertir el String a Float si es necesario.



Function Redondeos(Var Numero: real; Cant: Integer; TipoRedondeo: Char): String;
var
Formato: String;
j: Integer;
Begin
// 'S' o 's' significa Redondeo Simétrico, de lo contrario es Truncado.
if (TipoRedondeo = 's') or (TipoRedondeo = 'S') then
Begin
if Cant = 0 then
Formato := '0'
else
Formato := '0.';
for j:=1 to Cant do
begin
Formato := Formato + '0';
end;
Result := FormatFloat(Formato,Numero);
End
Else
Begin
Result := Copy(FloattoStr(Numero),1,Pos(',',FloattoStr(Numero))-1) + Copy(FloattoStr(Numero),Pos(',',FloattoStr(Numero)),Cant+1);
End;
End;

Saludos.