VBA DateAdd - Ajouter et soustraire des dates à l'aide de la fonction Dateadd

Table des matières

Fonction Excel VBA DateAdd

La fonction DateAdd est classée sous la fonction date et heure dans VBA et cette fonction a une valeur de sortie en tant que date, elle prend l'entrée comme format de date et l'ajoute à la date actuelle pour renvoyer une nouvelle date, la syntaxe de cette fonction prend intervalle de trois arguments, le nombre et la date.

En utilisant la fonction DateAdd, nous pouvons ajouter et soustraire des jours, des mois et des années à la date donnée. La date dans Excel fait partie intégrante de notre travail quotidien; nous ne pouvons pas travailler dans Excel sans date, heure et autres choses importantes. Ajouter une date à une autre date, soustraire une date d'une autre, est le processus courant. Dans la feuille de calcul standard, nous faisons simplement des opérations arithmétiques et obtenons le résultat. Dans VBA, nous avons la fonction appelée DateAdd, qui fera le travail.

Syntaxe

Intervalle: L' intervalle n'est rien d'autre que le type de valeur que vous souhaitez ajouter ou soustraire. Par exemple, que vous souhaitiez ajouter ou soustraire un mois, que vous souhaitiez ajouter ou soustraire des jours, que vous souhaitiez ajouter ou soustraire une année, que vous souhaitiez ajouter ou soustraire un trimestre, etc.…

Vous trouverez ci-dessous une liste de codes et de descriptions.

  • Nombre: le nombre de mois, de jours ou de semaine (comme indiqué dans l'intervalle) que nous voulons ajouter ou soustraire à la date.
  • Date: La valeur de date réelle à laquelle nous effectuons l'opération arithmétique.

Par exemple, si vous avez la date "14-mars-2019" et que vous souhaitez ajouter deux jours à la date, utilisez le code ci-dessous:

DateAdd («d,» 2, «14-03-2019»)

Le résultat du code ci-dessus est: 16-03-2019

Comment utiliser la fonction Dateadd dans VBA?

Exemple # 1 - Ajouter une date

Pour démarrer la procédure, appliquons la simple fonction DateAdd. Supposons que vous travaillez avec la date «14-03-2019».

Étape 1: Démarrez la sous-procédure en créant un nom de macro.

Étape 2: définissez la variable comme Date.

Code:

Sub DateAdd_Example1 () Dim Month As Date End Sub

Étape 3: Pour cette variable, attribuez une valeur.

Code:

Sub DateAdd_Example1 () Dim NewDate As Date NewDate = End Sub

Étape 4: Démarrez la formule DateAdd .

Code:

Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd (End Sub

Étape 5: Quelle est l'opération que nous voulons faire. Nous voulons un jour à la date. L'intervalle est donc « d».

Code:

Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", End Sub

Étape 6: Combien de jours devons-nous ajouter? Je dois ajouter 5 jours.

Code:

Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, End Sub

Étape 7: Notre date est le « 14-03-2019. "

Code:

Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") End Sub

Étape 8: affichez le résultat de la variable dans la boîte de message VBA.

Code:

Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") MsgBox NewDate End Sub

Si j'exécute ce code, je devrais obtenir la date 19-03-2019.

Dans mon format de date système est «mm-jj-aaaa», donc le résultat est affiché selon les paramètres de date système.

Cependant, nous pouvons modifier cela en appliquant la fonction VBA FORMAT.

Code:

Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy") End Sub

Maintenant, le résultat devrait ressembler à celui-ci " 19-Mar-2019 ".

Exemple # 2 - Ajouter des mois

Pour ajouter des mois, voici le code

Code:

Sub DateAdd_Example2 () 'Pour ajouter des mois Dim NewDate As Date NewDate = DateAdd ("m", 5, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy") End Sub

Le résultat sera:

Exemple 3 - Ajouter des années

Pour ajouter des années à l'aide de DateAdd, utilisez le code ci-dessous.

Code:

Sub DateAdd_Example2 () 'To add year Dim NewDate As Date NewDate = DateAdd ("yyyy", 5, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy") End Sub

Le résultat sera:

Exemple # 4 - Ajouter un quart

Pour ajouter un quart ci-dessous est le code.

Code:

Sub DateAdd_Example2 () 'To add quarter Dim NewDate As Date NewDate = DateAdd ("Q", 5, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy") End Sub

Le résultat sera:

Exemple # 5 - Ajouter un jour de la semaine

Pour ajouter des jours de la semaine ci-dessous est le code.

Code:

Sub DateAdd_Example2 () 'Pour ajouter des jours de la semaine Dim NewDate As Date NewDate = DateAdd ("W", 5, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy") End Sub

Le résultat sera:

Exemple # 6 - Ajouter une semaine

Pour ajouter la semaine ci-dessous est le code.

Code:

Sub DateAdd_Example2 () 'To add Week Dim NewDate As Date NewDate = DateAdd ("WW", 5, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy") End Sub

Le résultat sera:

Exemple # 7 - Ajouter une heure

Pour ajouter l'heure ci-dessous est le code.

Code:

Sub DateAdd_Example2 () 'To add hour Dim NewDate As Date NewDate = DateAdd ("h", 5, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy hh: mm: ss") End Sub

Le résultat sera

Exemple # 8 - Soustraire la date

Afin d'ajouter, nous avons fourni des nombres positifs; à soustraire, et nous devons fournir des nombres négatifs qui sont tous.

Afin de soustraire 3 mois de la date fournie, vous trouverez ci-dessous le code.

Code:

Sub DateAdd_Example3 () 'To add hour Dim NewDate As Date NewDate = DateAdd ("m", -3, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy") End Sub

Le résultat de ce code est:

Je déduis 3 mois à compter de la date 14 e 2019. Mars Il va revenir à l'année précédente.

Articles intéressants...