Excel VBA funkcija dodavanja datuma
Funkcija DateAdd kategorizirana je prema funkciji datuma i vremena u VBA, a ova funkcija ima izlaznu vrijednost kao datum, uzima unos kao format datuma i dodaje je trenutnom datumu da bi vratila novi datum interval tri argumenta, broj i datum.
Korištenjem funkcije DateAdd možemo dodavati i oduzimati dane, mjesece i godine od zadanog datuma. Datum u Excelu sastavni je dio našeg svakodnevnog posla; ne možemo raditi u excelu bez datuma, vremena i drugih važnih stvari. Uobičajeni je postupak dodavanja jednog datuma drugom, oduzimanja jednog datuma drugom. U redovnom radnom listu jednostavno radimo aritmetičke operacije i dobivamo rezultat. U VBA imamo funkciju koja se zove DateAdd, koja će obaviti posao.
Sintaksa
Interval: Interval nije ništa drugo do kakva je vrijednost koju želite dodati ili oduzeti. Na primjer, želite li dodati ili oduzeti mjesec, želite li dodati ili oduzeti dane, želite li dodati ili oduzeti godinu, želite li dodati ili oduzeti tromjesečje itd. …
Ispod je popis kodova i opisa.
- Broj: Broj mjeseci, dana ili tjedna (kako je predviđeno u intervalu) koji želimo dodati ili oduzeti datumu.
- Datum: Stvarna datumska vrijednost kojom radimo aritmetičku operaciju.
Na primjer, ako imate datum "14. ožujka 2019." i želite datumu dodati dva dana, upotrijebite donji kod:
DateAdd („d“, 2, „14-03-2019“)
Rezultat gornjeg koda je: 16-03-2019
Kako koristiti funkciju Dateadd u VBA?
Primjer # 1 - Dodaj datum
Da započnemo postupak, primijenimo jednostavnu funkciju DateAdd. Pretpostavimo da radite s datumom "14-03-2019".
Korak 1: Pokrenite potpostupak stvaranjem imena makronaredbe.
Korak 2: Definirajte varijablu kao Datum.
Kodirati:
Sub DateAdd_Example1 () Zatamni mjesec kao datum završetka Sub
Korak 3: Za ovu varijablu dodijelite vrijednost.
Kodirati:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = End Sub
Korak 4: Pokrenite formulu DateAdd .
Kodirati:
Sub DateAdd_Example1 () Zatamni novi datum kao datum NewDate = DateAdd (End Sub
Korak 5: Koju operaciju želimo učiniti. Želimo dan do datuma. Dakle, interval je " d".
Kodirati:
Sub DateAdd_Example1 () Zatamni novi datum kao datum NewDate = DateAdd ("d", End Sub
Korak 6: Koliko dana trebamo dodati? Moram dodati 5 dana.
Kodirati:
Sub DateAdd_Example1 () Zatamni novi datum kao datum NewDate = DateAdd ("d", 5, End Sub
Korak 7: Naš datum je “ 14-03-2019. "
Kodirati:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") Kraj Sub
Korak 8: Prikažite rezultat varijable u okviru VBA poruke.
Kodirati:
Sub DateAdd_Example1 () Zatamni novi datum kao datum NewDate = DateAdd ("d", 5, "14-03-2019") MsgBox NewDate End Sub
Ako pokrenem ovaj kôd, trebao bih dobiti datum 19-03-2019.
U mom formatu sistemskog datuma je "mm-dd-yyyy", tako da se rezultat prikazuje prema postavkama sistemskog datuma.
Međutim, to možemo izmijeniti primjenom funkcije VBA FORMAT.
Kodirati:
Sub DateAdd_Example1 () Zatamni novi datum kao datum NewDate = DateAdd ("d", 5, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyyy") End Sub
Sada bi se rezultat trebao svidjeti ovom " 19. ožujka 2019. "
Primjer # 2 - dodajte mjesece
Da biste dodali mjesece, dolje je šifra
Kodirati:
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.
Da bi se od navedenog datuma oduzela 3 mjeseca, dolje je šifra.
Kodirati:
Sub DateAdd_Example3 () 'Da biste dodali sat Dim NewDate As Date NewDate = DateAdd ("m", -3, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyyy)) End Sub
Rezultat ovog koda je:
Ja odbiti 3 mjeseca od dana 14. -og ožujka 2019. godine će se vratiti na prethodnu godinu.
