在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
'五后⾮零就进⼀（等价于四舍五⼊）
excel中round函数的使用方法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中了。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。