تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ارجو المساعدة فرق بين تاريخين وعدم حساب يوم السبت والجمعة
#1
السلام عليكم اخواتي
اريد المساعدة في حسب اجازة موظف بين DateTimePicker2.Value و DateTimePicker1.Value 
وعدم حساب يوم السبت والجمعة 
مع العلم اني استخدام هذه الدالة 
 TextBox1.Text = (DateDiff(DateInterval.Day, DateTimePicker1.Value, DateTimePicker2.Value))
الرد }}}
تم الشكر بواسطة: ابو انس , ابراهيم ايبو , asemshahen5
#2
وعليكم السلام
تفضل
كود :
       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 Sub
ارجو ان يكون الكود واضح
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
#3
مشكور اخي ابو انس جزاك الله خير
الرد }}}
تم الشكر بواسطة: ابو انس , ابو انس , asemshahen5



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم