频道分类

delphi关于小数位精度的问题

作者:admin 来源: 日期:2021/5/31 15:13:06 人气: 标签:

 

round函数用的是银行家算法,不好使。

roundTo也不好使。

什么Format呀,

result := int(value * 100 + 0.5) / 100;

全都统统不好用。

后面弄明白原因了,许多时候计算的结果为:17.145,但事实上是17.1449999999等,这时你再四舍五入两位结果就不对,尤其是钱。呵呵

在网上终于猎杀到一个高手的算法,大家分享下:

class function TNewDcFunc.RoundFloat(f:double;i:integer):double;

var

  s:string;

  ef:extended;

begin

  s:='#.'+ StringOfChar('0',i);

  ef:=StrToFloat(FloatToStr(f));//防止浮点运算的误差

  result:=StrToFloat(FormatFloat(s,ef));

end;