[أبووسم]

السلام عليكم

اريد ان اعرف عمر الموظف بالسنوات فقط مثال

30 سنة ،،، وليس بالأيام و الشهور و السنوات

تجدون برنامج في المرفقات ، اتمنى المساعدة ولكم جزيل الشكر و التقدير

[عبد العزيز البسكري]

هذا مثال أخي الكريم ..

كود :

   Private Sub DateTimePicker1_KeyUp(sender As Object, e As KeyEventArgs) Handles DateTimePicker1.KeyUp
       TextBox1.Text = DateTime.Now.Year - DateTimePicker1.Value.Year
   End Sub

[ابو ليلى]

السلام عليكم و رحمة الله و بركاته
بالاضافة لما قدمه الاخ عبد العزيز البسكري,
دالة تقوم بحساب العمر (سنة و شهر) و تضعه في 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 


[أبووسم]

بارك الله فيكم جميعاً

جميع حلولكم على العين و الرأس

شاكر و مقدر لكم سرعة الرد و الإجابة