منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
استفسار حول استرداد تاريخ ايام الاسبوع - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=31112)

استفسار حول استرداد تاريخ ايام الاسبوع - fuad_alshujaa - 28-08-19

السلام عليكم اخواني الاعزاء
كيف يمكن استرجاع جميع تواريخ يوم معين خلال شهر
بمعنى اريد ادخال يوم السبت لشهر اغسطس واحصل على تاريخ كل يوم سبت في نفس الشهر

RE: استفسار حول استرداد تاريخ ايام الاسبوع - Rabeea Qbaha - 28-08-19

تفضل اخي هذة هي المثود تقوم بالمطلوب

كود :
Public Function dowInMonth(whDayOfWeek As DayOfWeek, Optional theDate As DateTime = Nothing) As List(Of DateTime)
       'returns all days of week for a given month  
       If theDate = Nothing Then theDate = DateTime.Now
       Dim d As DateTime = New DateTime(theDate.Year, theDate.Month, 1) 'first day of month  
       'calculate the first day of week  
       d = d.AddDays(whDayOfWeek - d.DayOfWeek)
       If d.Month <> theDate.Month Then
           d = d.AddDays(7)
       End If

       'return all of the days of week  
       dowInMonth = New List(Of Date)
       Do While d.Month = theDate.Month
           dowInMonth.Add(d)
           d = d.AddDays(7)
       Loop
   End Function
وهذا مثال لتوضيح الطريقة :


RE: استفسار حول استرداد تاريخ ايام الاسبوع - fuad_alshujaa - 29-08-19

مشكور اخي ربيع