WeekDay Function
Visszaadja a DateSerial vagy DateValue függvény által meghatározott soros dátumértéknek megfelelő hétköznap számát.
Szintaxis:
WeekDay (Szám)
Visszatérési érték:
Integer (egész szám)
Paraméterek:
Szám: Integer (egĂ©sz szám) kifejezĂ©s, amely a hĂ©t egy napjának(1-7) kiszámĂtására használt soros dátumĂ©rtĂ©ket tartalmazza.
Az alábbi pĂ©lda meghatározza egy dátum megadásánál a hĂ©tköznapot a WeekDay fĂĽggvĂ©ny segĂtsĂ©gĂ©vel.
PĂ©lda:
Sub ExampleWeekDay
Dim sDay As String
' Visszaadja Ă©s megjelenĂti a hĂ©tköznapot
Select Case WeekDay( Now )
Case 1
sDay="Vasárnap"
Case 2
sDay="Hétfő"
Case 3
sDay="Kedd"
Case 4
sDay="Szerda"
Case 5
sDay="Csütörtök"
Case 6
sDay="PĂ©ntek"
Case 7
sDay="Szombat"
End Select
MsgBox "" + sDay,64,"A mai nap"
End Sub