关于四舍五入

四舍五入

(转http://www.nssoft.net/showdoc.asp?did=267)

关键词:四舍五入

Delphi的四舍五入函数Round，对于XXX.5的情况，整数部分是奇数，那么会Round Up，偶数会Round Down，例如： x:= Round(17.5) = x = 18 x:= Round(12.5) = x = 12 请使用下面的函数代替Round： function DoRound(Value: Extended): Int64; procedure Set8087CW(NewCW: Word); asm MOV Default8087CW,AX FNCLEX FLDCW Default8087CW end; const RoundUpCW = $1B32; var OldCW : Word; begin OldCW := Default8087CW; try Set8087CW(RoundUpCW); Result := Round(Value); finally Set8087CW(OldCW); end; end;