四舍五入运算

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()
   
2.      MsgBox "Round(4.5)=" &Round(4.5) & Chr(13) & "Round(4.5)=" & Round(4.5 +0.0000001)
   
3. End Sub

复制代码

1 U1 K$ O% @+ j( o; ^  C: J6 |

代码解析：

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

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

admin

157-2        调用工作表函数法
1 D, O5 B5 A7 Y4 i
) M2 D* s5 q& D5 i1 s7 b还可以使用工作表函数Round代替VBA内置的Round函数。工作表函数Round和VBA内置的Round函数的用法相同，但它采用算术舍入而不是Bankre舍入，所以不会有“偶舍奇入”的问题，如下面的代码所示。

# Z9 a5 q# j. @8 V

1. Sub bTestRound()
   ! D$ A* h; K6 b- K% B5 C
2.     MsgBox "Round(4.5)=" & Round(4.5) & Chr(13) & "Round(4.5)=" & Application.Round(4.5, 0)
   , z/ ~9 u: j9 s) B4 B; q) [: C
3. End Sub

复制代码

% r7 Y' s) r2 U. d4 H0 d. V代码解析：
7 _! G$ o( z+ @3 J- s! vbTestRound过程分别调用VBA内置的Round函数和工作表Round函数在消息框中显示两者运算结果
* F5 r/ u2 k, p+ f# _从运算结果中可以发现，使用工作表Round函数后Round(4.5)已正确运算为5而不是4。
0 ~5 t+ {# u# [. t# h$ J# Z