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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值