四舍五入运算

admin

在实际工作中经常需要对数值或计算结果进行四舍五入运算，此时可以使用VBA内置的Round函数。Round函数返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果，语法如下：

Round(expression[,numdecimalplaces])

参数expression是必需的，要进行四舍五入运算的数值表达式。

参数numdecimalplaces是可选的，数字值，表示进行四舍五入运算时，小数点右边应保留的位数。如果忽略，则Round函数返回整数。

但是VBA内置的Round函数在对数值进行四舍五入运算时实行的是Bankre舍入，而不是算术舍入。按Bankre舍入规则，如果保留位数的下一个数字正好是5则其后没有其他有效数字，则按保留位最后一位“偶舍奇入”的方法进行处理。比如Round(1.5)的保留位最后为1，是奇数，小数位的5入上去，因此Round(1.5)的运算结果是2；而Round(4.5)的保留位最后为4，是偶数，小数位的5舍去，因此Round(4.5) 的运算结果是4而不是5。

Bankre舍入规则虽然有其合理性，但不符合实际工作的需要。在实际应用中使用以下两种方法避免Bankre舍入：

admin

1-1        极小值修正法

在使用Round函数时对需要舍入的数值先加上极小值再调用VBA内置的Round函数，如下面的代码所示。

1. Sub aTestRound()
   6 W7 A$ w$ P6 r5 D" s
2.      MsgBox "Round(4.5)=" &Round(4.5) & Chr(13) & "Round(4.5)=" & Round(4.5 +0.0000001)
   1 g# n4 f- V; `% t$ s: o1 r7 K
3. End Sub

复制代码

6 W* e  f  y' f& \8 R% M

代码解析：

aTestRound过程 分别调用VBA内置的Round函数和加上极小值再调用VBA内置的Round函数在洗染店框中显示两者运算结果，如图157-1所示。

1 A4 S0 o( Z# P- r) T

从运算结果中可以发现，加上极小值后Round(4.5)已正确运算为5而不是4。

admin

157-2        调用工作表函数法
! W7 W$ m- V% d
还可以使用工作表函数Round代替VBA内置的Round函数。工作表函数Round和VBA内置的Round函数的用法相同，但它采用算术舍入而不是Bankre舍入，所以不会有“偶舍奇入”的问题，如下面的代码所示。

4 u6 Z1 b" {- A- D

1. Sub bTestRound()
   
2.     MsgBox "Round(4.5)=" & Round(4.5) & Chr(13) & "Round(4.5)=" & Application.Round(4.5, 0)
   
3. End Sub

复制代码

代码解析：
bTestRound过程分别调用VBA内置的Round函数和工作表Round函数在消息框中显示两者运算结果
$ X1 ?% ]. Y( l! o$ Y6 j  W从运算结果中可以发现，使用工作表Round函数后Round(4.5)已正确运算为5而不是4。