在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中了。