senediene
Messages postés19Date d'inscriptionmercredi 28 avril 2004StatutMembreDernière intervention 5 septembre 2005
-
18 août 2005 à 14:15
crenaud76
Messages postés4172Date d'inscriptionmercredi 30 juillet 2003StatutMembreDernière intervention 9 juin 2006
-
19 août 2005 à 00:20
faraday
bonjour j'ai un problem je veux recuperer les deux premiers chiffre d'une variable dans un notre variable.
exemple
dim g as interger
g=12558
maintenant je veux recuperer le 1 et le 2 dans une autre variable
A voir également:
Recuperer les deux premier chiffre d'une variable dans un autre
JONJON91
Messages postés30Date d'inscriptionvendredi 20 mai 2005StatutMembreDernière intervention18 août 2005 18 août 2005 à 14:29
Salut.
Je suis débutant et voici un code que g déjà utilisé.
1.Place l'ensemble de ta valeur dans charsInFile%(dans mon ex c le texte contenue dans txtNote, mais sa peut etre une variable aussi).
2.La boucle permet de récupérer un par un les caractère.
3.Si tu veut seulement les deux premier, alors remplace "For i% 1 To charsInFile%", par "For i% 1 To 2"
charsInFile% = Len(txtNote.Text)
For i% = 1 To charsInFile%
letter$ = Mid(txtNote.Text, i%, 1).
Merci de confirmer si cela te convient. Sinon tiens moi au courant.
crenaud76
Messages postés4172Date d'inscriptionmercredi 30 juillet 2003StatutMembreDernière intervention 9 juin 200628 18 août 2005 à 14:29
tu peux passer par une variable temporaire de type string et en extraire les deux premiers caractères via la fonction Left$() et reconvertir le résultat en Integer, comme ceci ...
Dim i As Integer, j As Integer
i = 12558
j = CInt(left$(CStr(i), 2)
ATTENTION ! Ce code ne vérifie pas que i est bien >= à 10. En effet, si i contient uen valeur ne comportant pas au moins 2 chiffres, l'appel à la
fonction Left$( ...,2) va généré une erreur. A toi de voir si tu dois veiller au grain ou pas !!
Christophe
Vous n’avez pas trouvé la réponse que vous recherchez ?