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.

Codes d'erreur :

5 appel de procédure incorrect

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