truncar un float

[federiconqn21]

Hola:quisiera saber como truncar un valor float.
por ejemplo:si tengo una base de datos,y en una tabla tengo un campo del tipo float con el valor 5,3.al recuperar ese valor me lo devuelve como 5.299999999999999999....
como hago para truncarlo a 2 decimales solamente?.
Gracias a quien pueda ayudarme

[jhonny]

Bueno, este es uno de los temas que ya se trato bastante en el pasado un ejemplo de ello seria este enlace http://www.clubdelphi.com/foros/showthread.php?t=27232 y otro serian los varios "Temas relacionados" que aparecen al final de esta pagina.

[delphi.com.ar]

Si lo quieres hacer desde el motor, dependerá del motor que utilizas.
Si lo quieres hacer desde el cliente, y tienes una versión superior a Delphi 5, puedes utilizar las funciones de redondeo: RoundTo, SimpleRoundTo o truncarlo con algo como:

Código Delphi [-]
 
function SimpleTrunc(const AValue: Double; const ADigit: TRoundToRange = -2): Double;
var
  LFactor: Double;
begin
  LFactor := IntPower(10, ADigit);
  Result := Trunc(AValue / LFactor) * LFactor;
end;

[jhonny]

A ver, se me olvidaba decirte que en algunos Post anteriores aconcejan que es mejor usar el double precision o el Numeric(15,2) que en ultimas viene a ser lo mismo.

[jhonny]

Tambien debo decir que a mi me sucedio el caso que expone Federico Firenze y fue que yo usaba Delphi5 y fue precisamente a él quien le pedi el favor de que me diera "Copia" de dicha función desde Delphi7 (Muy amablemente como siempre me colaboro con el asunto, Gracias Federico) asi pues que solo la puse en una unidad global del proyecto y la verdad funciono muy bien...

Nota: Para agregar algo al mensaje de Federico Firenze...

El tipo TRoundToRange es el siguiente:

Código Delphi [-]
type
  TRoundToRange = -37..37;