IBM Lotus Symphony
|
Renvoie le numéro correspondant au jour de la semaine représenté par un numéro de date généré par la fonction DateSerial ou DateValue.
WeekDay (Number)
Nombre entier
Number : expression de type nombre entier contenant le numéro de date 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
REM 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