VB6 Fonction MIDRésolu

Question

Salut J'ai un probl&#232;me avec la fonction MID...

J'ai regard&#233; sur MSDN et &#231;a ne m'aide pas plus... Il y a quelque chose que je ne comprend pas...

J'inscrit dans un textbox le nombre 60,2550 et je veux fais un calcul avec le nombre 25

int1 = Left(txtTest.Text, 2)  ' int1=60
int2 = Mid(txtTest.Text, 3) 'Ici ca ne fonctionne pas 
int3 = Right(txtTest.Text, 2) 'int3=50

Ca me dit qu'il y a un type incompatible...

Est ce que j'utilise la bonne fonction ?????

Aidez moi... merci d'avance...

cs_casy · Accepted Answer

As-tu regardé à quoi étais égal Mid(txtTest.Text,3) ? et int2 est déclaré comment ? Mid(txtTest.Text,3) te donne ",2550" en supposant que int2 soit déclaré en integer, ",2550" n'est pas reconnu comme un nombre, donc la conversion implicite que tu as écrit (string vers integer) ne peut pas marché car type incompatible. l'aide du MSDN est pourtant claire : Mid(string, start[, length]) Élément, Description, ---- string,

Expression de chaîne dont sont extraits les caractères à renvoyer. Si l'argument string contient une valeur de type

Null, Null est renvoyé., ---- start, Donnée de type

Long. Position du caractère dans l'argument string qui marque le début de la partie à extraire. Si la valeur de l'argument start est supérieure au nombre de caractères contenus dans l'argument string, la fonction Mid renvoie une chaîne de longueur nulle ("")., ---- length, Facultatif. Donnée de type Variant (Long). Nombre de caractères à renvoyer. Si l'argument length est omis ou si le nombre de caractères du texte (y compris le caractère qui occupe la position start), est inférieur à la valeur de cet argument, tous les caractères à compter de la position start et jusqu'à la fin de la chaîne sont renvoyés. en gros pour avoir 25, il te faut écrire int2=Mid(txtTest.Text,4,2) Si le cerveau était assez simple pour que nous puissions le comprendre, nous serions assez bête pour ne p

PCPT · Answer

int2 = int(mid$(txttest.text,4,2) normalement....

et casy a raison de te demander le type de int1/2/3.... pense &#224; convetir le r&#233;sultat avec int(...chaine.....) (si Integer...)

PCPT  [AFCK]

cs_casy · Answer

Attention, pcpt, c'est pas int() qu'il faut utilis&#233; mais Cint()



Int ne renvoie que la partie enti&#232;re du nombre tandis que Cint renvoi l'entier le plus proche (avec l'arondi r&#233;glementaire)

ex : 

int(4.85) renvoie 4

cint(4.85) renvoie 5


et pour finir int est tr&#232;s pervers avec les nombres n&#233;gatifs

 Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,
nous serions assez b&#234;te pour ne p

Gobillot · Answer

si tu prenais la peine de regarder les r&#233;ponses:

http://www.vbfrance.com/forum.v2.aspx?ID=612282







Text1.Text = "60.2550"

Rappel:

s = Text1.Text

Lg = Len(s)    'Lg=7
MsgBox  Left$(s, Lg - 5) + Mid$(s, Lg - 3, 2) / 60 + Right$(s, 2) / 3600
Left$(s, Lg - 5)  -->  Left$(s, 2)

Mid$(s, Lg - 3, 2) --> Mid$(s, 4, 2)

Right$(s, 2) --> Right$(s, 2)





ou si tu pr&#233;f&#232;res:

Dim lg As Integer

Dim int1 As Integer

Dim int2 As Integer

Dim int3 As Integer



lg = Len(Text1.Text)

int1 = Left$(Text1.Text, lg - 5)

int2 = Mid$(Text1.Text, lg - 3, 2)

int3 = Right$(Text1.Text, 2)



marche aussi pour d.mmss ou dd.mmss ou ddd.mmss




Daniel

PCPT · Answer

casy ->   int(25) &#231;&#224; fait quoi?

pas grave.... sur le principe, pourquoi pas ;)

Gobillot · Answer

&#231;a incite pas &#224; te r&#233;pondre.


Daniel

PCPT · Answer

pareil !

et un merci aux "autres participants" ne prend pas beacoup plus de temps que la simple validation....

VB6 Fonction MID

7 réponses

Discussions similaires