سوال:كيفية جعل بداية الاسبوع السبت

السلام عليكم

جرب هذا الكود ففيه الحل :

Sub test2()

  Dim K As Long



  For K = CLng(#8/16/2003#) To CLng(#8/22/2003#)

    MsgBox Format(K, "dddd") & Chr(13) & _

           "الإفتراضي " & Weekday(K) & Chr(13) & _

           "المطلوب " & Weekday(K, vbSaturday)

  Next K

End Sub

تحياتي .