Do Loop pour avoir jour mois année

Question

'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
@+

GtommarC · Answer

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

Do Loop pour avoir jour mois année

1 réponse

Discussions similaires