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.

Foutcodes:

5 Ongeldige aanroep van procedure

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