如何在VB.NET中获取小数点后的数字

Question

谁能给我一种简单的方法来找出双精度小数点后的数字？
我需要做的就是找出数字是否以0结尾，例如1.0或10.0或323.0？

您对此有任何想法吗？

Answer 1

您的意思是：

if (x == Math.Floor(x))

？ 请注意，通常使用二进制浮点算法，您需要具有某种公差，因此将10.000001视为“非常接近10”。 例如：

if (x - Math.Floor(x) < Tolerance)
{
    ...
}

Answer 2

只需使用Mod运算符，如下所示：

If (x Mod 1) = 0 Then
    ' Do some stuff
End If

（请参阅http://en.wikibooks.org/wiki/Visual_Basic_.NET/Arithmetic_operators ）

Answer 3

您需要做的是乘以10，然后乘以10。

例如。 假设x = 10.2

temp = x * 10'temp等于102

temp = temp％10'应该返回2。Temp现在是您需要的小数的值。

这也应适用于负值。

如果需要比较以查看它是否为0，您要做的就是将temp var与0进行比较。

Answer 4

如果使用任何数字数据类型（例如，双精度，单精度，整数，十进制），则不能将10.0和10表示为两个不同且不同的值。 没有办法做到这一点。 如果需要保留数字的尾数，即使数字为零，则也必须将值存储为其他数据类型，例如字符串。

要验证输入的字符串，您可以执行以下操作：

Public Function MantissaIsZero(ByVal value As String) As Boolean
    Dim result As Boolean = False
    Dim parts() As String = value.Split("."c)
    If parts.Length = 2 Then
        Dim mantissa As Integer = 0
        If Integer.TryParse(parts(1), mantissa) Then
            result = (mantissa = 0)
        End If
    End If
    Return result
End Function

Answer 5

试试这个功能：

Function CalculateDecimals(input As Double)
  Dim positiveInput As Double
  positiveInput = Math.Abs(input)
  Return positiveInput - Math.Floor(positiveInput)
End Function

它将为您提供所需的小数位。

以这种方式使用它：

If (Math.Abs(CalculateDecimals(yourNumber))<0.00001) Then ...

Answer 6

如果您的输入是一个字符串，并且您要标识包含小数的字符串，但是这些小数位全为零，则可以使用正则表达式：

var regex = new Regex("^-?\\d+\\.0+$");
if (new Regex.IsMatch(input))
{
    // it's in the format you want
}

Answer 7

您可以尝试以下方法。 将double转换为int会删除小数位。 然后，您可以对相同的数字执行Mod操作，以使余数等于小数位。

(double)(4.9 % (int)(4.9))

Answer 8

已经有一段时间了，但是我的解决方案是：

我也使用了mod函数，但是您必须要小心，因为数据类型为'Double'的数据存在精确的“问题”：

Dim numberDbl As Double = 1.2
Dim modValDbl As Double = 1.0
Dim remValDbl As Double = numberDbl Mod modValDbl
'remValDbl = 0.19999999999999996 -> not 100% precise

Dim numberDec As Decimal = 1.2D
Dim modValDec As Decimal = 1D
Dim remValDec As Decimal = numberDec Mod modValDec
'remValDec = 0.2 -> correct

因此我写了这个函数：（例如：number = 1.25）

• 我首先采取参数号，并用它自己的整数国防部它（1.25 MOD 1）
• 所以我得到我的数字的十进制值并将其存储到remVal = 0.25
• 在循环中，我将remVal乘以10，然后将该值与相同的截断值 （即2.5 <> 2）进行比较，直到它们相同为止
• 每循环一次， 乘数就增加10

• 一旦两个值匹配（即：25 = 25），我就可以使用remVal和乘数返回我的十进制值

   Public Shared Function getDecimalPlaces(number As Double) As Double Dim modVal As Integer = CInt(If(Math.Truncate(number) = 0, 1, Math.Truncate(number))) Dim remVal As Decimal = CDec(number) Mod modVal Dim retVal As Double = 0 Debug.WriteLine("modVal: " + modVal.ToString) Debug.WriteLine("remVal: " + remVal.ToString) Dim multiplier As Decimal = 1 While remVal * multiplier <> Math.Truncate(remVal * multiplier) Debug.WriteLine("remVal * multiplier <> Math.Truncate(remVal * multiplier): " + (remVal * multiplier).ToString + " <> " + (Math.Truncate(remVal * multiplier)).ToString) multiplier *= 10 Debug.WriteLine("remVal * multiplier <> Math.Truncate(remVal * multiplier): " + (remVal * multiplier).ToString + " <> " + (Math.Truncate(remVal * multiplier)).ToString) End While retVal = CDbl(remVal * multiplier) Debug.WriteLine("remVal: " + remVal.ToString) Debug.WriteLine("multiplier: " + multiplier.ToString) Debug.WriteLine("retVal: " + retVal.ToString) Return retVal End Function 'Output with number = 1.25 'modVal: 1 'remVal: 0,25 'remVal * multiplier <> Math.Truncate(remVal * multiplier): 0,25 <> 0 -> true 'remVal * multiplier <> Math.Truncate(remVal * multiplier): 2,50 <> 2 -> true 'remVal * multiplier <> Math.Truncate(remVal * multiplier): 2,50 <> 2 -> true 'remVal * multiplier <> Math.Truncate(remVal * multiplier): 25,00 <> 25 -> false: exit while 'remVal: 0,25 'multiplier: 100 'retVal: 25