Функція VBA: WeekdayName

Опис

Функція VBA WeekdayName повертає назву дня тижня на основі його номера.

Синтаксис WeekdayName

WeekdayName(дата)

Або

WeekdayName(дата, перший_день_тижня)

Нумерація

За замовчуванням перший день тижня — неділя (1), а останній — субота (7).

Щоб змінити нумерацію так, щоб понеділок був першим днем тижня (1), а неділя — останнім (7), додайте значення 2 як другий аргумент під час використання цієї функції:

WeekdayName(дата, 2)

Приклад VBA WeekdayName

Використання функції WeekdayName для відображення назви 7 днів:

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) 'Повертає: Пн.
     MsgBox WeekdayName(2, True) 'Повертає: Вт.
     MsgBox WeekdayName(3, True) 'Повертає: Ср.
     MsgBox WeekdayName(4, True) 'Повертає: Чт.
     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