Redondear decimales a 50 centesimas

[Anel Hernandez]

Hola,

necesito redondear decimales y siempre obtener 50 centesimas.

pongo un ejemplo:
285.59 ->285.550
279.80 ->279.750
279.00 ->279.050
284.90 ->284.850
279.56 ->279.550
284.14 ->284.150
282.48 ->282.450
280.41 ->280.450
281.07 ->281.050
281.16 ->281.150
282.61 ->282.650
281.26 ->281.250


he probado con la funcion de trucomania que aparece en el filo:
http://www.clubdelphi.com/foros/showthread.php?t=26059

pero no lo he podido lograr. He leido varios temas de este foro sobre redondeo y tanpoco logro.

pudieran ayudarme?

gracias mil

[Anel Hernandez]

bueno, la primera columna la aproxime a 2 digitos. en realidad debe quedar asi:
285.5900 279.7950 279.0017 284.8983 279.5583 284.1433 282.4800 280.4100 281.0700 281.1600 282.6100 281.2600 y estos redondearlos a la segunda columna

[escafandra]

function RoundQCent(V: Double): Double;
begin
Result:= (Trunc(V*10)+0.5)/10;
end;


Saludos.

[Anel Hernandez]

ok, mil gracias.

seria +0.05!!!

gracias

[escafandra]

seria +0.05!!!


Con el código que puse no. :)

Saludos.