IBM Lotus Symphony
|
Vráti číslo zodpovedajúce dňu týždňa, ktoré predstavuje poradové číslo dátumu vygenerované funkciou DateSerial alebo DateValue.
WeekDay (Number)
Typ Integer
Number: Celočíselný výraz obsahujúci poradové číslo dátumu, ktoré sa používa na výpočet dňa týždňa (1-7).
Nasledujúci príklad určí deň týždňa použitím funkcie WeekDay po zadaní dátumu.
Sub ExampleWeekDay
Dim sDay As String
REM Vrátiť a zobraziť deň týždňa
Vybrať prípad WeekDay( Now )
prípad 1
sDay="Nedeľa"
prípad 2
sDay="Pondelok"
prípad 3
sDay="Utorok"
prípad 4
sDay="Streda"
prípad 5
sDay="Štvrtok"
prípad 6
sDay="Piatok"
prípad 7
sDay="Sobota"
End Select
msgbox "" + sDay,64,"Dnes je"
End Sub