使用VB.net找到小数点后的第一个非零数字

Question

我正在努力找到小数点后第一个非零数字的位置

到目前为止，我已经设法找到使用的十进制数字的数量

Dim value As Single = 2.0533
Dim numberOfdecimaldigits As Integer = value.ToString().Substring(value.ToString().IndexOf(".") + 1).Length
MessageBox.Show(numberOfdecimaldigits)

如果我有 4.0342，那么我希望在十进制值后的 3 位置得到 2。 我想对这些数据做的是根据非零数字的位置在整数上加 2。 例如：对于4.0342，我希望系统给它加上0.02。 如果它是 5.00784，那么我想给它加上 0.002。

有没有办法知道小数点后第一个非零数字的位置？

提前谢谢你

Answer 1

我强烈建议不要在这里使用字符串——您正在执行数值算法，使用数值逻辑处理数字更直接、更有效：

value = value - Math.Floor(value) ' Get rid of integer digits
Dim position = 0

While value > 0 AndAlso Math.Floor(value) = 0
    value = value * 10
    position += 1
End While

If value = 0 Then Throw New Exception(…)
Return position

Answer 2

这是我对防止无限循环的问题的看法

value = value - Math.Floor(value) ' Get rid of integer digits

If value = 0 Then Throw New Exception(...)

value = 1/value ' Invert the value
Dim position = 0

While value > 1
    value = value / 10
    position += 1
End While

Return position