DateAdd Description
Funktsioon VBA DateAdd võimaldab kuupäevadele või kellaaegadele liita (või lahutada) päevi, kuid, aastaid, tunde, veerandeid jne.
Lihtsad kuupäeva lisamise näited
Siin on lihtne DateAdd näide:
| 123 | AlamkuupäevAdd_Day ()MsgBox DateAdd ("d", 20, #4/1/2021 #)End Sub |
See kood lisab kuupäevale 01.04.2021 20 päeva (tähistatud tähega "d"):
Selle asemel saame argumendi Intervall muuta väärtusest „d” väärtuseks „m”, et lisada kuupäevale 01.04.2021 20 kuud:
| 123 | AlamkuupäevAdd_Month ()MsgBox DateAdd ("m", 20, #4/1/2021 #)End Sub |
Kuupäeva kuvamise asemel sõnumikastis saame selle määrata muutujale:
| 123456 | AlamkuupäevAdd_Day2 ()Dim dt kui kuupäevdt = DateAdd ("d", 20, #4/1/2021 #)MsgBox dtEnd Sub |
Kuupäeva lisamise süntaks
Funktsiooni DateAdd süntaksi nägemiseks võite VBA redaktoris tippida "DateAdd ("):
Funktsioon DateAdd sisaldab 3 argumenti.
Intervall: Ajaühik (päevad, kuud, aastad jne). Sisestage stringina. (nt “m” kuu kohta)
| Seadistamine | Kirjeldus |
|---|---|
| aaaa | Aasta |
| q | Kvartal |
| m | Kuu |
| y | Aasta päev |
| d | Päev |
| w | Nädalapäev |
| ww | Nädal |
| h | Tund |
| n | Minut |
| s | Teiseks |
Arv: Numbriline väärtus, mis tähistab lisatavate ajaühikute arvu. (nt 20, et lisada 20 ühikut)
Kuupäev: Esialgne kuupäev. Vaadake järgmist jaotist.
VBA programmeerimine | Koodigeneraator töötab teie jaoks!
Funktsiooni Excel VBA DateAdd näited
Viitamise kuupäevad
Alustuseks demonstreerime erinevaid viiteid kuupäevadele viitamiseks, kasutades funktsiooni VBA DateAdd.
Kõik need DateAdd funktsioonid annavad sama tulemuse:
| 123456789 | AlamkuupäevAdd_ReferenceDates ()MsgBox DateAdd ("m", 2, #4/1/2021 #)MsgBox DateAdd ("m", 2, DateSerial (2021, 4, 1))MsgBox DateAdd ("m", 2, DateValue ("1. aprill 2022"))End Sub |
Või võite viidata kuupäeva sisaldavale lahtrile:
| 12345 | AlamkuupäevAdd_ReferenceDates_Cell ()MsgBox DateAdd ("m", 2, vahemik ("C2"). Väärtus)End Sub |
Või looge kuupäevamuutuja ja viitage sellele:
| 12345678 | AlamkuupäevAdd_muutuja ()Dim dt kui kuupäevdt = #4/1/2021 #MsgBox DateAdd ("m", 2, dt)End Sub |
Kuupäevade lisamine või lahutamine
Oleme juba näidanud, kuidas kuupäeva lisada:
| 123456 | AlamkuupäevAdd_Day2 ()Dim dt kui kuupäevdt = DateAdd ("d", 20, #4/1/2021 #)MsgBox dtEnd Sub |
Kuupäevadest saate lahutada negatiivse numbri abil (nt 20 asemel 20):
| 123456 | AlamkuupäevAdd_Day ()Dim dt kui kuupäevdt = DateAdd ("d", -20, #4/1/2021 #)MsgBox dtEnd Sub |
Kas olete väsinud VBA koodinäidete otsimisest? Proovige AutoMacrot!
Erinevate ajaühikute lisamine
Aastad
| 123 | AlamkuupäevAdd_Years ()MsgBox DateAdd ("aaaa", 4, #4/1/2021 #)End Sub |
Kvartal
| 123 | Sub DateAdd_Quarters ()MsgBox DateAdd ("q", 2, #4/1/2021 #)End Sub |
Kuu
| 123 | AlamkuupäevAdd_Months ()MsgBox DateAdd ("m", 2, #4/1/2021 #)End Sub |
Aasta päev
| 123 | AlamkuupäevAdd_DaysofYear ()MsgBox DateAdd ("y", 2, #4/1/2021 #)End Sub |
Päev
| 123 | AlamkuupäevAdd_Days3 ()MsgBox DateAdd ("d", 2, #4/1/2021 #)End Sub |
Nädalapäev
| 123 | AlamkuupäevAdd_Weekdays ()MsgBox DateAdd ("w", 2, #4/1/2021 #)End Sub |
Nädal
| 123 | AlamkuupäevAdd_Weeks ()MsgBox DateAdd ("ww", 2, #4/1/2021 #)End Sub |
VBA programmeerimine | Koodigeneraator töötab teie jaoks!
Lisa tänasesse
Need näited lisavad kuupäevafunktsiooni abil kuupäevale ajaühikuid.
| 123456789 | AlamkuupäevAdd_Year_Test ()Dim dtToday as DateDim dtLate As DatedtToday = KuupäevdtLater = DateAdd ("yyyy", 1, dtToday)MsgBox "Aasta hiljem on" & dtLaterEnd Sub |
| 123 | AlamkuupäevAdd_Quarter_Test ()MsgBox "2 veerand hiljem on" & DateAdd ("q", 2, kuupäev)End Sub |
Aja lisamine ja lahutamine
Funktsioon DateAdd töötab ka Timesiga. Siin on mõned näited ajale aja lisamise (või lahutamise) kohta:
Tund
See näide lisab korraga 2 tundi:
| 123 | AlamkuupäevAdd_tund ()MsgBox DateAdd ("h", 2, #4/1/2021 6: 00: 00 #)End Sub |
Minut
See näide lahutab praegusest ajast 120 minutit:
| 123 | AlamkuupäevAdd_Minute_Subtract ()MsgBox DateAdd ("n", -120, kohe)End Sub |
Teiseks
| 123 | Sub DateAdd_Second ()MsgBox DateAdd ("s", 2, #4/1/2021 6: 00: 00 #)End Sub |
Kuupäevade vormindamine
Kui Excelis, kasutajavormides või sõnumikastides kuvatakse kuupäevi (või kellaaegu), peaksite funktsiooni vormindamise abil näitama, kuidas kuupäevi kuvada. Allpool oleme toonud mõned näited:
| 123456789101112131415161718 | AlamvormingDatesTimes ()'Tagastab praeguse kuupäeva ja kellaajadt = praegu ()'nt 02.07.2021Vahemik ("B2") = vorming (dt, "mm/pp/aaaa")'nt 2. juulil 2022Vahemik ("B3") = vorming (dt, "mmmm d, yyyy")'nt 2. juuli 2022 09:10Vahemik ("B4") = vorming (dt, "mm/pp/aaaa th: mm")'nt 7.2.21 9:10Vahemik ("B5") = Vorming (dt, "k.p.yy h: mm AM/PM")End Sub |
