WeekDay Function

Tagastab funktsiooni DateSerial või DateValue loodud kuupäeva järjenumbrile vastava nädalapäeva.

Süntaks:

WeekDay (arv)

Tagastusväärtus:

Täisarv

Parameetrid:

Number: täisarvavaldis, mis sisaldab nädalapäeva arvutamiseks kasutatavat kuupäeva järjenumbrit (1-7).

Järgmises näites määratakse funktsiooni WeekDay abil sisestatud kuupäeva järgi nädalapäev.

Error codes:

5 Vigane protseduuri väljakutse

Näide:

Sub ExampleWeekDay

Dim sDay As String

REM Tagastab ja kuvab nädalapäeva

    Select Case WeekDay( Now )

        Case 1

            sDay="Pühapäev"

        Case 2

            sDay="Esmaspäev"

        Case 3

            sDay="Teisipäev"

        Case 4

            sDay="Kolmapäev"

        Case 5

            sDay="Neljapäev"

        Case 6

            sDay="Reede"

        Case 7

            sDay="Laupäev"

    End Select

    msgbox "" + sDay,64,"Täna on"

End Sub