VBA - Fonction DatePart

Une fonction, qui renvoie la partie spécifique de la date donnée.

Syntaxe

DatePart(interval,date[,firstdayofweek[,firstweekofyear]])

Description des paramètres

  • Interval- Un paramètre obligatoire. Il peut prendre les valeurs suivantes.

    • j - jour de l'année.

    • m - mois de l'année

    • y - année de l'année

    • aaaa - année

    • w - jour de la semaine

    • ww - semaine

    • q - quart

    • h - heure

    • n - minute

    • s - seconde

  • Date1 - Un paramètre obligatoire.

  • Firstdayofweek- Un paramètre facultatif. Spécifie le premier jour de la semaine. Il peut prendre les valeurs suivantes.

    • 0 = vbUseSystemDayOfWeek - Utiliser le paramètre d'API National Language Support (NLS)

    • 1 = vbSunday - Sunday

    • 2 = vbLundi - Lundi

    • 3 = vbMardi - Mardi

    • 4 = vbMercredi - Mercredi

    • 5 = vbJeudi - Jeudi

    • 6 = vbVendredi - Vendredi

    • 7 = vbSamedi - Samedi

  • Firstdayofyear- Un paramètre facultatif. Spécifie le premier jour de l'année. Il peut prendre les valeurs suivantes.

    • 0 = vbUseSystem - Utiliser le paramètre API NLS (National Language Support)

    • 1 = vbFirstJan1 - Commencez par la semaine du 1er janvier (par défaut)

    • 2 = vbFirstFourDays - Commencez par la semaine qui compte au moins quatre jours dans la nouvelle année

    • 3 = vbFirstFullWeek - Commencez par la première semaine complète de la nouvelle année

Exemple

Ajoutez un bouton et ajoutez la fonction suivante.

Private Sub Constant_demo_Click()
   Dim Quarter as Variant
   Dim DayOfYear as Variant
   Dim WeekOfYear as Variant
  
   Date1 = "2013-01-15"
   Quarter    = DatePart("q", Date1)
   
   msgbox("Line 1 : " & Quarter)
   DayOfYear  = DatePart("y", Date1)
   
   msgbox("Line 2 : " & DayOfYear)
   WeekOfYear = DatePart("ww", Date1)
   
   msgbox("Line 3 : " & WeekOfYear)
   msgbox("Line 4 : " & DatePart("m",Date1))  
End Sub

Lorsque vous exécutez la fonction ci-dessus, elle produit la sortie suivante.

Line 1 : 1
Line 2 : 15
Line 3 : 3
Line 4 : 1