一个四舍五入函数 [Delphi开发技巧] IT部落iTbulo.com

用户名：密码：

免费注册忘记密码？

网站地图 | 加入收藏 | 设为首页

首页 | 新闻 | 工具 | 系统 | 办公 | 聊天 | 多媒体 | 网页 | 运营 | 平面 | 欣赏 | 数据库 | 程序 | 服务器 | 组网

iTbulo.com > 学院 > 程序开发教程 > Delphi教程 > Delphi开发技巧 > 文章正文

一个四舍五入函数

iTbulo.COM 2006-4-27 Seaspide()

下面是保岛国整数的四舍五入函数，如果要保岛国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;

文章搜索

相关资讯

相关文章	相关下载
图像输出组件的制作通过调用API确定MEMO控件中的当前行和列用delphi编写医院的复杂报表使用Delphi获取系统信息怎样用delphi制作一个IPhunter(独孤剑客的IP猎人)

焦点信息

· 比ACDSee更强更好用 Picasa中文版

· 历史上最强的浏览器：Firefox简体中文版下载

· 无线局域网常见故障及其解决办法五例

· DIV+CSS学习之margin缩进法

· 总结知识：FLASH常用语法

· Photoshop中参考线/标尺的应用技巧