Weekday-functie
Geeft het getal terug dat overeenkomt met de weekdag van een serieel datum-getal dat gegenereerd is met DateSerial of DateValue.
Syntaxis:
WeekDay (Getal)
Teruggegeven waarde:
Integer
Parameters:
Getal: Integer die het serieële datumgetal bevat waaruit de weekdag (1-7) wordt berekend.
Het volgende voorbeeld voert een datum in om de weekdag via de WeekDay-functie te berekenen.
Voorbeeld:
Sub ExampleWeekDay
Dim sDay As String
' Bereken en geef de dag van de week terug
Select Case WeekDay( Now )
Case 1
sDag="zondag"
Case 2
sDag="maandag"
Case 3
sDag="dinsdag"
Case 4
sDag="woensdag"
Case 5
sDag="donderdag"
Case 6
sDag="vrijdag"
Case 7
sDag="zaterdag"
End Select
MsgBox "" + sDag,64,"Vandaag is het"
End Sub