Private Sub DateTimePicker1_KeyUp(sender As Object, e As KeyEventArgs) Handles DateTimePicker1.KeyUp
TextBox1.Text = DateTime.Now.Year - DateTimePicker1.Value.Year
End Sub 'دالة لحساب العمر
Function CalcAge(ByVal vDate1 As Date, ByVal vdate2 As Date) As Dictionary(Of Integer, Integer)
Dim AgeCAlc As New Dictionary(Of Integer, Integer)
Dim vYears As Integer, vMonths As Integer, vDays As Integer
vMonths = DateDiff("m", vDate1, vdate2)
vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
If vDays < 0 Then
vMonths = vMonths - 1
vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
End If
vYears = vMonths \ 12
vMonths = vMonths Mod 12
AgeCAlc.Add(vYears, vMonths)
Return AgeCAlc
End Function
If Dt_Brithdate.DateTime > DateTime.Now Then
'لحساب السنة
Txt_Ageyear.Text = CalcAge(Format(DateTime.Now, "dd/MM/yyyy"), Format(Dt_Brithdate.DateTime, "dd/MM/yyyy")).Keys.ElementAt(0)
'لحساب الشهر
Txt_Agemonth.Text = CalcAge(Format(DateTime.Now, "dd/MM/yyyy"), Format(Dt_Brithdate.DateTime, "dd/MM/yyyy")).Values.ElementAt(0)
Else
Txt_Ageyear.Text = CalcAge(Dt_Brithdate.DateTime, DateTime.Now).Keys.ElementAt(0)
Txt_Agemonth.Text = CalcAge(Dt_Brithdate.DateTime, DateTime.Now).Values.ElementAt(0)
End If
If Dt_Brithdate.DateTime = Nothing Then
Txt_Ageyear.Text = 0
Txt_Agemonth.Text = 0
End If