Excel VBA 计算小数点前后的数字

Question

我试图计算小数点前后的数字。

例如 1452.13 之前是 4，之后是 2。

该值存储在一个字符串中，我认为我可能需要将 len 与 find 一起使用，但无法弄清楚？

将不胜感激任何帮助。

Answer 1

有很多方法。例如这里

这是一种在小数点后查找数字的快速技术。

可以复制修改查找小数点前的位置

Function CountDecimalPlaces(aNumber As Double) As Long

    Dim len1 As Long, len2 As Long
    len1 = Len(CStr(aNumber))
    len2 = Len(CStr(Int(aNumber)))
    CountDecimalPlaces = len1 - len2 + CLng(len1 <> len2)

End Function


Function CountInteger(aNumber As Double) As Long

    CountInteger = Len(CStr(Int(aNumber)))

End Function

以上都不依赖于您的十进制字符是“。”