recuperer les deux premier chiffre d'une variable dans un autreRésolu

Question

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

Utilisateur anonyme · Accepted Answer

Bonjour



Pas plus simple que &#231;a:



Dim sg as String

sg = Cstr(g)

Dim tt as integer

tt = cint(left(sg,2))


 ChRB
 
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

Gobillot · Answer

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

JONJON91 · Answer

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

crenaud76 · Answer

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

Gobillot · Answer

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

violent_ken · Answer

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

crenaud76 · Answer

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

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

7 réponses

Discussions similaires