Do Loop pour avoir jour mois année

Signaler
Messages postés
1
Date d'inscription
lundi 23 octobre 2000
Statut
Membre
Dernière intervention
4 juin 2002
-
GtommarC
Messages postés
37
Date d'inscription
lundi 20 mai 2002
Statut
Membre
Dernière intervention
25 avril 2003
-
'lut, suis nouveau, commence juste la programmation. Sur Vb il met demandé de vérifier la validité de l'entrée année, mois et jour.
Seulement pour le jour je suis embété.
Exemple, pour vérifier si la le jour de 1 a 30 pour le mois 4, 6, 9, et 11.
Ma question est donc de savoir comment je peux ma vérif en une fois et non faire une boucle do loop pour chaque mois :(
merci
@+

1 réponse

Messages postés
37
Date d'inscription
lundi 20 mai 2002
Statut
Membre
Dernière intervention
25 avril 2003

en supposant que tu utilise une text box pour les jours, une pour les mois et une pour les années

Select Case Val(mois.Text)
Case Is = 2
If Val(jour.Text) > 29 Then
re = MsgBox("il ne peut pas y avoir plus de 29 jours en février", vbOKOnly, "ERREUR DE MOIS")
End If

Case Is = 4, 6, 9, 11
If Val(jour.Text) > 30 Then
re = MsgBox("il ne peut pas y avoir plus de 30 jours dans ce mois", vbOKOnly, "ERREUR DE MOIS")
End If
End Select
GtommarC