Съдържание

# Функция 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)

Теми, свързани с показаната

Функция DateSerial

Функция DateValue

Функция Now

WEEKDAY