Функция =ДЕНЬНЕДТ(ДАТА; [Сокращенно]) имеет два аргумента
Ниже приведены примеры работы данной формулы.
Определение дня недели за последние 7 дней.
Определение дня недели за последние 7 дней сокращенно.
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