كيف يمكن تحديد الاسبوع الاول من الشهر وكذلك الاسبوع الثانى هل توجد دالة

استخدم هذا الكود.

        Dim W As Integer, R As Integer

        R = (Day(Date) Mod 7)
        W =( (Day(Date) \ 7)+1)

        If R = 0 Then W = W - 1

        MsgBox W

تحياتي