رسالة بأنه التاريخ قد صادف يوم خميس أو جمعة

اليك اخى هذه الدالة

Public Function AGAZA(mydate As Date) As Boolean
Dim firstweekday As Integer

If mydate >= #1/7/2006# Then
firstweekday = 1
Else
firstweekday = 7
End If

Select Case Weekday(mydate, firstweekday)
Case 6, 7
AGAZA = True
Case Else
AGAZA = False
End Select

End Function

ومثال لاستخدامها

ضع هذا الكود فى حدث عند فقد التركيز او بعد التحديث لمربع النص

If AGAZA(Me.Date1) Then
MsgBox "هذا التاريخ يوافق يوم " & Format(Me.Date1, "DDDD")
End If

بعد اذن استاذنا ابويوسف

جرب اخي هذا التعديل

8888.rar

ما شاء الله أخي عبيد الله

ما شاء الله أخي أبو يوسف

بوركتم يا إخوان...

الموضوع 100 %

تحياتي لكم ولجميع الأعضاء الكرام :lol:

جزاكم الله خيراااااااااا جميعا

أخي أبو يوسف

أخي عبيد الله

أيمن الزعبي