السلام عليكم
تفضل هذه الدالة التجريبية
اذا كانت تفي بالغرض بالشكل المطلوب سنفردها بموضو ع مستقل
جرب واعطينا النتائج حسب التجربة بملفك الخاص
' بسم الله الرحمن الرحيم "
'======================================"
' دالة تجريبية لعدد الايام بين فترتين "
' واستثناء ايام العطل الاسبوعية "
' باختيار الايام المطلوبة "
'======================================"
'======================================"
Function KhCountDay(khDay1 As Date, khDay2 As Date, khName1 As String, khName2 As String)
Dim X As Integer, M As Integer, R As Integer
If khDay1 = 0 Or khDay2 = 0 Then KhCountDay = "": GoTo 1
X = khDay2 - khDay1
M = 0
For R = 0 To X
If Format(khDay1 + R, "dddd") = khName1 Or Format(khDay1 + R, "dddd") = khName2 Then
M = M + 1
End If
Next R
KhCountDay = X + 1 - M
1 End Function
______________________________________________________.rar