一个四舍五入函数

2008-04-09 04:30:09来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

一个四舍五入函数

http://www.tommstudio.com(2001年4月19日) 作者:booktian 推荐:booktian
下面是保岛国整数的四舍五入函数,如果要保岛国n位小数,只需简单修改。
function myround(x : extended) : extended;
begin
if (int(x)*10 5) > int(x*10) then
begin
result := floor(x);
end else
begin
result := ceil(x);
end;
end;

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:在stringgrid控件中使文字内容在cell中做到上下居中

下一篇:检测Delphi是否正在运行