Funzione WeekDay (BASIC)

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

Sosteneteci!