IBM Lotus Symphony
|
Vrne številko, ki ustreza dnevu tedna, ki ga predstavlja serijska številka datuma, ki se generira s funkcijo DateSerial ali funkcijo DateValue.
WeekDay (Number)
Celo število
Number: Celoštevilčni izraz, ki vsebuje zaporedno številko datuma, ki se uporablja za izračun dneva tedna (1-7).
Naslednji primer določi dan tedna s funkcijo WeekDay, kadar vnesete datum.
Sub ExampleWeekDay
Dim sDay As String
REM Return and display the day of the week
Select Case WeekDay( Now )
case 1
sDay="Sunday"
case 2
sDay="Monday"
case 3
sDay="Tuesday"
case 4
sDay="Wednesday"
case 5
sDay="Thursday"
case 6
sDay="Friday"
case 7
sDay="Saturday"
End Select
msgbox "" + sDay,64,"Today is"
End Sub