WeekDay Function
Vracia číslo odpovedajúce dňu v týždni reprezentovanom dátumom v číselnej podobe, ktorý je generovaný funkciou DateSerial alebo DateValue.
Syntax:
WeekDay (Číslo)
Návratová hodnota:
Celé číslo
Paremetre:
Číslo: Celočíselný výraz, ktorý obsahuje dátum v číselnej podobe, z ktorého sa určí deň v týždni (1-7).
Nasledujúci príklad určuje deň v týždni použitím funkcie WeekDay, keď zadáte dátum.
Príklad:
Sub ExampleWeekDay
Dim sDay As String
' Return And display the day of the week
Select Case WeekDay( Now )
Case 1
sDay="Nedeľa"
Case 2
sDay="Pondelok"
Case 3
sDay="Utorok"
Case 4
sDay="Streda"
Case 5
sDay="Štvrtok"
Case 6
sDay="Piatok"
Case 7
sDay="Sobota"
End Select
msgbox "" + sDay,64,"Dnes je"
End Sub