VBA DateAdd-functie

Excel VBA DateAdd-functie

DateAdd- functie is gecategoriseerd onder de datum- en tijdfunctie in VBA en deze functie heeft een uitvoerwaarde als een datum, het neemt invoer als een datumformaat en voegt het toe aan de huidige datum om een ​​nieuwe datum te retourneren, de syntaxis voor deze functie neemt drie argumenten interval, het nummer en de datum.

Met behulp van de DateAdd-functie kunnen we dagen, maanden en jaren vanaf de opgegeven datum optellen en aftrekken. Datum in Excel is een essentieel onderdeel van ons dagelijkse werk, we kunnen niet in Excel werken zonder datum, tijd en andere belangrijke dingen. De ene datum aan een andere datum toevoegen, de ene datum van de andere aftrekken, is het gebruikelijke proces. In het gewone werkblad voeren we eenvoudig rekenkundige bewerkingen uit en krijgen we het resultaat. In VBA hebben we de functie DateAdd die het werk zal doen.

Syntaxis

Interval: Interval is niets anders dan het soort waarde dat u wilt optellen of aftrekken. Bijvoorbeeld of u een maand wilt optellen of aftrekken, of u dagen wilt optellen of aftrekken, of u een jaar wilt optellen of aftrekken, of u een kwartaal wilt optellen of aftrekken, enz ...

Hieronder vindt u een lijst met codes en beschrijvingen.

  • Getal: het aantal maanden, dagen of weken (zoals opgegeven in het interval) dat we bij de datum willen optellen of aftrekken.
  • Datum: de werkelijke datumwaarde waarop we de rekenkundige bewerking uitvoeren.

Als je bijvoorbeeld de datum "14-mrt-2019" hebt en je wilt 2 dagen bij de datum optellen, gebruik dan de onderstaande code:

DateAdd ("d", 2, "14-03-2019")

Het resultaat van bovenstaande code is: 16-03-2019

Hoe de Dateadd-functie in VBA te gebruiken?

U kunt deze VBA DateAdd Excel-sjabloon hier downloaden - VBA DateAdd Excel-sjabloon

Voorbeeld # 1 - Datum toevoegen

Om de procedure te starten, kunt u de eenvoudige DateAdd-functie toepassen. Stel dat u werkt met de datum “14-03-2019”.

Stap 1: Start de subprocedure door een macronaam te creëren.

Stap 2: Definieer de variabele als Datum.

Code:

 Sub DateAdd_Example1 () Dim maand als einde datum Sub 

Stap 3: Voor deze variabele waarde toewijzen.

Code:

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

Stap 4: Start de DateAdd- formule.

Code:

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

Stap 5: Wat is de operatie die we willen doen. We willen een dag voor de date. Het interval is dus " d ".

Code:

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

Stap 6: Hoeveel dagen moeten we toevoegen, ik moet 5 dagen toevoegen.

Code:

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

Stap 7: Onze datum is " 14-03-2019 "

Code:

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

Stap 8: toon het resultaat van de variabele in het VBA-berichtvenster.

Code:

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

Als ik deze code uitvoer, zou ik de datum moeten krijgen als 19-03-2019.

In mijn systeem is datumnotatie "mm-dd-jjjj", dus het resultaat wordt weergegeven volgens de systeemdatuminstellingen.

We kunnen dit echter wijzigen door de VBA FORMAT-functie toe te passen.

Code:

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

Nu zou het resultaat er zo uit moeten zien " 19-Mar-2019 ".

Voorbeeld # 2 - Maanden toevoegen

Om maanden toe te voegen is hieronder de code

Code:

 Sub DateAdd_Example2 () 'Om maanden toe te voegen Dim NewDate As Date NewDate = DateAdd ("m", 5, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-jjjj") End Sub 

Het resultaat is:

Voorbeeld # 3 - Jaren toevoegen

Gebruik de onderstaande code om jaren toe te voegen met DateAdd.

Code:

 Sub DateAdd_Example2 () 'Jaar toevoegen Dim NewDate As Date NewDate = DateAdd ("jjjj", 5, "14-03-2019") MsgBox-indeling (NewDate, "dd-mmm-jjjj") End Sub 

Het resultaat is:

Voorbeeld # 4 - Kwartaal toevoegen

Om een ​​kwart toe te voegen hieronder is de code

Code:

 Sub DateAdd_Example2 () 'Om kwartaal Dim NewDate toe te voegen As Date NewDate = DateAdd ("Q", 5, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-jjjj") End Sub 

Het resultaat is:

Voorbeeld # 5 - Weekdag toevoegen

Om weekdagen toe te voegen is hieronder de code

Code:

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

The Result will be:

Example #6 – Add Week

To add week below is the 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 

The Result will be:

Example #7 – Add Hour

To add hour below is the 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 

The Result will be

Example #8 – Subtract Date

In order to add we have supplied positive numbers, to subtract we need to supply negative numbers that are all.

In order to subtract 3 months from the supplied date below is the 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 

The result of this code is:

If deduct 3 months from the date 14th March 2019 it will go back to the previous year.