Connaitre le nombre de chiffres après la virgule d'un nombre

Bonjour à tous! je me tourne encore vers vous pour m'aider à résoudre un problème. J'aimerais savoir comment connaitre le nombre de chiffres après la virgule d'un nombre décimal. je compte sur vous. merci de votre aide!

Bonsoir,

Dans quel contexte cela s'inscrit ? La question est un peu vague... En effet, comment ton nombre décimal est-il formé ?

Si  tu le définis dans ton code, par exemple "a=41234.1234124" , ta question revient à demander : comment extraire la partie décimale.

Si il résulte d'un calcul, par exemple " a = 1/7 ", la réponse n'est plus informatique, mais mathématique... En effet, ici la partie décimale est infinie...

IL faudrait donc préciser plus ta question, et pourquoi tu as besoin d'extraire la partie décimale...

Amicalement,
Us.

d'accord. le nombre résulte d'un calcul. et dans le pire des cas si la partie décimale est énorme on se limite à 19 chiffres

 				Dim MyVal1, MyVal2, MyLong1, MyLong2
MyVal1 = 25427.45: MyVal2 = 25427.55   ' MyVal1, MyVal2 sont des valeurs    ' de type Double.
MyLong1 = CLng(MyVal1)   ' MyLong1 contient 25427.
MyLong2 = CLng(MyVal2)   ' MyLong2 contient 25428.
ou tu le fait par les math:soustraction
ou par la chaine: len(str 				 						 								( 						 				 				MyLong1 				 						 						 						 								)) renvoi le nbre de chiffres
resultat=right( 						 				 				str(MyVal1),x 				 						 								)'x etant le nbre de string a prendre
ça donne:
 						 				 				 						 								resultat=right( 						 				 				str(MyVal1), 				len(str 				 						 								( 						 				 				MyVal1 				 						 								))- 						 				 				len(str 				 						 								( 						 				 				MyLong1 				 						 						 						 								))
 						 				 				c une façon de faire 
si ça peut t'aider
mais y'a peut etre une fonction vb qui le fait direct;
elles sont là http://msdn.microsoft.com/fr-fr/library/32s6akha(VS.80).aspx

 		

 				 						 						 				 				 						 								resultat=right( 						 				 				str(MyVal1), 				len(str 				 						 								( 						 				 				MyVal1 				 						 								))- 						 				 				len(str 				 						 								( 						 				 				MyLong1 				 						 						 						 								)))
flute!
 						 				 		

Dim s() As String

Dim x As Double = Math.PI

s = x.ToString.Split(

"," )

MsgBox(x & vbCrLf & s(1).Length)

Bonjour chez vous !

merci super super astucieux je vais essayer

outchhhhhh

un split pour un seul caractère?
en plus "," sans vérifier le séparateur?

SI on doit passer par la conversion string (pas certain), culture, indexof et substring si besoin de récupérer la valeur, sinon juste culture et length - indexof

++

---

Prenez un instant pour répondre à ce sondage svp  

culture oui ok c'est  1 plus

Non c'est obligatoire :)
Chez moi en Suisse, le séparateur est un point, tout comme la norme internationale d'ailleurs (chez Microsoft en tout cas). Ce code ne fonctionne donc pas chez moi.
De plus, la méthode ToString formate en notation scientifique dans certain cas: 0.00002 est formaté en "2E-05", plus de virgule!

Il faudrait savoir si la source du nombre est String ou un nombre flottant. Si c'est un string, on utilise de simple fonction pour les chaines de caractères comme la méthode de Gillardg. Entre parenthèse, voici un solution donnant le même résultat que Gillardg mais sans le Split (a utiliser lorsque la source est un String):
  Dim value As String = "123456789.123456789"
  Dim nbrDec As Integer = value.Length - value.IndexOf(".") - 1

Si la source est un nombre flottant (Single ou Double), ça semble plus compliqué. J'ai testé différent formats numérique, mais elles ne donnent pas le résultat escompté. Par exemple :
  Dim value As Double = 123456789.12345679
  Console.WriteLine(value.ToString("#.###################"))
Ceci affiche 123456789.123457. Pourquoi les 2 derniers chiffres sont-il perdu?
Le seul format qui affiche toutes les décimales, est le format "R" pour "Round-Trip" (Aller-retour): "Le spécificateur d'aller-retour garantit qu'une valeur numérique convertie en chaîne sera analysée dans la même valeur numérique". Je ne comprend pas bien cette phrase, la version en anglais me parle plus: "The round-trip specifier guarantees that a numeric value converted to a string will be parsed back into the same numeric value"
Il s'agit apparemment du format utilisé par IntelliSense.
Le hic, c'est que ce format convertit aussi en notation scientifique pour simplifier le résultat (0.0000000000000001 devient "1E-16")

Gérer manuellement les exposants? Mouais, c'est pas très élégant...