一个四舍五入函数

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

• ·COMDCOM对象中通过Variant传递数组
• ·Borland有一个梦，程序员的梦
• ·将小写数字金额转成大写金额
• ·用Delphi进行OpenGL编程学习心得
• ·开发Web应用程序中Cookie使用的问题
• ·datagridcolumnstyle重写,实
• ·switch语句的“不准遍历”
• ·java:使用路径访问Access数据库
• ·舍弃浮躁, 50条重要的C++学习建议
• ·ASP.NET中动态修改web.config中