Sub TestAge() If (Not IsDate(Me.TextBox1.Text)) OrElse _ Age(Convert.ToDateTime(Me.TextBox1.Text)) < 12 OrElse _ Age(Convert.ToDateTime(Me.TextBox1.Text)) > 30 Then MsgBox("Date incorrecte") End If End Sub Function Age(ByVal DateNaissance As Date) As Integer If Now > DateSerial(Now.Year, DateNaissance.Month, DateNaissance.Day) Then Return Now.Year - DateNaissance.Year Else Return Now.Year - DateNaissance.Year - 1 End If End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionLe mindate et maxdate est tout aussi galère, car il faudra le changer tous les ans, sinon en 2011 il acceptera la saisie de personnes ayant 31 ans.
Year(Date)