Как определить день недели по дате в Excel

Описание функции

Функция =ДЕНЬНЕДТ(ДАТА; [Сокращенно]) имеет два аргумента

• - ДАТА - дата, день недели которой необходимо определить.
• - [Сокращенно] - По умолчанию день недели прописывается полностью. Если необходимо отображать день недели сокращенно, укажите значение данной переменной равной 1.

Ниже приведены примеры работы данной формулы.

Пример 1

Определение дня недели за последние 7 дней.

Пример 2

Определение дня недели за последние 7 дней сокращенно.

Код на VBA

Public Function ДЕНЬНЕДТ(ДАТА As Date, Optional Сокращенно As Integer = 0) As String
 
    Dim DayOfWeek As Variant
 
    If Сокращенно = 0 Then
        DayOfWeek = Array("понедельник", "вторник", "среда", "четверг", "пятница", "суббота", "воскресенье")
    Else
        DayOfWeek = Array("пн.", "вт.", "ср.", "чт.", "пт.", "сб.", "вс.")
    End If
    ДЕНЬНЕДТ = DayOfWeek(Weekday(ДАТА, vbMonday) - 1)
 
End Function