Comment utiliser la fonction DatePart dans VBA ?

La fonction `DatePart` dans VBA est utilisée pour extraire une partie spécifique d’une date, comme l’année, le mois, le jour, l’heure, etc. Voici comment utiliser cette fonction :

Syntaxe

DatePart(Interval, Date[, FirstDayOfWeek[, FirstWeekOfYear]])

Interval : Une chaîne indiquant quelle partie de la date vous souhaitez extraire. Voici les indicateurs les plus couramment utilisés :

`”yyyy”` : Année
`”q”` : Trimestre
`”m”` : Mois
`”y”` : Jour de l’année
`”d”` : Jour
`”w”` : Jour de la semaine
`”ww”` : Semaine de l’année
`”h”` : Heure
`”n”` : Minute
`”s”` : Seconde

Date : La date que vous souhaitez évaluer. Il s’agit généralement d’une date ou une expression qui peut être convertie en date.
FirstDayOfWeek (facultatif) : Une constante qui spécifie le premier jour de la semaine. Par défaut, c’est le dimanche. Voici quelques constantes possibles :

`vbUseSystem`: Utilise les paramètres régionaux du système
`vbSunday`, `vbMonday`, `vbTuesday`, etc.

FirstWeekOfYear (facultatif) : Une constante qui spécifie la première semaine de l’année. Par défaut, c’est la semaine du 1er janvier. Voici quelques constantes possibles :

`vbFirstJan1`
`vbFirstFourDays`
`vbFirstFullWeek`

Exemple d’utilisation

Voici un exemple simple qui montre comment utiliser `DatePart` pour extraire différents composants d’une date.

Sub ExempleDatePart()
    Dim maDate As Date
    maDate = #10/21/2023#  ' Format de date américain MM/JJ/AAAA

    ' Extraire l'année
    MsgBox "Année : " & DatePart("yyyy", maDate)

    ' Extraire le mois
    MsgBox "Mois : " & DatePart("m", maDate)

    ' Extraire le jour
    MsgBox "Jour : " & DatePart("d", maDate)

    ' Extraire le jour de la semaine
    MsgBox "Jour de la semaine : " & DatePart("w", maDate)

    ' Extraire la semaine de l'année
    MsgBox "Semaine de l'année : " & DatePart("ww", maDate)
End Sub

Dans cet exemple, la fonction `DatePart` est utilisée pour obtenir différentes parties d’une date donnée et afficher ces valeurs à l’utilisateur via des boîtes de message.

Assurez-vous que votre date est au bon format et que les chaînes utilisées pour l’intervalle sont exactes pour éviter les erreurs lors de l’exécution du code.

facebooklinkedin