كيف اعمل هذا الاستعلام

هذا حل ع السريع قد يكون هناك حل افضل !!

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

TextBox1.Text = ""
		Dim i As Integer = 0
		Dim diff As Integer = DateDiff(DateInterval.Day, CDate(DateTimePicker1.Text), CDate(DateTimePicker2.Text))
		Dim Total As Integer = 0
		For i = 0 To diff
			If DateAdd(DateInterval.Day, i, CDate(DateTimePicker1.Text)).DayOfWeek = DayOfWeek.Friday Or DateAdd(DateInterval.Day, i, CDate(DateTimePicker1.Text)).DayOfWeek = DayOfWeek.Saturday Then
				Total += 1
			End If
		Next
		TextBox1.Text = Total.ToString

عدلت لك البرنامج فى المشاركة الأولى وهذا مسارها

الرابـــــــــــــط