وجدت حلا
عملت دالة بل اثنتين .. لأن يوم الخميس مشترك
هذه لوسط الاسبوع جميع الأيام ..... ولآخر الاسبوع فقط الجمعة والسبت
Public Function funDayInweek()
Dim i As Integer
If Weekday(Date) >= 1 And Weekday(Date) <= 5 Then
i = 1
funDayInweek = i
ElseIf Weekday(Date) >= 6 And Weekday(Date) <= 7 Then
i = 2
End If
funDayInweek = i
End Function
ثم عملت الثانية وخصصتها لنهاية الاسبوع يوم الخميس فقط
Public Function funDayInweek5()
If Weekday(Date) = 5 Then
funDayInweek5 = 2
Else
funDayInweek5 = Null
End If
End Function
يوجد في المثال نسخة طبق الأصل من الدالتين .. استبدلت فيها دالة استخراج اليوم بمتغير .. من اجل الفحص والتأكد من النتيجة
Database3.rar