在彩票行业许多年,这次对于竞彩玩法的计奖,让我很是头疼。Delphi中double类型的四舍五入总是出问题,小数点后1-4,6-9都没有问题,就是.5时总出现不进位的问题。
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;
真心感谢这位高手,也希望能带给其他需要的人一些帮助。对了,Java也有类似的问题,要注意哟!