تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استفسار حول استرداد تاريخ ايام الاسبوع
#1
السلام عليكم اخواني الاعزاء
كيف يمكن استرجاع جميع تواريخ يوم معين خلال شهر
بمعنى اريد ادخال يوم السبت لشهر اغسطس واحصل على تاريخ كل يوم سبت في نفس الشهر
الرد
تم الشكر بواسطة:
#2
تفضل اخي هذة هي المثود تقوم بالمطلوب

كود :
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
وهذا مثال لتوضيح الطريقة :


الملفات المرفقة
.rar   WindowsApp1.rar (الحجم : 183.6 ك ب / التحميلات : 21)
الرد
#3
مشكور اخي ربيع
الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  زيادة عدد من السنوات لحقل تاريخ atefkhalf2004 8 223 منذ 13 دقيقة مضت
آخر رد: ابو انس
  [سؤال] استفسار عن دالة لحساب الارقام المتشابهة نيمو 7 334 27-09-21, 09:30 PM
آخر رد: ماشي
  [VB.NET] السلام عليكم عندي استفسار بخصوص الكلاسات AhmedRamadan 3 414 18-09-21, 08:02 PM
آخر رد: العطر الرايق
  استفسار بخصوص فيجوال ستوديو 2013 AhmedRamadan 3 270 17-09-21, 09:02 PM
آخر رد: العطر الرايق
  [VB.NET] استفسار بخصوص التقارير في .net Core 5 mrfenix93 1 199 17-09-21, 08:17 PM
آخر رد: asemshahen5
  استفسار بخصوص اختصار اسم الصنف في شاشة المبيعات ahmedbezia 4 283 17-09-21, 02:53 AM
آخر رد: ahmedbezia
Exclamation استفسار بخصوص مشروع عمل ختمة قرآنية بتوزيع الصفحات (لأصحاب الصدقات الجارية) elsayedhasan 10 802 11-09-21, 07:01 PM
آخر رد: dalas
  استفسار بخصوص اخذ نسخه احتياطيه(تم الحل)مشكور اخوانى (waw والاخ asemshahen5) خالد كامل1 18 1,072 07-09-21, 09:45 PM
آخر رد: waw
  [VB.NET] استفسار Nani 4 559 23-08-21, 06:40 PM
آخر رد: Nani
  [VB.NET] استفسار محمد صالح احمد 1 277 16-08-21, 09:07 PM
آخر رد: asemshahen5

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


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