VB.NET 中数字的小数位

Question

在 VB.NET 中如何检查数字有多少位小数？

例如：在循环内，我有一个 if 语句，在该语句中我想检查一个数字是否有四位小数 (8.9659)。

Answer 1

考虑整数值的类似方法。

Public Function NumberOfDecimalPlaces(ByVal number As Double) As Integer
    Dim numberAsString As String = number.ToString()
    Dim indexOfDecimalPoint As Integer = numberAsString.IndexOf(".")

    If indexOfDecimalPoint = -1 Then ' No decimal point in number
        Return 0
    Else
        Return numberAsString.Substring(indexOfDecimalPoint + 1).Length
    End If

End Function

Answer 2

Dim numberAsString As String = myNumber.ToString()
Dim indexOfDecimalPoint As Integer = numberAsString.IndexOf(".")
Dim numberOfDecimals As Integer = _
    numberAsString.Substring(indexOfDecimalPoint + 1).Length

Answer 3

  Public Shared Function IsInSignificantDigits(val As Double, sigDigits As Integer)
    Dim intVal As Double = val * 10 ^ sigDigits
    Return intVal = Int(intVal)
   End Function

Answer 4

对于全球化...

Public Function NumberOfDecimalPlaces(ByVal number As Double) As Integer
    Dim numberAsString As String = number.ToString(System.Globalization.CultureInfo.InvariantCulture)
    Dim indexOfDecimalPoint As Integer = numberAsString.IndexOf(".")

    If (indexOfDecimalPoint = -1) Then ' No decimal point in number
        Return 0
    Else
        Return numberAsString.Substring(indexOfDecimalPoint + 1).Length
    End If

End Function

Answer 5

这个问题附加的一些其他答案建议将数字转换为字符串，然后使用“点”的字符位置作为小数位数的指示符。但这并不是一个可靠的方法。如果数字有很多小数位，并且它转换为包含指数表示法的字符串，则会导致答案非常不准确。

例如，对于方程 1 / 11111111111111111（1 除以 17），字符串转换为“9E-17”，这意味着结果结果是 5，而实际上应该是 17。当然可以从当“E-”存在时，它是字符串的结尾，但是当它可以通过数学方式完成时，为什么要这样做呢？

这是我刚刚编写的一个函数来执行此操作。这不是一个完美的解决方案，我还没有彻底测试它，但它似乎有效。

Public Function CountOfDecimalPlaces(ByVal inputNumber As Variant) As Integer
'
' This function returns the count of deciml places in a number using simple math and a loop. The
' input variable is of the Variant data type, so this function is versatile enougfh to work with
' any type of input number.
'
CountOfDecimalPlaces = 0                            'assign a default value of zero
inputNumber = VBA.CDec(inputNumber)                 'convert to Decimal for more working space
inputNumber = inputNumber - VBA.Fix(inputNumber)    'discard the digits left of the decimal
Do While inputNumber <> VBA.Int(inputNumber)        'when input = Int(input), it's done
    CountOfDecimalPlaces = CountOfDecimalPlaces + 1 'do the counting
    inputNumber = inputNumber * 10                  'move the decimal one place to the right
Loop                                                'repeat until no decimal places left
End Function

Answer 6

只需使用以下内置函数

Dim DecimalLength = StrReverse(number.ToString).IndexOf(".")
MsgBox(DecimalLength)

Answer 7

简单...其中 n 是响应的位数

Dim n as integer = 2
Dim d as decimal = 100.123456
d = Math.Round(d, n);
MessageBox.Show(d.ToString())

：100.12