1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Private Sub TextBox1_LostFocus(sender As Object, e As System.EventArgs) Handles TextBox1.LostFocus
If Not IsDate(TextBox1.Text) Then
Select Case Val(Microsoft.VisualBasic.Mid(TextBox1.Text, 4, 2))
Case 1, 3, 5, 7, 8, 10, 12
If Val(Microsoft.VisualBasic.Left(TextBox1.Text, 2)) Then
MsgBox("Le mois " & Val(Microsoft.VisualBasic.Mid(TextBox1.Text, 4, 2)) & " ne compte pas plus de 31 jours")
End If
Case 4, 6, 9, 11
If Val(Microsoft.VisualBasic.Left(TextBox1.Text, 2)) Then
MsgBox("Le mois " & Val(Microsoft.VisualBasic.Mid(TextBox1.Text, 4, 2)) & " ne compte pas plus de 30 jours")
End If
Case 2
If (Val(Microsoft.VisualBasic.Right(TextBox1.Text, 2)) / 4) = 0 Then
REM année bissextile
MsgBox("Le mois " & Val(Microsoft.VisualBasic.Mid(TextBox1.Text, 4, 2)) & " ne compte pas plus de 29 jours")
Else
MsgBox("Le mois " & Val(Microsoft.VisualBasic.Mid(TextBox1.Text, 4, 2)) & " ne compte pas plus de 28 jours")
End If
Case Else
MsgBox("L'année ne compte pas plus de 12 mois")
End Select
End If
End Sub |
Partager