cs_MagDix
Messages postés532Date d'inscriptionlundi 5 juin 2006StatutMembreDernière intervention 6 octobre 2012
-
9 avril 2008 à 21:03
Whismeril
Messages postés18620Date d'inscriptionmardi 11 mars 2003StatutContributeurDernière intervention27 septembre 2023
-
22 sept. 2023 à 12:32
Salut... je suis en VB6
Je cherche un moyen de prendre les décimal d'un nombre et de les mettres en entier
Exemple
Si j'ai 100,22
Je veux que ,22 devienne 22
Je dois faire cela en utilisant la foinctione Right/Left et instr
je ne peux pas faire ,22 * 100 le résultat n'est pas bon pour ce que je veux en faire
Exemple si j'ai 100,2 je veux avoir comme résultat 2 et non 20 (si je fais ,2 * 100)
Bref quelle est la meilleur solution avec les fonctions instr et Right/Left
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 201314 9 avril 2008 à 21:38
oupps !
j'ai valider par erreur avant d'avoir fini
Sub valeur()
Dim Nombre As String, Decimale As Long
Nombre = "100,22"
Decimale = CLng(Right(Nombre, Len(Nombre) - InStr(1, Nombre, ",", 1)))
MsgBox Decimale
End Sub