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