Funzione WeekDay

Restituisce il numero corrispondente al giorno della settimana rappresentato da un numero seriale generato dalla funzione DateSerial o DateValue.

Sintassi:

WeekDay (Numero)

Valore restituito:

Integer

Parametri:

Numero: espressione numerica intera contenente il numero seriale usato per calcolare il giorno della settimana (1-7).

L'esempio seguente determina il giorno della settimana usando la funzione WeekDay quando inserite una data.

Codici di errore:

5 Richiamo di procedura non valido

Esempio:

Sub ExampleWeekDay

Dim sDay As String

' Restituisce e visualizza il giorno della settimana

    Select Case WeekDay( Now )

        Case 1

            sDay="Domenica"

        Case 2

            sDay="Lunedì"

        Case 3

            sDay="Martedì"

        Case 4

            sDay="Mercoledì"

        Case 5

            sDay="Giovedì"

        Case 6

            sDay="Venerdì"

        Case 7

            sDay="Sabato"

    End Select

    MsgBox "" + sDay,64,"Oggi è"

End Sub