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

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

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

بطريقتين الاولي بالداوال علي أكثر من خطوة و الثانية بالكود

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

checkthisweek.zip

[Sharaf]

أحيى الأخ محمد طاهر على هذه الطريقة الرائعة التى عالج بها الفكرة و تغلب فيها على عدم وجود دالة لتحديد الاسبوع مثل دالتى year,month

و التى تدل على سعة حيلة يُغبط عليها :yess:

:yess:

تم تعديل يونيو 26, 2003 بواسطه Sharaf

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

السلام عليكم

تم تعديل الملف

1- تم ربط التواريخ بتاريخ اليوم

2- تم اضافة الكود التالي : لتحديث نتيجة الدوال عند فتح الملف ووجود تعديل فى تاريخ الجهاز

Private Sub Workbook_Open()

  

  Me.RefreshAll


End Sub