VBA DateAdd - Přidejte a odečtěte data pomocí funkce Dateadd

Obsah

Funkce Excel VBA DateAdd

Funkce Excel VBA DateAdd

Funkce DateAdd je zařazena do kategorie funkce data a času ve VBA a tato funkce má výstupní hodnotu jako datum, bere vstup jako formát data a přidává jej k aktuálnímu datu, aby vrátila nové datum, syntaxe této funkce trvá interval tří argumentů, číslo a datum.

Pomocí funkce DateAdd můžeme od daného data přidat a odečíst dny, měsíce a roky. Datum v aplikaci Excel je nedílnou součástí naší každodenní práce; nemůžeme pracovat v excelu bez data, času a dalších důležitých věcí. Přidání jednoho data k jinému datu, odečtení jednoho data od druhého, je běžný proces. V běžném listu jednoduše provedeme aritmetické operace a dostaneme výsledek. Ve VBA máme funkci nazvanou DateAdd, která tuto práci provede.

Syntax

Interval: Interval není nic jiného než jaký druh hodnoty chcete přidat nebo odečíst. Například ať chcete přidat nebo odečíst měsíc, zda chcete přidat nebo odečíst dny, zda chcete přidat nebo odečíst rok, zda chcete přidat nebo odečíst čtvrtletí atd.…

Níže je uveden seznam kódů a popisů.

Number: Počet měsíců, dnů nebo týdnů (jak je uvedeno v intervalu), které chceme k datu přidat nebo odečíst.
Datum: Skutečná hodnota data, kterou provádíme aritmetickou operaci.

Pokud máte například datum „14. března 2019“ a chcete k datu přidat dva dny, použijte následující kód:

DateAdd („d,“ 2, „14-03-2019“)

Výsledek výše uvedeného kódu je: 16-03-2019

Jak používat funkci Dateadd ve VBA?

Příklad č. 1 - Přidat datum

K zahájení řízení použijeme jednoduchou funkci DateAdd. Předpokládejme, že pracujete s datem „14-03-2019“.

Krok 1: Spusťte podproces vytvořením názvu makra.

Krok 2: Definujte proměnnou jako Datum.

Kód:

Sub DateAdd_Example1 () Dim měsíc jako datum End Sub

Krok 3: U této proměnné přiřaďte hodnotu.

Kód:

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

Krok 4: Spusťte vzorec DateAdd .

Kód:

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

Krok 5: Jaká je operace, kterou chceme udělat. Chceme den do rande. Interval je tedy „ d“.

Kód:

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

Krok 6: Kolik dní musíme přidat? Musím přidat 5 dní.

Kód:

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

Krok 7: Naše datum 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ýsledek proměnné v okně se zprávou VBA.

Kód:

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

Pokud spustím tento kód, měl bych dostat datum jako 19-03-2019.

V mém formátu systémového data je „mm-dd-rrrr“, takže výsledek se zobrazuje podle nastavení systémového data.

Můžeme to však upravit použitím funkce VBA FORMAT.

Kód:

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

Výsledek by nyní měl vypadat takto „ 19. března 2019 “.

Příklad č. 2 - Přidat měsíce

Chcete-li přidat měsíce, níže je 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.

Níže je uveden kód, aby se odečetly 3 měsíce od dodaného data.

Kód:

Sub DateAdd_Example3 () 'Chcete-li přidat hodinu Dim NewDate As Date NewDate = DateAdd ("m", -3, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy") End Sub

Výsledkem tohoto kódu je: