DatumDodaj opis
VBA funkcija dodavanja datuma omogućuje dodavanje (ili oduzimanje) dana, mjeseci, godina, sati, kvartala itd. U datume ili vremena.
Jednostavni primjeri dodavanja datuma
Evo jednostavnog primjera DateAdd:
| 123 | Pod -datumAdd_Day ()MsgBox DateAdd ("d", 20, #4/1/2021 #)Kraj podm |
Ovaj kôd će dodati 20 dana (označeno s "d") na datum 04.04.2021 .:
Umjesto toga, možemo promijeniti argument Interval iz “d” u “m” kako bismo datumu 04.04.2021. Dodali 20 mjeseci:
| 123 | Pod -datumAdd_Month ()MsgBox DateAdd ("m", 20, #4/1/2021 #)Kraj podm |
Umjesto da prikazujemo datum u okviru za poruku, možemo ga dodijeliti varijabli:
| 123456 | Pod -datumAdd_Day2 ()Zatamni dt kao datumdt = DateAdd ("d", 20, #4/1/2021 #)MsgBox dtKraj podm |
Sintaksa dodavanja datuma
U VBA Editor -u možete upisati "DateAdd (" da vidite sintaksu za funkciju DateAdd:
Funkcija DateAdd sadrži 3 argumenta:
Interval: Vremenska jedinica (Dani, Mjeseci, Godine itd.). Unesite kao niz. (npr. "m" za mjesec)
| Postavljanje | Opis |
|---|---|
| gggg | Godina |
| q | Četvrtina |
| m | Mjesec |
| y | Dan u godini |
| d | Dan |
| w | Radni dan |
| ww | Tjedan |
| h | Sat |
| n | Minuta |
| s | Drugi |
Broj: Numerička vrijednost koja predstavlja broj vremenskih jedinica za dodavanje. (npr. 20 za dodavanje 20 jedinica)
Datum: Početni datum. Pogledajte sljedeći odjeljak.
VBA programiranje | Generator koda radi za vas!
Primjeri funkcije Excel VBA DateAdd
Referentni datumi
Za početak ćemo pokazati različite načine pozivanja na datume pomoću VBA DateAdd funkcije.
Svaka od ovih funkcija DateAdd proizvodi isti rezultat:
| 123456789 | Pod -datumAdd_ReferenceDates ()MsgBox DateAdd ("m", 2, #4/1/2021 #)MsgBox DateAdd ("m", 2, DateSerial (2021, 4, 1))MsgBox DateAdd ("m", 2, DateValue ("1. travnja 2022"))Kraj podm |
Ili se možete pozvati na ćeliju koja sadrži datum:
| 12345 | Pod -datumAdd_ReferenceDates_Cell ()MsgBox DateAdd ("m", 2, Raspon ("C2"). Vrijednost)Kraj podm |
Ili stvorite i referencirajte varijablu datuma:
| 12345678 | Pod -datumAdd_Variable ()Priguši dt kao datumdt = #4/1/2021 #MsgBox DateAdd ("m", 2, dt)Kraj podm |
Zbrajanje ili oduzimanje datuma
Već smo vam pokazali kako dodati datumu:
| 123456 | Pod -datumAdd_Day2 ()Zatamni dt kao datumdt = DateAdd ("d", 20, #4/1/2021 #)MsgBox dtKraj podm |
Od datuma možete oduzeti negativni broj (npr. -20 umjesto 20):
| 123456 | Pod -datumAdd_Day ()Zatamni dt kao datumdt = DateAdd ("d", -20, #4/1/2021 #)MsgBox dtKraj podm |
Umorni ste od traženja primjera VBA koda? Isprobajte AutoMacro!
Dodavanje različitih jedinica vremena
Godine
| 123 | Pod -datumAdd_Years ()MsgBox DateAdd ("gggg", 4, #4/1/2021 #)Kraj podm |
Četvrtina
| 123 | Pod -datumAdd_Quarters ()MsgBox DateAdd ("q", 2, #4/1/2021 #)Kraj podm |
Mjesec
| 123 | Pod -datumAdd_Months ()MsgBox DateAdd ("m", 2, #4/1/2021 #)Kraj podm |
Dan u godini
| 123 | Pod -datumAdd_DaysofYear ()MsgBox DateAdd ("y", 2, #4/1/2021 #)Kraj podm |
Dan
| 123 | Pod -datumAdd_Days3 ()MsgBox DateAdd ("d", 2, #4/1/2021 #)Kraj podm |
Radni dan
| 123 | Pod -datumAdd_Weekdays ()MsgBox DateAdd ("w", 2, #4/1/2021 #)Kraj podm |
Tjedan
| 123 | Pod -datumAdd_Weeks ()MsgBox DateAdd ("ww", 2, #4/1/2021 #)Kraj podm |
VBA programiranje | Generator koda radi za vas!
Dodaj danas
Ovi primjeri će danas dodati vremenske jedinice pomoću funkcije Date.
| 123456789 | Pod -datumAdd_Year_Test ()Dim dtToday As DateZatamni dtKasnije kao datumdtToday = DatumdtLater = DateAdd ("gggg", 1, dtToday)MsgBox "Godinu dana kasnije" & dtLaterKraj podm |
| 123 | Pod -datumAdd_Quarter_Test ()MsgBox "2 četvrtine kasnije je" & DateAdd ("q", 2, Datum)Kraj podm |
Zbrajanje i oduzimanje vremena
Funkcija DateAdd također radi s Timesom. Evo nekoliko primjera dodavanja (ili oduzimanja) vremena u vrijeme:
Sat
Ovaj primjer će dodati 2 sata na vrijeme:
| 123 | Pod -datumAdd_Hour ()MsgBox DateAdd ("h", 2, #4/1/2021 6: 00: 00 #)Kraj podm |
Minuta
Ovaj primjer oduzima 120 minuta od trenutnog vremena:
| 123 | Pod -datumAdd_Minute_Subtract ()MsgBox DateAdd ("n", -120, sada)Kraj podm |
Drugi
| 123 | Pod -datumAdd_Second ()MsgBox DateAdd ("s", 2, #4/1/2021 6: 00: 00 #)Kraj podm |
Oblikovanje datuma
Kad su datumi (ili vremena) prikazani u Excelu, korisničkim obrascima ili okvirima s porukama, trebali biste navesti kako bi datumi trebali biti prikazani pomoću funkcije oblikovanja. U nastavku smo naveli nekoliko primjera:
| 123456789101112131415161718 | PodoblikovanjeDatesTimes ()'Vraća trenutni datum i vrijemedt = Sada ()'ex. 07/02/2021Raspon ("B2") = Format (dt, "mm/dd/ggggg")'ex. 2. srpnja 2022. godineRaspon ("B3") = Format (dt, "mmmm d, gggg")'ex. 2. srpnja 2022. 09:10Raspon ("B4") = Format (dt, "mm/dd/gggg hh: mm")'ex. 7.2.21 9:10Raspon ("B5") = Format (dt, "m.d.yy h: mm AM/PM")Kraj podm |
