Aide LibreOffice 7.1
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.
WeekDay (Number)
Nombre entier
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.
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