السلام عليكم
' بسم الله الرحمن الرحيم "
'======================================"
' دالة لعدد الايام بين فترتين "
' واستثناء ايام العطل الاسبوعية "
' باختيار الايام المطلوبة "
'======================================"
'Constant Value Description
'"""""""" """"" """""""""""
'vbSunday 1 Sunday
'vbMonday 2 Monday
'vbTuesday 3 Tuesday
'vbWednesday 4 Wednesday
'vbThursday 5 Thursday
'vbFriday 6 Friday
'vbSaturday 7 Saturday
'======================================"
' في حالة انك لم تختار الايام "
' ستعطيك فارق الايام كاملا "
'======================================"
Function KhCountDay(MyDate_Min, MyDate_Max, ParamArray My_DayNO())
Dim X As Long, M As Long, R As Long, C As Integer
N = UBound(My_DayNO)
X = CDate(MyDate_Max) - CDate(MyDate_Min)
For R = 0 To X
For C = 0 To N
If Weekday(MyDate_Min + R) = My_DayNO(C) Then
M = M + 1
End If
Next C
Next R
KhCountDay = X + 1 - M
End Function
__________________________________________________.rar