在Excel中自定义四舍六入函数Round46()

在水文计算中经常利用四舍六入法来进行近似计算，Excel中有一个四舍五入函数Round()，而没有四舍六入函数，为此编写了一个四舍六入函数以方便水文计算时使用。

一、四舍六入函数代码

'================================
' 四舍六入函数
'
' 算法：四合六入五考虑，五后非零就进一，五后皆零看奇偶，五前为偶应舍去，五前为奇要进一。
' 作者：崔军明
' 编写：2011-1-14
' 修改：2011-1-15
'================================
Function Round46(AValue As Double, n As Integer) As Double
    Dim F, F1 As Double
    Dim I, I1 As Long
    Dim carry As Byte
    
    F = AValue * 10 ^ (n + 1)
    I = Fix(F)
    carry = Abs(I - Fix(I / 10) * 10)   '进位位
    
    '非五（等价于四舍五入）
    
    If carry <> 5 Then
      Round46 = Round(AValue, n)
      Exit Function
    End If
    
    '五后非零就进一（等价于四舍五入）
    If F - I <> 0 Then
      Round46 = Round(AValue, n)
      Exit Function
    End If
    
    '五后皆零看奇偶
    I1 = Fix(AValue * 10 ^ n)           '五之前位
    F1 = I1 / 2 - Fix(I1 / 2)           '偶数否
    
    '奇进偶舍
    If F1 = 0 Then
      Round46 = I1 / 10 ^ n
    ElseIf F1 < 0 Then                  '-0.5
      Round46 = (I1 - 1) / 10 ^ n
    Else                                '+0.5
      Round46 = (I1 + 1) / 10 ^ n
    End

二、四舍六入函数代码的使用

1、在excel中打开VB编辑器，新建一模块，将上面的代码复制至模块中，关闭VB编辑器。

2、将此excel文件另存为“Microsoft excel  加载宏”文件。

3、通过加载宏命令即可将四舍六入函数Round46()添加到excel中了。