LibreOffice 7.1 žinynas
Grąžina skaičių, atitinkantį savaitės dieną, nurodytą serijimiu datos numeriu, kurį sugeneruoja „DateSerial“ arba „DateValue“ funkcija.
WeekDay (numeris)
Sveikasis skaičius
Numeris: sveikoji išraiška, kurioje yra eilės datos numeris, naudojamas savaitės dienai (1–7) apskaičiuoti.
Šis pavyzdys nustato savaitės dieną naudodamas „WeekDay“ funkciją, kai įvedate datą.
Sub ExampleWeekDay
Dim sDay As String
' Grįžti ir rodyti savaitės dieną
Select Case WeekDay( Now )
Case 1
sDay="Sekmadienis"
Case 2
sDay="Pirmadienis"
Case 3
sDay="Antradienis"
Case 4
sDay="Trečiadienis"
Case 5
sDay="Ketvirtadienis"
Case 6
sDay="Penktadienis"
Case 7
sDay="Šeštadienis"
End Select
MsgBox "" + sDay,64,"Šiandien yra"
End Sub