vba 如何判断小数点后几位

可以使用 VBA 内置的函数来判断小数点后几位，如下所示：

1. 使用 InStr 函数查找小数点的位置，然后计算小数点后的位数：

Function GetDecimalPlaces(num As Double) As Integer
    Dim decimalPos As Integer
    decimalPos = InStr(1, num, ".")
    If decimalPos > 0 Then
        GetDecimalPlaces = Len(num) - decimalPos
    Else
        GetDecimalPlaces = 0
    End If
End Function

2. 将数字转换为字符串，然后使用 Split 函数分割小数点前后的部分，计算小数点后的位数：

Function GetDecimalPlaces(num As Double) As Integer
    Dim strNum As String
    strNum = CStr(num)
    If InStr(1, strNum, ".") > 0 Then
        GetDecimalPlaces = Len(Split(strNum, ".")(1))
    Else
        GetDecimalPlaces = 0
    End If
End Function

使用示例：

MsgBox GetDecimalPlaces(123.456) ' 输出 3
MsgBox GetDecimalPlaces(100) ' 输出 0