DatePartie Description
Renvoie une partie spécifiée d'une date donnée.
Exemples DatePart simples
Voici un exemple simple de DatePart :
| 123 | Sous-DatePart_Year_Test()MsgBox DatePart("aaaa", #1/1/2019#)Fin du sous-marin |
Ce code retournera 2022.
Syntaxe DatePart
Dans l'éditeur VBA, vous pouvez taper "DatePart(" pour voir la syntaxe de la fonction DatePart :
La fonction DatePart contient 4 arguments :
Intervalle: Unité de temps (jours, mois, années, etc.). Entrez comme chaîne. (ex. « m » pour le mois)
| Réglage | La description |
|---|---|
| aaaa | Année |
| q | Trimestre |
| m | Mois |
| oui | Jour de l'année |
| ré | Jour |
| w | Jour de la semaine |
| ww | La semaine |
| h | Heure |
| m | Minute |
| s | Seconde |
Date: Variante (Date) valeur que vous souhaitez évaluer.
Premier jour de la semaine: Constante qui spécifie le premier jour de la semaine. Ceci est facultatif. Si non spécifié, le dimanche est supposé.
| Constant | Valeur | La description |
|---|---|---|
| vbUtiliserSystème | 0 | Utilisez le paramètre API NLS. |
| vbdimanche | 1 | Dimanche (par défaut) |
| vblundi | 2 | Lundi |
| vbmardi | 3 | Mardi |
| vbmercredi | 4 | Mercredi |
| vbJeudi | 5 | jeudi |
| vbvendredi | 6 | vendredi |
| vbsamedi | 7 | samedi |
PremièreSemaineD'Année : Constante qui spécifie la première semaine de l'année. Ceci est facultatif. S'il n'est pas spécifié, la première semaine est supposée être la semaine du 1er janvier.
| Constant | Valeur | La description |
|---|---|---|
| vbUtiliserSystème | 0 | Utilisez le paramètre API NLS. |
| vbPremierJan1 | 1 | Commencez par la semaine du 1er janvier (par défaut). |
| vbFirstFourDays | 2 | Commencez par la première semaine qui compte au moins quatre jours dans la nouvelle année. |
| vbPremièreSemaine Complète | 3 | Commencez par la première semaine complète de l'année. |
Programmation VBA | Le générateur de code fonctionne pour vous !
Exemples de fonction Excel VBA DatePart
Dates de référencement
Pour commencer, nous allons montrer différentes manières de référencer des dates à l'aide de la fonction VBA DatePart.
Chacune de ces fonctions DatePart produit le même résultat :
| 123456789 | Sous DateAdd_ReferenceDates()MsgBox DatePart("aaaa", #4/1/2019#)MsgBox DatePart("aaaa", DateSerial(2019, 4, 1))MsgBox DatePart("aaaa", DateValue("1er avril 2022"))Fin du sous-marin |
Ou vous pouvez référencer une cellule contenant une date :
| 12345 | Sous-DatePart_ReferenceDate_Cell()MsgBox DatePart("aaaa", Plage("C2").Valeur)Fin du sous-marin |
Ou créez et référencez des variables de date :
| 12345678 | Sous DatePart_Variable()Dim dt comme datedt = #4/1/2019#MsgBox DateAjouter("aaaa", dt)Fin du sous-marin |
Utilisation de différentes unités d'intervalle
Trimestre
| 123 | Sous-DatePart_Quarter()MsgBox DatePart("q", #6/30/2019#)Fin du sous-marin |
Mois
| 12345 | Sous-DatePart_Mois()MsgBox DatePart("m", #6/30/2019#)' équivalentMsgBox Mois(#6/30/2019#)Fin du sous-marin |
Jour
| 12345 | Sous DatePart_Day()MsgBox DatePart("d", #6/30/2019#)' équivalentJour MsgBox(#6/30/2019#)Fin du sous-marin |
La semaine
| 12345 | Sous-DatePart_Week_Test()MsgBox DatePart("w", #6/30/2019#)' équivalentMsgBox Jour de la semaine(#6/30/2019#)Fin du sous-marin |
Heure
| 123456789101112 | Sous DatePart_Hour()Dim dt comme dateDim nHeure aussi longtempsdt = #8/14/2019 9:30:00 AM#nHeure = DatePart("h", dt)MsgBox nHeure' équivalentMsgBox Heure(dt)Fin du sous-marin |
Minutes
| 123456 | Sous-DatePart_Minute()MsgBox DatePart("n", #8/14/2019 09:15:00 #)' équivalentMsgBox Minute(#8/14/2019 09:15:00 #)MsgBox Minute(#9:15:00 #)Fin du sous-marin |
Seconde
| 123456 | Sous-DatePart_Second()MsgBox DatePart("s", #8/14/2019 09:15:15 AM#)' équivalentMsgBox Deuxième (#8/14/2019 09:15:15 AM#)MsgBox Deuxième (#9:15:15 AM#)Fin du sous-marin |
