A AYellow Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-03 #1 需要两个功能 1：多余部分只舍不入 2：多余部分四舍五入
P panyongze Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-03 #3 1 trunc 2 Delphi没有四舍五入函数。Round(2.5)=2 请使用如下函数 function mround(R:Real):Integer; begin if frac(r)>=0.5 then Result:=trunc(r)+1 else Result:=trunc(r); end;
1 trunc 2 Delphi没有四舍五入函数。Round(2.5)=2 请使用如下函数 function mround(R:Real):Integer; begin if frac(r)>=0.5 then Result:=trunc(r)+1 else Result:=trunc(r); end;
W wjiachun Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-03 #4 panyongze,不是“Delphi没有四舍五入函数”，而是统计学上严格说来应该是 “四舍六入五留双”，不信你试试Round(3.5)就是4了，要看5前一位数的。 大家习惯说round是“四舍五入”而已，不过这正好证明了Delphi的严谨 ：）
panyongze,不是“Delphi没有四舍五入函数”，而是统计学上严格说来应该是 “四舍六入五留双”，不信你试试Round(3.5)就是4了，要看5前一位数的。 大家习惯说round是“四舍五入”而已，不过这正好证明了Delphi的严谨 ：）
