cs_Jordan59
Messages postés174Date d'inscriptionvendredi 26 mai 2006StatutMembreDernière intervention 9 avril 2014
-
12 juin 2007 à 15:47
cs_Jordan59
Messages postés174Date d'inscriptionvendredi 26 mai 2006StatutMembreDernière intervention 9 avril 2014
-
12 juin 2007 à 16:46
Bonjour à tous,
Je ne sais plus comment traduire un "ou" en VB 6
et : &
ou : ?
J'ai honte, j'ai fais trop de C# et du coup je ne sais plus :(
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 12 juin 2007 à 16:40
Je ne sais pas où tu te "plantes" dans ton code (t'as bien vérifié tout, y compris les positions de tes End If ?).
Mais voilà la preuve de ce que rien ne devrait empêcher ce fonctionnement !
Private Sub Command1_Click()
dddd = "02/01/2222"
heure = "10:00:00"
jour = Format(dddd, "w") If heure "10:00:00" Or jour 2 Or jour = 3 Or jour = 4 Then
MsgBox ("pris")
Else
MsgBox ("pas pris")
End If
End Sub
Alors : montre-nous tout depuis le If jusqu'au End If (qu'on n'a pas encore aperçu ...)
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 12 juin 2007 à 15:50
Salut,
ATTENTION
& n'est pas un ET en VB6 c'est le concaténeur de chaine ou bien le caractere d'indication de type Long
essaie de regarder du coté de AND et OR
cs_Jordan59
Messages postés174Date d'inscriptionvendredi 26 mai 2006StatutMembreDernière intervention 9 avril 20147 12 juin 2007 à 16:11
En tout cas mon if ne fonctionne pas !
dans une variable jour qui est en entier, je met le numéro du jour
If heure "10:00:00" Or jour 2 Or jour = 3 Or jour = 4 Then
msgbox("pris")
Else msgbox ("pas pris")
j'ai toujours "pas pris" qui s'affiche même quand jour est égal à 2, 3 ou 4
Je ne sais donc plus quoi faire !
Si quelqu'un voit une erreur dans ce que j'ai écrit qu'il me le dise ! merci
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 12 juin 2007 à 16:18
Salut;
Essaye séparément :
Private Sub Command1_Click()
heure = "11:01:01"
jour = 2 If heure "10:00:00" Or jour 2 Or jour = 3 Or jour = 4 Then
MsgBox ("pris")
Else
MsgBox ("pas pris")
End If
End Sub
Et tu verras que ça marche (forcément, d'ailleurs)
Conclusion ? ta variable jour n'est pas définie réellement comme integer (probablement une string après un tremplin quelconque du hgente textBox, Label, etc...)
cs_Jordan59
Messages postés174Date d'inscriptionvendredi 26 mai 2006StatutMembreDernière intervention 9 avril 20147 12 juin 2007 à 16:22
la première condition avec l'heure fonctionne puisque que quand l'heure est égale à 10 h, "pris" s'affiche
jour est déclaré en integer et je l'a rempli de cette façon : jour = Format(Cal.Value,"w")
quand j'affiche jour dans un messagebox, j'ai bien le numéro qui s'affiche
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 12 juin 2007 à 16:30
Je remarque des espaces...
Figurent-ils également dans ce qu'affiche ta msgbox ???
Si j'ai ajouté l'affichage de "a", entre autres, c'est précisément pour voir s'il y a ou non des espaces !!!
Dis-nous (exactement, s'il te plait)
cs_Jordan59
Messages postés174Date d'inscriptionvendredi 26 mai 2006StatutMembreDernière intervention 9 avril 20147 12 juin 2007 à 16:46
ça y est ça marche, je sais pas pourquoi peut être une erreur d'espace, merci de m'avoir aidé en tout cas !
Pour le if, il y en a 10 imbriqués et l'heure vient d'une base de données
C'est pour la réservation des heures de conduite pour une auto-école.
Programme que je dois présenter au BTS cette année
C'est difficile pour moi car je n'ai pas fait de VB depuis 1 an car je suis passé au C#