Модул
Съдържание
Индекс 🔎︎

# Функция WeekDay

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

## Синтаксис:

    WeekDay (Number)

## Връщана стойност:

Integer

## Параметри:

Number: числов израз – серийно число на дата, за която искате да бъде изчислен денят от седмицата (1-7).

Следващият пример определя деня от седмицата чрез функцията WeekDay според въведена от вас дата.

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

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

## Пример:

    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