Fonction WeekDay
Renvoie le numéro correspondant au jour de la semaine représenté par un numéro de date sériel généré par la fonction DateSerial ou DateValue.
Syntaxe :
WeekDay (Number)
Valeur de retour :
Nombre entier
Paramètres :
Number : expression au format nombre entier contenant le numéro de date sériel utilisé pour calculer le jour de la semaine (1-7).
L'exemple suivant détermine le jour de la semaine à l'aide de la fonction WeekDay lorsque vous saisissez une date.
Exemple :
Sub ExampleWeekDay
Dim sDay As String
' Renvoyer et afficher le jour de la semaine
Select Case WeekDay( Now )
Case 1
sDay="Dimanche"
Case 2
sDay="Lundi"
Case 3
sDay="Mardi"
Case 4
sDay="Mercredi"
Case 5
sDay="Jeudi"
Case 6
sDay="Vendredi"
Case 7
sDay="Samedi"
End Select
Msgbox "" + sDay,64,"Date du jour"
End Sub