delphi关于小数位精度的问题
2021-05-03 03:28
阅读：322
标签：运算 误差 str int mat for phi ble 浮点运算 round函数用的是银行家算法，不好使。 roundTo也不好使。 什么Format呀， result := int(value * 100 + 0.5) / 100; 全都统统不好用。 后面弄明白原因了，许多时候计算的结果为：17.145，但事实上是17.1449999999等，这时你再四舍五入两位结果就不对，尤其是钱。呵呵 在网上终于猎杀到一个高手的算法，大家分享下： class function TNewDcFunc.RoundFloat(f:double;i:integer):double; delphi关于小数位精度的问题 标签：运算 误差 str int mat for phi ble 浮点运算 原文地址：http://www.cnblogs.com/chinaprg/p/7753258.html
var
s:string;
ef:extended;
begin
s:=‘#.‘+ StringOfChar(‘0‘,i);
ef:=StrToFloat(FloatToStr(f));//防止浮点运算的误差
result:=StrToFloat(FormatFloat(s,ef));
end;
评论
亲，登录后才可以留言！