
La fonction `Weekday` dans VBA est utilisée pour déterminer le jour de la semaine d’une date donnée. Elle renvoie un entier représentant le jour de la semaine, avec la possibilité de spécifier quel jour est considéré comme le premier jour de la semaine.
Voici comment utiliser la fonction `Weekday` :
Syntaxe
Weekday(date, [firstdayofweek])
- date : Obligatoire. La date pour laquelle vous voulez connaître le jour de la semaine.
- firstdayofweek : Optionnel. Une constante qui spécifie le premier jour de la semaine. Par défaut, dimanche est considéré comme le premier jour.
Constantes pour `firstdayofweek`
- `vbUseSystemDayOfWeek` (0) : Utilise le paramètre du système.
- `vbSunday` (1) : Dimanche (par défaut).
- `vbMonday` (2) : Lundi.
- `vbTuesday` (3) : Mardi.
- `vbWednesday` (4) : Mercredi.
- `vbThursday` (5) : Jeudi.
- `vbFriday` (6) : Vendredi.
- `vbSaturday` (7) : Samedi.
Exemple d’utilisation
Voici un exemple simple d’utilisation de `Weekday` dans VBA :
Sub ExempleWeekday()
Dim maDate As Date
Dim jourSemaine As Integer
' Initialisation de la date
maDate = #10/12/2023# ' 12 Octobre 2023
' Obtenir le jour de la semaine
jourSemaine = Weekday(maDate, vbMonday) ' Considérer lundi comme premier jour de la semaine
' Affichage du résultat
Select Case jourSemaine
Case 1
MsgBox "Lundi"
Case 2
MsgBox "Mardi"
Case 3
MsgBox "Mercredi"
Case 4
MsgBox "Jeudi"
Case 5
MsgBox "Vendredi"
Case 6
MsgBox "Samedi"
Case 7
MsgBox "Dimanche"
End Select
End Sub
Dans cet exemple, la fonction `Weekday` est utilisée pour déterminer que le 12 octobre 2023 est un jeudi, en considérant que lundi est le premier jour de la semaine. Vous pouvez ajuster l’argument `firstdayofweek` selon vos besoins pour adapter les résultats en fonction du premier jour de la semaine de votre choix.