Problema de Redondeo de Decimales con una Función

[rgstuamigo]

hola agustibaldo, yo lo veo raro lo que estas haciendo en tu funcion TruncateDecimales;sinceramente no hace nada esa funcion por que primero lo multiplicas * 100 y luego lo divides por el mismo 100 . no surte ningun efecto con lo que esta entrando, osea lo mismo que entra esta saliendo.......No se realmente lo que quieres hacer con esa funcion......
Saludos.........

[ContraVeneno]

Es broma ¿no?

multiplicas por 100 y luego divides por 100....
además, ¿que tiene de malo la función "int"?
¿para que crear otra?

[[Lepe]]

Que sí, que la función está bien.

multiplica por 100
coge la parte entera !!
divide entre 100

(la primera vez que ví la función, también me pasé por alto el "int" y los paréntesis )

El segundo paso se os coló , que precisamente es la que elimina los posibles decimales que tenga. Así solo se queda con 2 decimales.

Yo declaraba todas las variables como Currency y así evitaba esa función y el fallo inherente a los Floats/Extended que nunca guardarán el valor que representa, siempre guardará una aproximación.

Si usas Bases de datos, cambia el tipo también a Currency o NUMERIC(10,2) (en interbase y firebird con dialecto 3).

Si eso, pregunta .

Saludos

[ContraVeneno]

cierto, cierto, mea culpa

En SQL Server, el tipo de dato para el campo es "money" o "decimal(10,2)"

¿"FormatFloat" hubiera servido?

[[coso]]

Hola, si usas Round

Código Delphi [-]
function TForm1.TruncarDecimales (parametro: Double): Double;
begin
  Result := (Round(parametro * 100)) / 100;
end;

solucionado

[ContraVeneno]

¿ la función "RoundTo" serviría para eso?

[[coso]]

Si. En mi delphi no esta (v.5) pero si, parece que hace exactamente eso.