Contenuto

# Funzione WeekDay

Questa funzione restituisce il numero corrispondente al giorno della settimana rappresentato da un numero di data seriale generato dalle funzioni DateSerial o DateValue.

Questa pagina della Guida descrive la funzione WeekDay utilizzata negli script Basic. Se siete interessati alla funzione WeekDay utilizzata in LibreOffice Calc, consultate questa pagina della guida.

### Sintassi:

      WeekDay (SerialDate, [FirstDayOfWeek])

### Parametri:

DataSeriale: espressione numerica intera contenente il numero seriale della data utilizzato per calcolare il giorno della settimana.

FirstDayOfWeek: (PrimoGiornoSettimana) valore intero che indica quale giorno feriale deve essere considerato come il primo giorno della settimana. Il valore predefinito è 0, il che significa che le impostazioni locali del sistema vengono utilizzate per determinare il primo giorno della settimana.

Il parametro FirstDayOfWeek accetta valori compresi tra 0 e 7. La tabella seguente descrive il significato di ogni valore possibile:

Valore | Costante VBA | Descrizione
--- | --- | ---
0 | vbUseSystemDayOfWeek | Utilizzare le impostazioni locali del sistema
1 | vbSunday | Domenica (predefinito)
2 | vbMonday | Lunedì
3 | vbTuesday | Martedì
4 | vbWednesday | Mercoledì
5 | vbThursday | Giovedì
6 | vbFriday | Venerdì
7 | vbSaturday | Sabato

Le costanti VBA sopra elencate sono disponibili solo se è stato attivato il supporto VBA. Per maggiori informazioni consultate la pagina Istruzione VBASupport della guida.

### Valore restituito:

Integer

### Codici di errore:

5 Richiamo di procedura non valido

### Esempio:

Nell'esempio seguente viene utilizzata la funzione Now() per determinare il giorno della settimana in corso.

    Sub ExampleWeekDay
        Dim sDay As String
        ' Restituisce e visualizza il giorno della settimana
        Select Case WeekDay( Now )
                Caso 1: sDay="Domenica"
                Caso 2: sDay="Lunedì"
                Caso 3: sDay="Martedì"
                Caso 4: sDay="Mercoledì"
                Caso 5: sDay="Giovedì"
                Caso 6: sDay="Venerdì"
                Caso 7: sDay="Sabato"
        End Select
        MsgBox "" + sDay,64,"Oggi è"
    End Sub

L'esempio seguente illustra l'uso del parametro FirstDayOfWeek, ipotizzando che martedì sia considerato il primo giorno della settimana.

      Dim someDay As Long
      ' La data del 1° gennaio 2021 era un venerdì
      someDay = DateSerial(2021, 01, 01)
      ' Stampa "6" ipotizzando che domenica sia il primo giorno della settimana
      MsgBox WeekDay(someDay)
      ' Stampa "4" ipotizzando che martedì sia il primo giorno della settimana
      MsgBox WeekDay(someDay, 3)

Argomenti correlati

Funzione DateSerial

Funzione DateValue

Funzione Now

GIORNO.SETTIMANA