الوظيفة VBA: WeekdayName

وصف

ترجع الدالة VBA WeekdayName اسم يوم الأسبوع بناءً على رقمه.

بناء الجملة WeekdayName

WeekdayName (التاريخ)

أو

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

الترقيم

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

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

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

مثال VBA WeekdayName

استخدام الوظيفة WeekdayName لعرض اسم السبعة أيام:

Sub WeekdayNameExample1()

     MsgBox WeekdayName(1) 'العوائد: الاثنين
     MsgBox WeekdayName(2) 'العوائد: الثلاثاء
     MsgBox WeekdayName(3) 'العوائد: الأربعاء
     MsgBox WeekdayName(4) 'العوائد: الخميس
     MsgBox WeekdayName(5) 'العوائد: الجمعة
     MsgBox WeekdayName(6) 'العوائد: السبت
     MsgBox WeekdayName(7) 'العوائد: الأحد
    
End Sub

يمكن للدالة WeekdayName أيضًا عرض نسخة مختصرة من اليوم عن طريق تمرير قيمة كوسيطة ثانية:

Sub WeekdayNameExample2()

     MsgBox WeekdayName(1, True) 'العوائد: Mon.
     MsgBox WeekdayName(2, True) 'العوائد: Tue.
     MsgBox WeekdayName(3, True) 'العوائد: الأربعاء.
     MsgBox WeekdayName(4, True) 'العوائد: Thu.
     MsgBox WeekdayName(5, True) 'العوائد: جمعة.
     MsgBox WeekdayName(6, True) 'العوائد: سبت.
     MsgBox WeekdayName(7, True) 'العوائد: الشمس.
    
End Sub

اسم اليوم حسب التاريخ

باستخدام الدالتين Weekday و WeekdayName ، يمكنك الحصول على اسم يوم الأسبوع من تاريخ:

Sub WeekdayNameExample3()

    MsgBox WeekdayName(Weekday("30/11/2020", 2)) 'العوائد: الاثنين
    
End Sub

على الرغم من أنه من الأسهل الانتقال مباشرة من خلال دالة التنسيق FORMAT:

Sub WeekdayNameExample4()

    MsgBox Format("30/11/2020", "dddd") 'العوائد: الاثنين
    
End Sub