您的位置:
首页
->
编程文档
->
Delphi
-> 一个四舍五入函数
Delphi
本类阅读TOP10
·
分布式网络考试系统原型分析及实现
·
游戏外挂设计技术探讨①
·
使用HOOK随心监视Windows
·
Delphi 水晶报表打包解决
·
试题库开发中非文本数据的处理
·
如何将几个DBGRID里的内容导入同一个EXCEL表中....的问题
·
如何使用Delphi设计强大的服务器程序
·
工人线程中关闭窗体的实现
·
用DLL方式封装MDI子窗体。
·
支持XP下托盘栏气球提示的托盘单元
→
分类导航
VC语言
Delphi
VB语言
ASP
Perl
Java
Script
数据库
其他语言
游戏开发
文件格式
网站制作
软件工程
.NET开发
一个四舍五入函数
作者
:未知
来源
:月光软件站
加入时间
:2005-2-28 月光软件站
一个四舍五入函数
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;
相关文章
:
相关软件
: