الوظيفة VBA: Weekday

وصف

ترجع الدالة VBA Weekday رقم يوم الأسبوع (من 1 إلى 7) للتاريخ المحدد.

بناء الجملة Weekday

Weekday (التاريخ)

أو

Weekday (التاريخ ، أول يوم_من_الأسبوع)

الترقيم

افتراضيًا ، اليوم الأول من الأسبوع هو الأحد (1) واليوم الأخير هو السبت (7).

لتغيير الترقيم بحيث يكون الاثنين هو اليوم الأول من الأسبوع (1) والأحد هو آخر يوم في الأسبوع (7) ، أضف القيمة 2 كوسيطة ثانية عند استخدام هذه الوظيفة:

Weekday (التاريخ ، 2)

مثال VBA Weekday

استخدام الدالة Weekday لعرض رقم أيام الأسبوع لتواريخ متعددة:

Sub WeekdayExample1()
    
    MsgBox Weekday(#11/2/2020#, 2)          'العوائد: 1
    MsgBox Weekday("3.11.20", 2)            'العوائد: 2
    MsgBox Weekday("4 nov 2020", 2)         'العوائد: 3
    MsgBox Weekday("5/11/2020 17:30:21", 2) 'العوائد: 4
    
End Sub

استخدام الوظيفة Weekday للتمييز بين يوم من أيام الأسبوع وعطلة نهاية الأسبوع:

Sub WeekdayExample2()

    If Weekday(Now, 2) < 6 Then
        MsgBox "يوم من أيام الأسبوع ..."
    Else
        MsgBox "إنها إجازة نهاية الأسبوع!"
    End If
    
End Sub