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.
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