كيف يمكن معرفة كم يتكر احد ايام الاسبوع بين تاريخين

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

DatesDays.zip

أرجوا أن يفيدك هذا المثال فى ما تريد إنجازه، بأستخدام (MS-VB 6.0)

يمكنك أستخدام دالى لحساب ذلك بالشكل التالى

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

شكراً

أخي مشرف منتدى الفيجوال البيسك

جزاك الله خيرًا أخير وجعلها في ميزان حسناتك

هذا ما أردته بالضبط ..