Yo utilizarìa la funcion
RoundTo que utiliza el redondeo bancario
(Banker’s rounding)por ejemplo:
Código Delphi
[-] RoundTo(14,15891,-2)=14,16
Ten en cuenta que el segundo parametro es el que indica la cantidad de decimales que quieres que aparesca, por supuesto tambien trabaja con el segundo parametro en positvo; aqui te pego unos ejemplo que viene en la ayuda de Delphi 7.
De la ayuda de Delphi>
Cita:
RoundTo(1234567, 3) 1234000
RoundTo(1.234, -2) 1.23
RoundTo(1.235, -2) 1.24
RoundTo(1.245, -2) 1.24
Note: The behavior of RoundTo can be affected by the Set8087CW procedure or SetRoundMode function.
|
Saludos....
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7