WeekDay Function
Liveras la nombron kiu korespondas al la tago de la semajno reprezentita de la data numero generita de la funkcio DateSerial aŭ DateValue.
Sintakso:
WeekDay (Number)
Liverota valoro:
Entjero
Parametroj:
Number: Entjera esprimo kiu enhavas la datan numeron uzota por kalkuli la tagon de la semajno (1-7).
La jena ekzemplo kalkulas la tagon de la semajno per la funkcio WeekDay kiam oni enigas daton.
Ekzemplo:
Sub ExampleWeekDay
Dim sDay As String
REM Liveri kaj vidigi la tagon de la semajno
Select Case WeekDay( Now )
Case 1
sDay="dimanĉo"
Case 2
sDay="lundo"
Case 3
sDay="mardo"
Case 4
sDay="merkredo"
Case 5
sDay="ĵaŭdo"
Case 6
sDay="vendredo"
Case 7
sDay="sabato"
End Select
msgbox "" + sDay,64,"Hodiaŭ estas"
End Sub