Funkcia Excel VBA DateAdd
Funkcia DateAdd je vo VBA kategorizovaná pod funkciu dátumu a času a táto funkcia má výstupnú hodnotu ako dátum, vstup berie ako formát dátumu a pridáva ho k aktuálnemu dátumu, aby vrátila nový dátum, syntax tejto funkcie trvá interval troch argumentov, číslo a dátum.
Pomocou funkcie DateAdd môžeme od daného dátumu sčítať a odčítať dni, mesiace a roky. Dátum v programe Excel je neoddeliteľnou súčasťou našej každodennej práce; nemôžeme pracovať v exceli bez dátumu, času a ďalších dôležitých vecí. Pridanie jedného dátumu k druhému dátumu, odčítanie jedného dátumu od druhého, je bežný proces. V bežnom pracovnom hárku jednoducho robíme aritmetické operácie a dostaneme výsledok. Vo VBA máme funkciu nazvanú DateAdd, ktorá túto prácu urobí.

Syntax

Interval: Interval nie je nič iné ako aký druh hodnoty chcete pridať alebo odčítať. Napríklad to, či chcete pripočítať alebo odčítať mesiac, či chcete pripočítať alebo odčítať dni, či chcete pripočítať alebo odčítať rok, či chcete pripočítať alebo odčítať štvrťrok, atď …
Nižšie je uvedený zoznam kódov a popisov.

- Číslo: Počet mesiacov, dní alebo týždňov (uvedený v intervale), ktoré chceme k dátumu pripočítať alebo odčítať.
- Dátum: Aktuálna hodnota dátumu, ktorú robíme aritmetickou operáciou.
Ak máte napríklad dátum „14. marca 2019“ a chcete k dátumu pridať dva dni, použite nasledujúci kód:
DateAdd („d,“ 2, „14-03-2019“)
Výsledok vyššie uvedeného kódu je: 16-03-2019
Ako používať funkciu Dateadd vo VBA?
Príklad # 1 - Pridať dátum
Na začatie konania použijeme jednoduchú funkciu DateAdd. Predpokladajme, že pracujete s dátumom „14-03-2019“.
Krok 1: Začnite podproces vytvorením názvu makra.
Krok 2: Definujte premennú ako Dátum.
Kód:
Sub DateAdd_Example1 () Dim mesiac ako dátum End Sub
Krok 3: Priraďte tejto premennej hodnotu.
Kód:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = End Sub
Krok 4: Spustite vzorec DateAdd .
Kód:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd (End Sub
Krok 5: Aká je operácia, ktorú chceme urobiť. Chceme deň do rande. Interval je teda „ d“.
Kód:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", End Sub
Krok 6: Koľko dní musíme pridať? Musím pridať 5 dní.
Kód:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, End Sub
Krok 7: Náš dátum je „ 14-03-2019. “
Kód:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") End Sub
Krok 8: Zobrazte výsledok premennej v okne správy VBA.
Kód:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") MsgBox NewDate End Sub
Ak spustím tento kód, mal by som dostať dátum 19-03-2019.

V mojom formáte systémového dátumu je „mm-dd-rrrr“, takže výsledok sa zobrazuje podľa nastavení systémového dátumu.
Môžeme to však upraviť aplikáciou funkcie VBA FORMAT.
Kód:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy") End Sub
Výsledok by mal teraz vyzerať takto: „ 19. marca 2019 “.

Príklad č. 2 - Pridajte mesiace
Ak chcete pridať mesiace, nižšie je uvedený kód
Kód:
Sub DateAdd_Example2 () 'Ak chcete pridať mesiace Dim NewDate As Date NewDate = DateAdd ("m", 5, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy") End Sub
Výsledkom bude:

Príklad č. 3 - Pridať roky
Ak chcete pridať roky pomocou nástroja DateAdd, použite nasledujúci kód.
Kód:
Sub DateAdd_Example2 () 'Ak chcete pridať rok Dim NewDate As Date NewDate = DateAdd ("yyyy", 5, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy") End Sub
Výsledkom bude:

Príklad č. 4 - Pridať štvrťrok
Ak chcete pridať štvrťrok nižšie, je to kód.
Kód:
Sub DateAdd_Example2 () 'Ak chcete pridať štvrtinu Dim NewDate As Date NewDate = DateAdd ("Q", 5, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy") End Sub
Výsledkom bude:

Príklad # 5 - Pridajte všedný deň
Nižšie je uvedený kód na pridanie pracovných dní.
Kód:
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.
Nižšie je uvedený kód, aby sa odpočítali 3 mesiace od dodaného dátumu.
Kód:
Sub DateAdd_Example3 () 'Ak chcete pridať hodinu Dim NewDate As Date NewDate = DateAdd ("m", -3, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy") End Sub
Výsledkom tohto kódu je:

Aj odpočítať 3 mesiace od 14. th marca 2019. Bude sa vrátiť k predchádzajúcemu roku.