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.
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