كود لتحديد هل يقع التاريخ فى الأسبوع الحالي أم لا

[محمد طاهر عرفه]

Function THISWEEK(MYDATE) As Boolean


If IsNull(MYDATE) Then

THISWEEK = FLASE

Exit Function

End If


Dim checkday As Byte, startdate As Date, enddate As Date

checkday = Weekday(MYDATE, 1)

If checkday = 7 Then checkday = 0


startdate = MYDATE - checkday

enddate = startdate + 6


'MsgBox startdate

'MsgBox ENDDATE


If ((startdate <= Now()) And (enddate >= Now())) Then

 THISWEEK = True

Else

 THISWEEK = False

End If



End Function

Function Myweekday(MYDATE As Date)


Dim checkday As Byte

checkday = Weekday(MYDATE, 1)

If checkday = 7 Then checkday = 0


Myweekday = checkday


End Function

الموضوع فى الاكسيل ، مع مثال