四舍五入运算

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舍入：
2 B8 d' R7 C" k  a

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)
   8 A1 A! h, f& P. C0 R) j: E3 M
3. End Sub

复制代码

  i7 l( }3 m) @& N2 ?, O5 w4 j' I

代码解析：

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

! \2 D, w) b5 }/ z

# I" A9 ^# V) y- X/ q

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

+ B* j9 y0 D" d: B& h2 I% h

admin

157-2        调用工作表函数法

还可以使用工作表函数Round代替VBA内置的Round函数。工作表函数Round和VBA内置的Round函数的用法相同，但它采用算术舍入而不是Bankre舍入，所以不会有“偶舍奇入”的问题，如下面的代码所示。
3 g: t# h( x( ~* y! X. X& z
5 I2 E5 r/ S& v6 ^) n

1. Sub bTestRound()
   * M) w) r, v1 N/ Z
2.     MsgBox "Round(4.5)=" & Round(4.5) & Chr(13) & "Round(4.5)=" & Application.Round(4.5, 0)
   
3. End Sub

复制代码

5 V! }: h  g: m2 N1 f# _6 i6 @/ t代码解析：
( q, F( A$ D$ F8 b, MbTestRound过程分别调用VBA内置的Round函数和工作表Round函数在消息框中显示两者运算结果
从运算结果中可以发现，使用工作表Round函数后Round(4.5)已正确运算为5而不是4。
# Z. ^! k, N9 g/ g$ ?3 m