Comment puis-je obtenir le nombre après la virgule décimale dans la VB.NET

Voulez-vous dire quelque chose comme:

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

? Notez que généralement binaire arithmétique à virgule flottante, vous voulez avoir une sorte de tolérance, de sorte que 10.000001 été traitée "comme assez proche de 10". Par exemple:

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

Ce que vous devez faire est de multiplier par 10 et puis mod 10.

Par exemple. disons x = 10.2

temp = x * 10 ' temp est égal à 102

temp = temp % 10 ' qui devrait retourner le 2. Temp est maintenant la valeur de la virgule dont vous avez besoin.

Cela devrait fonctionner pour les valeurs négatives ainsi.

Si vous avez besoin de comparer pour voir si c'est un 0, tout ce que vous faire est de comparer votre temp var à 0.

Si votre entrée est une chaîne, et que vous souhaitez identifier les chaînes de décimales, mais lorsque ces décimales sont toutes à zéro, alors vous pouvez utiliser une expression régulière:

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

Il a été un moment, néanmoins ma solution:

J'ai aussi utilisé la fonction mod, mais vous devez être prudent avec ce qu'il y a de la précision des "problèmes" avec les données de type "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

Donc j'ai écrit cette fonction: (exemple: nombre = 1.25)

• Je prends d'abord le numéro de paramètre et mod avec ses propres entier (1.25 mod 1)
• si je reçois la valeur décimale de mon numéro et de le stocker dans remVal = 0.25
• dans la boucle que je multiplie remVal avec 10 et comparer cette valeur avec la même tronquée valeur (c'est à dire: 2.5 <> 2) jusqu'à ce qu'ils sont de la même
• à chaque boucle, je incrémenter le multiplicateur par 10

• dès les deux valeurs correspondent (c'est à dire: 25 = 25) je retourner ma valeur décimale à l'aide de remVal et multiplicateur

  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