[ابو ليلى]

السلام عليكم و رحمة الله و بركاته
بالاضافة لما قدمه الاخ عبد العزيز البسكري,
دالة تقوم بحساب العمر (سنة و شهر) و تضعه في Dictionary و انت ستدعي ما تريده منها.

PHP كود :

   'دالة لحساب العمر
    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 


طريقة الاستدعاء لما تريد , بفرض لديك DateTimePiker و اسمها Dt_Brithdate
كما يلي:

PHP كود :

  

        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