Problema de Redondeo de Decimales con una Función

[agustibaldo]

Estimados amigos de Club Delphi, en esta oportunidad les escribo porque tengo un problema bastante raro con una función que intenta obtener solo dos decimales de un valor.

Concretamente tengo lo siguiente:

function TFormPrincipal.TruncarDecimales (parametro: Double):Double;
begin
  Result := (Int(parametro * 100)) / 100;
end;

la cual llamo y grabo el resultado en una variable de la siguiente manera:

IMPORTE_TOTAL := TruncarDecimales(IMPORTE);

donde IMPORTE_TOTAL e IMPORTE son de tipo Doubles.

El problema se presenta cuando graba el resultado. Supongamos que, al momento de llamar a la función, IMPORTE = 190.950; cuando graba en IMPORTE_TOTAL el resultado es 190.94.-

Realmente no se que puede estar pasando. He probado declarar tanto la function como las variables como tipo Extended pero sigue persistiendo el problema.

Desde ya muchas gracias por su tiempo.
Saludos a todos.

[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