Vb6 如何检查值的小数位数是否超过2位

你好。。我只是想问一下，有没有要检查的地方 如果该值的小数位数超过2位

希望不久能收到你的来信

谢谢

---

Link

您可以使用round函数并将其与原始数字进行比较。所以

Function MoreThan2Digits(N As Single) As Boolean
    MoreThan2Digits = (N - Round(N, 2)) <> 0
End Function

函数超过2个数字（N为单个）作为布尔值
超过2位数=（N-轮（N，2））0
端函数

您可以使用舍入功能并将其与原始数字进行比较。所以

Function MoreThan2Digits(N As Single) As Boolean
    MoreThan2Digits = (N - Round(N, 2)) <> 0
End Function

函数超过2个数字（N为单个）作为布尔值
超过2位数=（N-轮（N，2））0
端函数

这是你的帖子。这是你的帖子。我甚至没有想到一个负数。修正功能。谢谢@BrianI甚至没有想到一个负数。修正功能。谢谢@Brian