Private Sub calcul_age() Dim datetimenow As Date Dim datedenaissance As Date Dim Age As Integer datetimenow = Now datedenaissance = CDate(TbDn.Text) Age = DateDiff("y", datetimenow, datedenaissance ) If DateDiff("m", datedenaissance, datetimenow) > 0 Then Age = Age - 1 End If If DateDiff("m", datedenaissance, datetimenow) = 0 And DateDiff("d", datedenaissance, datetimenow) > 0) Then Age = Age - 1 End If Me.Label3.Text = " Age : " & Age & " ans" End Sub
Private Sub calcul_age() Dim datetimenow As Date Dim datedenaissance As Date Dim Age As Integer datetimenow = Now datedenaissance = CDate(tbdn.Text) Age = DateDiff("yyyy", datedenaissance, datetimenow) If month(datedenaissance) - month(datetimenow) > 0 Or Day(datedenaissance) - Day(datetimenow) > 0 Then Age = Age - 1 End If Me.Labelstr.Caption = " Age : " & Age & " ans" End Sub
Private Sub calcul_age() Dim Age As Integer Age = int(datediff ( "D", cdate(tbdn.Tex), date) / 365.25) Me.Labelstr.Caption = " Age : " & Age & " ans" End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub CommandButton1_Click() calcul_age End Sub