Module
Contents
Index 🔎︎

# Funkce WeekDay

Vrátí hodnotu určující den v týdnu odpovídající datu v číselné podobě (vytvořenému funkcí DateSerial nebo DateValue).

## Syntaxe:

    WeekDay (Number)

## Návratová hodnota:

Celé číslo

## Parametry:

Number: Číselný výraz, který obsahuje datum v číselné podobě, ze kterého se určí den v týdnu (1-7).

Následující příklad určí po zadání data den v týdnu s použitím funkce WeekDay.

## Chybové kódy:

5 Neplatné volání procedury

## Příklad:

    Sub ExampleWeekDay

    Dim sDay As String

    ' Vrátí a zobrazí den v týdnu

        Select Case WeekDay( Now )

            Case 1

                sDay="Neděle"

            Case 2

                sDay="Pondělí"

            Case 3

                sDay="Úterý"

            Case 4

                sDay="Středa"

            Case 5

                sDay="Čtvrtek"

            Case 6

                sDay="Pátek"

            Case 7

                sDay="Sobota"

        End Select

        MsgBox "" + sDay,64,"Dnes je "

    End Sub