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 ...

Я также использовал функцию мода, но вы должны быть осторожны с этим, так как есть прецизионные «проблемы». с типом данных "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

Поэтому я написал эту функцию: (пример: число = 1,25)

I first take the parameter number and mod it with its own integer (1.25 mod 1) so I get the decimal value of my number and store it to remVal = 0.25 in the loop I keep multiplying remVal with 10 and compare this value with the same truncated value (i.e.: 2.5 <> 2) until they are the same with every loop I increment the multiplier by 10

as soon the two values match (i.e.: 25 = 25) I can return my decimal value using remVal and multiplier

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

Например. допустим, х = 10,2

temp = x * 10 ' температура равна 102

temp = temp% 10 ' это должно вернуть 2. Temp теперь значение десятичной дроби, которое вам нужно.

Это должно работать и для отрицательных значений.

Если вам нужно сравнить, чтобы увидеть, является ли это 0, все, что вам нужно сделать, это сравнить вашу временную переменную с 0.

и вы хотите идентифицировать строки с десятичными знаками, но где все эти десятичные разряды равны нулю, вы можете использовать регулярное выражение:

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

Mod оператор, вот так:

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

(увидетьhttp://en.wikibooks.org/wiki/Visual_Basic_.NET/Arithmetic_operators)

Вы имеете в виду что-то вроде:

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

? Обратите внимание, что обычно с двоичной арифметикой с плавающей запятой вы хотите иметь некоторый допуск, чтобы 10.000001 рассматривался как "довольно близко к 10". Например:

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

что вы можете попробовать. Преобразование двойного в целое удаляет десятичное место. Затем вы можете выполнить операцию Mod над тем же номером, чтобы получить остаток, равный тому, что находится в десятичном знаке.

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