+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طريقة معرفة عمر الموظف ........ بالسنوات (/showthread.php?tid=24878)
طريقة معرفة عمر الموظف ........ بالسنوات - أبووسم - 09-05-18
السلام عليكم
اريد ان اعرف عمر الموظف بالسنوات فقط مثال
30 سنة ،،، وليس بالأيام و الشهور و السنوات
تجدون برنامج في المرفقات ، اتمنى المساعدة ولكم جزيل الشكر و التقدير
RE: طريقة معرفة عمر الموظف ........ بالسنوات - عبد العزيز البسكري - 09-05-18
هذا مثال أخي الكريم ..
كود :
Private Sub DateTimePicker1_KeyUp(sender As Object, e As KeyEventArgs) Handles DateTimePicker1.KeyUp
TextBox1.Text = DateTime.Now.Year - DateTimePicker1.Value.Year
End SubRE: طريقة معرفة عمر الموظف ........ بالسنوات - ابو ليلى - 09-05-18
السلام عليكم و رحمة الله و بركاته
بالاضافة لما قدمه الاخ عبد العزيز البسكري,
دالة تقوم بحساب العمر (سنة و شهر) و تضعه في 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
RE: طريقة معرفة عمر الموظف ........ بالسنوات - أبووسم - 10-05-18
بارك الله فيكم جميعاً
جميع حلولكم على العين و الرأس
شاكر و مقدر لكم سرعة الرد و الإجابة