|
|
|
|
|
|
| 一个四舍五入函数 |
|
| 作者：武汉SEO闵涛 文章来源：敏韬网 点击数882 更新时间：2009/4/23 18:42:11 文章录入：mintao 责任编辑：mintao |
|
|
|
一个四舍五入函数
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;
|
|
|
|
|
|
|
|
|
|
