Функция WeekDay

Приема серийно число, генерирано от функцията DateSerial или DateValue и връща число, съответстващо на деня от седмицата.

Тази страница описва функцията WeekDay, използвана в скриптове на Basic. Ако ви интересува функцията WeekDay, използвана в LibreOffice Calc, вижте тази страница от помощта.

Синтаксис:


  WeekDay (SerialDate, [FirstDayOfWeek])

Параметри:

SerialDate: числов израз – серийно число на дата, за която искате да бъде изчислен денят от седмицата.

FirstDayOfWeek: целочислена стойност, указваща кой ден от седмицата се смята за първи. Подразбираната стойност е 0, която означава, че за определяне на първия ден от седмицата се използват системните настройки за локал.

Параметърът FirstDayOfWeek приема стойности от 0 до 7. В таблицата по-долу са описани значенията на допустимите стойности.

Стойност	Константа на VBA	Описание
0	vbUseSystemDayOfWeek	Използват се системните настройки за локал.
1	vbSunday	Неделя (по подразбиране)
2	vbMonday	Понеделник
3	vbTuesday	Вторник
4	vbWednesday	Сряда
5	vbThursday	Четвъртък
6	vbFriday	Петък
7	vbSaturday	Събота

Изброените по-горе константи на VBA са достъпни само ако е разрешена поддръжката за VBA. За повече информация прочетете страницата Оператор VBASupport от помощта.

Резултат:

Integer

Кодове за грешка:

5 Невалидно извикване на процедура

Пример:

В следващия пример е използвана функцията Now(), за да се определи текущият ден от седмицата.


Sub ExampleWeekDay
    Dim sDay As String
    ' Връща и показва деня от седмицата
    Select Case WeekDay( Now )
            Case 1: sDay="Неделя"
            Case 2: sDay="Понеделник"
            Case 3: sDay="Вторник"
            Case 4: sDay="Сряда"
            Case 5: sDay="Четвъртък"
            Case 6: sDay="Петък"
            Case 7: sDay="Събота"
    End Select
    MsgBox "" + sDay, 64, "Днес е"
End Sub

Следващият пример илюстрира употребата на параметъра FirstDayOfWeek, като се приема, че вторник е първият ден от седмицата.


  Dim someDay As Long
  ' Денят 1 януари 2021 г. е бил петък.
  someDay = DateSerial(2021, 01, 01)
  ' Отпечатва "6", ако неделя е първият ден от седмицата.
  MsgBox WeekDay(someDay)
  ' Отпечатва "4", ако вторник е първият ден от седмицата.
  MsgBox WeekDay(someDay, 3)