recuperer les deux premier chiffre d'une variable dans un autre

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

MsgBox Left$(CStr(g), 2)
'conversion implicite
MsgBox Left$(g, 2)


Daniel

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.

Jonathan

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

he non il n'y aura pas d'erreur !
il y aura au moins un zéro et un seul chiffre sera revoyé
par contre si négatif il y aura le signe moins

Daniel

Violent Ken

Le plus simple , c'est
g = 12558
a = Val(Left(g, 2))

@+

Gobillot < Toutes mes excuses, j'étais parsuadé que Left() etait sensible à ce genre de choses ... Me coucherais moins C _ N ce soir ...

Christophe