Excel VBA DateAdd-funktion
DateAdd- funktionen är kategoriserad under datum- och tidsfunktionen i VBA och den här funktionen har ett utdatavärde som ett datum, det tar inmatningen som ett datumformat och lägger till det till det aktuella datumet för att returnera ett nytt datum, syntaxen för den här funktionen tre argumentintervall, antalet och datumet.
Med funktionen DateAdd kan vi lägga till och subtrahera dagar, månader och år från det angivna datumet. Datum i Excel är en del av vårt dagliga arbete; vi kan inte arbeta i excel utan datum, tid och andra viktiga saker. Att lägga till ett datum till ett annat datum, subtrahera ett datum från ett annat, är den vanliga processen. I det vanliga kalkylbladet gör vi helt enkelt aritmetiska operationer och får resultatet. I VBA har vi funktionen DateAdd, som kommer att göra jobbet.
Syntax
Intervall: Intervall är inget annat än vilken typ av värde du vill lägga till eller subtrahera. Till exempel om du vill lägga till eller subtrahera en månad, om du vill lägga till eller subtrahera dagar, om du vill lägga till eller subtrahera ett år, om du vill lägga till eller subtrahera kvartal etc. …
Nedan följer en lista med koder och beskrivningar.
- Antal: Antalet månader, dagar eller vecka (som anges i intervallet) vi vill lägga till eller subtrahera till datumet.
- Datum: Det faktiska datumvärdet vi gör den aritmetiska operationen.
Om du till exempel har datumet “14-mar-2019” och vill lägga till två dagar till datumet, använd nedanstående kod:
DateAdd (“d,” 2, “14-03-2019”)
Resultatet av ovanstående kod är: 16-03-2019
Hur man använder Dateadd-funktionen i VBA?
Exempel # 1 - Lägg till datum
För att inleda förfarandet, låt oss använda den enkla DateAdd-funktionen. Antag att du arbetar med datumet “14-03-2019”.
Steg 1: Starta delproceduren genom att skapa ett makronamn.
Steg 2: Definiera variabeln som Datum.
Koda:
Sub DateAdd_Example1 () Dimma månad som datum slut Sub
Steg 3: Tilldela värde för denna variabel.
Koda:
Sub DateAdd_Example1 () Dim NewDate som Date NewDate = End Sub
Steg 4: Starta DateAdd- formeln.
Koda:
Sub DateAdd_Example1 () Dim NewDate Som Date NewDate = DateAdd (End Sub
Steg 5: Vad är den operation vi vill göra. Vi vill ha en dag till dagen. Så intervallet är " d."
Koda:
Sub DateAdd_Example1 () Dim NewDate Som Date NewDate = DateAdd ("d", End Sub
Steg 6: Hur många dagar behöver vi lägga till? Jag måste lägga till 5 dagar.
Koda:
Sub DateAdd_Example1 () Dim NewDate Som Date NewDate = DateAdd ("d", 5, End Sub
Steg 7: Vårt datum är “ 14-03-2019. ”
Koda:
Sub DateAdd_Example1 () Dim NewDate Som Date NewDate = DateAdd ("d", 5, "14-03-2019") End Sub
Steg 8: Visa resultatet av variabeln i meddelandefältet VBA.
Koda:
Sub DateAdd_Example1 () Dim NewDate Som Date NewDate = DateAdd ("d", 5, "14-03-2019") MsgBox NewDate End Sub
Om jag kör den här koden ska jag få datumet 19-03-2019.
I mitt systemdatumformat är "mm-dd-åååå", så resultatet visas enligt systemdatuminställningarna.
Vi kan dock ändra detta genom att använda VBA FORMAT-funktionen.
Koda:
Sub DateAdd_Example1 () Dim NewDate Som Date NewDate = DateAdd ("d", 5, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy") End Sub
Nu ska resultatet vara så här " 19-mar-2019 ".
Exempel # 2 - Lägg till månader
För att lägga till månader, nedan är koden
Koda:
Sub DateAdd_Example2 () 'För att lägga till månader Dim NewDate Som Date NewDate = DateAdd ("m", 5, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-åååå") Slut Sub
Resultatet blir:
Exempel # 3 - Lägg till år
För att lägga till år med DateAdd, använd koden nedan.
Koda:
Sub DateAdd_Example2 () 'För att lägga till år Dim NewDate Som Date NewDate = DateAdd ("yyyy", 5, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy") End Sub
Resultatet blir:
Exempel # 4 - Lägg till kvartal
Att lägga till kvartalet nedan är koden.
Koda:
Sub DateAdd_Example2 () 'För att lägga till kvartal Dim NewDate Som Date NewDate = DateAdd ("Q", 5, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy") End Sub
Resultatet blir:
Exempel # 5 - Lägg till veckodag
För att lägga till vardagar nedan är koden.
Koda:
Sub DateAdd_Example2 () 'För att lägga till vardagar Dim NewDate Som Date NewDate = DateAdd ("W", 5, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy") Slut Sub
Resultatet blir:
Exempel # 6 - Lägg till vecka
Att lägga till veckan nedan är koden.
Koda:
Sub DateAdd_Example2 () 'För att lägga till Week Dim NewDate som Date NewDate = DateAdd ("WW", 5, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-åååå") Slut Sub
Resultatet blir:
Exempel # 7 - Lägg till timme
För att lägga till timmen nedan är koden.
Koda:
Sub DateAdd_Example2 () 'För att lägga till timme Dim NewDate Som Date NewDate = DateAdd ("h", 5, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy hh: mm: ss") End Sub
Resultatet blir
Exempel # 8 - Subtrahera datum
För att lägga till har vi gett positiva siffror; för att subtrahera, och vi måste ange negativa siffror som alla är.
För att subtrahera tre månader från det angivna datumet är koden nedan.
Koda:
Sub DateAdd_Example3 () 'För att lägga till timme Dim NewDate Som Date NewDate = DateAdd ("m", -3, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy") End Sub
Resultatet av denna kod är:
Jag drar 3 månader från det datum 14 : e mars 2019. Det kommer att gå tillbaka till föregående år.
