您的位置：首页 > 编程语言 > Delphi

关于四舍五入

2004-11-08 11:07 537 查看
四舍五入
(转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
;
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 点击这里给我发消息
标签：  delphi function up
相关文章推荐
新的分享
章节导航