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