delphi 四舍五入取整函数

本文整理自网络，侵删。

 delphi 四舍五入取整函数一、四舍五入法    四舍五入是一种应用非常广泛的近似计算方法，其有算术舍入法和银行家舍入法两种。    所谓算术舍入法，就是我们通常意义上的四舍五入法。其规则是：当舍去位的数值大于等于5时，在舍去该位的同时向前位进一；当舍去位的数值小于5时，则直接舍去该位。    所谓银行家舍入法，其实质是一种四舍六入五留双（又称四舍六入五奇偶）法。其规则是：当舍去位的数值小于5时，直接舍去该位；当舍去位的数值大于等于6 时，在舍去该位的同时向前位进一；当舍去位的数值等于5时，如果前位数值为奇，则在舍去该位的同时向前位进一，如果前位数值为偶，则直接舍去该位。    综上所述，两种舍入法所得结果不尽一致，因此在使用时必须根据实际需要加以区别。否则会出现一些莫明其妙的偏差。    二、Delphi中的四舍五入函数    众所周知，Delphi中有一个四舍五入取整函数Round。但它是按银行家舍入法的规则实施舍入操作的，Delphi中没有按算术舍入法规则实施舍入操 作的四舍五入取整函数。为此，本人编写了一个基于算术舍入法的四舍五入取整函数RoundEx作为对Delphi的补充。具体实现如下： 

function RoundClassic(R: Real): Int64; begin   Result:= Trunc(R);   if Frac(R) >= 0.5 then     Result:= Result + 1; end; 
 

相关阅读 >>

Delphi 在减少占用资源的情况下，等待msecs毫秒

Delphi cb_addstring 与lb_addstring的区别？

pchar和array [0..255] of ｃｈａｒ的区别

Delphi 禁止用键盘左右箭头，去切换pagecontrol页签

Delphi对access数据库安全加密方法

Delphi执行查询语句时的进度条怎么做

Delphi研究之驱动开发篇（一）--实现原理

Delphi如何粘贴html格式文本到windows剪切板

Delphi 清空某个form的控件内容,用tag来判断

Delphi入门语法

更多相关阅读请进入《Delphi》频道 >>