四舍五入运算

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 k  n; z5 C$ E( |# h) o
2.      MsgBox "Round(4.5)=" &Round(4.5) & Chr(13) & "Round(4.5)=" & Round(4.5 +0.0000001)
   
3. End Sub

复制代码

代码解析：

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

" P, {5 F+ v5 B6 `' T

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

admin

157-2        调用工作表函数法

+ q, n% u) w; U7 o" o还可以使用工作表函数Round代替VBA内置的Round函数。工作表函数Round和VBA内置的Round函数的用法相同，但它采用算术舍入而不是Bankre舍入，所以不会有“偶舍奇入”的问题，如下面的代码所示。
: Y6 W: s/ G% w6 s: N* b3 r$ S. k
" \/ d' k) g9 o- C$ x: K

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

复制代码

7 Z5 R& J* t7 @# [; r代码解析：
1 `: f$ K: Q2 K7 m! PbTestRound过程分别调用VBA内置的Round函数和工作表Round函数在消息框中显示两者运算结果
从运算结果中可以发现，使用工作表Round函数后Round(4.5)已正确运算为5而不是4。
& [, R$ B. ^6 R5 T( |7 f