معرفة كم مره تكرر يوم بين تاريخين

Dim date1 As Date
		Dim date2 As Date
		date1 = CDate(DateTimePicker1.Text)
		date2 = CDate(DateTimePicker2.Text)
		Dim counter As Integer = 0
		Dim date3 As Date
		For i As Long = 1 To DateDiff(DateInterval.Day, date1, date2)
			date3 = DateAdd(DateInterval.Day, i, date1)
			If date3.DayOfWeek = DayOfWeek.Friday Or date3.DayOfWeek = DayOfWeek.Thursday Then
				counter += 1
			End If
		Next
		MsgBox(counter)

جزاك الله ألف خير و جاري التجربة

الأخ الفاضل ...

راجع الكود التالى والمرفق مع المثال فى الموضوع: كيف يمكن معرفة كم يتكر احد ايام الاسبوع بين تاريخين

Private Function GetRepeats(FromDate As Date, ToDate As Date, nDay As Integer) As Long
	Dim StartDate As Date
	Dim PreDays As Integer

	PreDays = nDay - Weekday(FromDate)
	If PreDays < 0 Then PreDays = PreDays + 7
	StartDate = DateAdd("d", PreDays, FromDate)
	If StartDate <= ToDate Then
		GetRepeats = Int(DateDiff("d", StartDate, ToDate) / 7) + 1
	End If
End Function

كذلك راجع أيضاً الموضوع: مطلوب الفرق بين تاريخين بدون يومي الخميس والجمعة ؟

شكراً

8

8

8

8

الف شكر