四舍五入

最新推荐文章于 2021-09-23 10:40:49 发布

原创最新推荐文章于 2021-09-23 10:40:49 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#function

其他专栏收录该内容

9 篇文章

订阅专栏

博客展示了一个自定义的四舍五入函数RoundF的代码。该函数接收数字和保留小数位数作为参数，通过判断数字是否为数值、提取小数部分等步骤，根据指定的小数位数进行四舍五入处理，最终返回处理后的结果。

Public Function RoundF(Number, Optional NumOfDigits As Long) As Double
    If Not IsNumeric(Number) Then Exit Function
    Dim iPos As Long
    iPos = InStr(Number, ".")
    Dim dbDesimalPart As Long
    Dim dbRoundPart As Long
    If iPos > 0 Then
        dbDesimalPart = Mid(Number, iPos + 1)
    End If
    If NumOfDigits < Len(CStr(dbDesimalPart)) Then
        dbRoundPart = Mid(dbDesimalPart, NumOfDigits + 1, 1)
    End If
    If dbRoundPart > 4 Then
        dbDesimalPart = Left(dbDesimalPart, NumOfDigits) + 1
    Else
        dbDesimalPart = Left(dbDesimalPart, NumOfDigits)
    End If
    RoundF = Val(Int(Number) & "." & dbDesimalPart)
End Function