一个关于Round函数的问题

Round函数(四舍六入五成双)

2008-10-29 15:27

Round(所在单元：Math) 　　功能说明：对一个实数进行四舍五入。(按照银行家算法) 　　参考实例： 　　var 　　 　I, j: Integer; 　　begin 　　 　i := Round(1.5); // i等于2 　　 　j := Round(2.5); // j等于2              //注意Round(2.53)=3 　　end; 在Delphi中使用Round函数得到的答案有时与我们所预期的会不太一样： 采用的是四舍六入五留双。即当舍或入位大于或小于五时按四舍五入来处理，而当舍或入位等于五时，就要看前面一位是什么，根据奇进偶不进，它总是返回一个偶数值。         示例                结果 i:= Round(11.5)           12 i:= Round(10.5)           10           这种Round其实是按照银行家算法，统计学上一般都用这种算法，比传统的"四舍五入"要科学。 如果要使用传统的"四舍五入"方法，可以使用下面算法： //提供者FlashDance(10040231) 15:15:58 var D1,D2:Double; begin      D1:=3.14159;      D2:=StrToFloat(Format('%.5f',[D1])); end; 另一篇文章： Math.Round(double,int)採用的是四舍六入五考慮的方法 msdn并没有详细的说明清楚，给了一个例子； Math.Round(3.44, 1); //Returns 3.4. Math.Round(3.45, 1); //Returns 3.4. Math.Round(3.46, 1); //Returns 3.5. 依照他的例子得到的是"五舍六入"，我改变了一下数字得到的结果将完全改变。 Math.Round(3.445, 1); //Returns 3.4. Math.Round(3.455, 1); //Returns 3.5. Math.Round(3.465, 1); //Returns 3.5. Math.Round(3.450, 1); //Returns 3.4.(补0是无效的) Math.Round(3.4452, 2); //Returns 3.45. Math.Round(3.4552, 2); //Returns 3.46. Math.Round(3.4652, 2); //Returns 3.47. 答： 世界上的许多国家已广泛采用“四舍六入法”。我国国家科委于1955年就作了推荐。“四舍 六入法”可以概括为：“四舍六入五考虑，五后非零就进一，五后皆零看奇偶，五前为偶应舍 去，五前为奇要进一。” 答： 在工程技术、金融和科学领域，我们往往认为将一个小数圆整到距离它最近的偶数（而并非总是将它向上圆整）更加精确，即我们在此所说的“四舍六入”法。 Math.Round()方法使用的银行家算法的依据,是IEEE Standard 754这个国际标准 据说欧洲银行全采用这个模式 这个都不知道，四舍六入五成双，Round都是这样处理的。 我也遇到过这个问题，起初也很奇怪，后来看了帮助，果然是四舍六入五靠偶，虽然楼上的所说的四舍六入是国际标准，但是中国的很多业务系统还是采取的是四舍五入的方法，没办法，我只好自己写了个方法来四舍五入了。不过网上有一个不错的方法，虽然有取巧嫌疑，但是一般没什么问题，就是在后面加上0.0000000001，很小的一个数，这时再来取两位，三位或四位就基本没问题了。可以试试