+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] ارجو المساعدة فرق بين تاريخين وعدم حساب يوم السبت والجمعة (/showthread.php?tid=41232)
ارجو المساعدة فرق بين تاريخين وعدم حساب يوم السبت والجمعة - Mohamed.vbnet - 22-04-22
السلام عليكم اخواتي
اريد المساعدة في حسب اجازة موظف بين DateTimePicker2.Value و DateTimePicker1.Value
وعدم حساب يوم السبت والجمعة
مع العلم اني استخدام هذه الدالة
TextBox1.Text = (DateDiff(DateInterval.Day, DateTimePicker1.Value, DateTimePicker2.Value))
RE: ارجو المساعدة فرق بين تاريخين وعدم حساب يوم السبت والجمعة - ابو انس - 22-04-22
وعليكم السلام
تفضل
كود :
Dim D1 As Date = DateTimePicker1.Value
Dim D2 As Date = DateTimePicker2.Value
Dim def As New TimeSpan()
def = D2 - D1
TextBox1.Text = def.Days + 1
Dim Alldays As Integer = Val(TextBox1.Text)
Dim list2 = Enumerable.Range(0, Alldays).Select(Function(i) _
New With {Key .Description = DateAdd(DateInterval.Day, i, D1), _
Key .Weekday = DatePart(DateInterval.Weekday, DateAdd(DateInterval.Day, i, D1))})
Dim daysCount = (From x In list2 Where x.Weekday <> DayOfWeek.Friday And x.Weekday <> DayOfWeek.Saturday).Count()
TextBox2.Text = daysCount
End SubRE: ارجو المساعدة فرق بين تاريخين وعدم حساب يوم السبت والجمعة - Mohamed.vbnet - 23-04-22
مشكور اخي ابو انس جزاك الله خير