Excel VBA DateAdd függvény
A DateAdd függvény a VBA dátum- és időfüggvénye alá van kategorizálva, és ennek a függvénynek a kimeneti értéke dátum, a bevitelt dátumformátumként veszi fel, és hozzáadja az aktuális dátumhoz, hogy új dátumot adjon vissza, a függvény szintaxisa három argumentum intervallum, a szám és a dátum.
A DateAdd függvény használatával összeadhatunk és kivonhatunk napokat, hónapokat és éveket az adott dátumból. A dátum excelben része a mindennapi munkánknak; nem dolgozhatunk excelben dátum, idő és egyéb fontos dolgok nélkül. Egy dátum hozzáadása egy másik dátumhoz, egy dátum kivonása a másik dátumtól a közös folyamat. A szokásos munkalapon egyszerűen elvégezzük a számtani műveleteket, és megkapjuk az eredményt. A VBA-ban van a DateAdd nevű függvény, amely elvégzi a munkát.
Szintaxis
Intervallum: Az intervallum nem más, mint az, hogy milyen értéket szeretne hozzáadni vagy levonni. Például azt, hogy szeretne-e összeadni vagy kivonni egy hónapot, összeadni vagy kivonni a napokat, hozzáadni vagy kivonni egy évet, hozzáadni vagy kivonni a negyedévet stb.…
Az alábbiakban felsoroljuk a kódokat és a leírásokat.
- Szám: Azon hónapok, napok vagy hetek száma (az intervallumban megadottak szerint), amelyeket hozzá akarunk adni vagy kivonunk a dátumhoz.
- Dátum: Az aritmetikai művelet tényleges dátumértéke.
Például, ha a dátuma „2019. március 14.”, és két napot szeretne hozzáadni a dátumhoz, használja az alábbi kódot:
DateAdd („d”, 2, „2019-03-14”)
A fenti kód eredménye: 2019-03-16
Hogyan kell használni a Dateadd függvényt a VBA-ban?
1. példa - Dátum hozzáadása
Az eljárás megkezdéséhez alkalmazzuk az egyszerű DateAdd függvényt. Tegyük fel, hogy a „2019-03-14” dátummal dolgozik.
1. lépés: Indítsa el az alfolyamatot makrónév létrehozásával.
2. lépés: Határozza meg a változót Dátumként.
Kód:
Sub DateAdd_Example1 () Dim hónap, mint dátum vége Sub
3. lépés: Ehhez a változóhoz rendeljen értéket.
Kód:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = End Sub
4. lépés: Indítsa el a DateAdd képletet.
Kód:
Sub DateAdd_Example1 () Dim NewDate as Date NewDate = DateAdd (End Sub
5. lépés: Mi a kívánt művelet. Szeretnénk egy napot a dátumig. Tehát az intervallum „ d”.
Kód:
Sub DateAdd_Example1 () Dim NewDate as Date NewDate = DateAdd ("d", End Sub
6. lépés: Hány napot kell hozzáadnunk? 5 napot kell hozzáfűznöm .
Kód:
Sub DateAdd_Example1 () Dim NewDate as Date NewDate = DateAdd ("d", 5, End Sub
7. lépés: A dátum „ 2019-03-14. ”
Kód:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, "2019-03-14") Vége Sub
8. lépés: A változó eredményének megjelenítése a VBA üzenetmezőben.
Kód:
Sub DateAdd_Example1 () Dim NewDate as Date NewDate = DateAdd ("d", 5, "2019-03-14") MsgBox NewDate End Sub
Ha futtatom ezt a kódot, meg kell kapnom a dátumot: 2019-03-19.
Rendszeremben a dátumformátum „éééé-éééé”, tehát az eredmény a rendszer dátumbeállításainak megfelelően jelenik meg.
Ezt azonban módosíthatjuk a VBA FORMAT függvény alkalmazásával.
Kód:
Sub DateAdd_Example1 () Dim NewDate as Date NewDate = DateAdd ("d", 5, "2019-03-14") MsgBox formátum (NewDate, "dd-mmm-yyyy") Vége Sub
Az eredménynek így kell lennie, mint ez a „ 2019. március 19. ”.
2. példa - Hónapok hozzáadása
Hónapok hozzáadásához az alábbiakban látható a kód
Kód:
Sub DateAdd_Example2() 'To add months Dim NewDate As Date NewDate = DateAdd("m", 5, "14-03-2019") MsgBox Format(NewDate, "dd-mmm-yyyy") End Sub
The result will be:
Example #3 - Add Years
To add years using DateAdd, use the below code.
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
The Result will be:
Example #4 - Add Quarter
To add quarter below is the 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
The Result will be:
Example #5 - Add Weekday
To add weekdays below is the 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 the 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, and we need to supply negative numbers that are all.
Annak érdekében, hogy a megadott dátumtól 3 hónapot kivonhasson, az alábbiakban a kód található.
Kód:
Sub DateAdd_Example3 () 'Óra hozzáadásához Dim NewDate As Date NewDate = DateAdd ("m", -3, "2019-03-14") MsgBox formátum (NewDate, "dd-mmm-yyyy") End Sub
Ennek a kódnak az eredménye:
3 hónapot vonok le 2019. március 14-től . Ez az előző évre fog visszamenni.
