DateAdd Description
Funkcija VBA DateAdd ļauj datumiem vai laikiem pievienot (vai atņemt) dienas, mēnešus, gadus, stundas, ceturkšņus utt.
Vienkārši datuma pievienošanas piemēri
Šeit ir vienkāršs DateAdd piemērs:
| 123 | ApakšdatumsAdd_Day ()MsgBox DateAdd ("d", 20, #4/1/2021 #)Beigu apakš |
Šis kods datumam 01.01.2021 pievienos 20 dienas (norādīts ar “d”):
Tā vietā mēs varam mainīt intervāla argumentu no “d” uz “m”, lai datumam 20.01.2021 pievienotu 20 mēnešus:
| 123 | ApakšdatumsAdd_Month ()MsgBox DateAdd ("m", 20, #4/1/2021 #)Beigu apakš |
Tā vietā, lai ziņu lodziņā parādītu datumu, mēs varam to piešķirt mainīgajam:
| 123456 | ApakšdatumsAdd_Day2 ()Dim dt kā datumsdt = DateAdd ("d", 20, #4/1/2021 #)MsgBox dtBeigu apakš |
DateAdd Syntax
VBA redaktorā varat ierakstīt “DateAdd (”), lai redzētu funkcijas DateAdd sintaksi:
Funkcija DateAdd satur 3 argumentus.
Intervāls: Laika vienība (dienas, mēneši, gadi utt.). Ievadiet kā virkni. (piem., “m” mēnesī)
| Iestatīšana | Apraksts |
|---|---|
| yyyy | Gads |
| q | Ceturksnis |
| m | Mēnesis |
| g | Gada diena |
| d | Diena |
| w | Darba diena |
| ww | Nedēļa |
| h | Stunda |
| n | Minūte |
| s | Otrais |
Skaitlis: Ciparu vērtība, kas norāda pievienojamo laika vienību skaitu. (piem., 20, lai pievienotu 20 vienības)
Datums: Sākotnējais datums. Skatīt nākamo sadaļu.
VBA programmēšana | Kodu ģenerators strādā jūsu labā!
Funkcijas Excel VBA DateAdd piemēri
Atsauces datumi
Lai sāktu, mēs demonstrēsim dažādus datumu atsauces veidus, izmantojot funkciju VBA DateAdd.
Katra no šīm funkcijām DateAdd rada tādu pašu rezultātu:
| 123456789 | ApakšdatumsAdd_ReferenceDates ()MsgBox DateAdd ("m", 2, #4/1/2021 #)MsgBox DateAdd ("m", 2, DateSerial (2021, 4, 1))MsgBox DateAdd ("m", 2, DateValue ("2022. gada 1. aprīlis"))Beigu apakš |
Vai arī varat atsaukties uz šūnu, kurā ir datums:
| 12345 | ApakšdatumsAdd_ReferenceDates_Cell ()MsgBox DateAdd ("m", 2, diapazons ("C2"). Vērtība)Beigu apakš |
Vai arī izveidojiet datuma mainīgo un atsaucieties uz to:
| 12345678 | ApakšdatumsAdd_Variable ()Dim dt kā datumsdt = #4/1/2021 #MsgBox DateAdd ("m", 2, dt)Beigu apakš |
Datumu pievienošana vai atņemšana
Mēs jau esam parādījuši, kā pievienot datumu:
| 123456 | ApakšdatumsAdd_Day2 ()Dim dt kā datumsdt = DateAdd ("d", 20, #4/1/2021 #)MsgBox dtBeigu apakš |
Jūs varat atņemt no datumiem, izmantojot negatīvu skaitli (piemēram, -20, nevis 20):
| 123456 | ApakšdatumsAdd_Day ()Dim dt kā datumsdt = DateAdd ("d", -20, #4/1/2021 #)MsgBox dtBeigu apakš |
Vai esat noguris no VBA koda piemēru meklēšanas? Izmēģiniet AutoMacro!
Dažādu laika vienību pievienošana
Gadi
| 123 | ApakšdatumsAdd_Years ()MsgBox DateAdd ("gggg", 4, #4/1/2021 #)Beigu apakš |
Ceturksnis
| 123 | ApakšdatumsAdd_Quarters ()MsgBox DateAdd ("q", 2, #4/1/2021 #)Beigu apakš |
Mēnesis
| 123 | ApakšdatumsAdd_Months ()MsgBox DateAdd ("m", 2, #4/1/2021 #)Beigu apakš |
Gada diena
| 123 | ApakšdatumsAdd_DaysofYear ()MsgBox DateAdd ("y", 2, #4/1/2021 #)Beigu apakš |
Diena
| 123 | ApakšdatumsAdd_Days3 ()MsgBox DateAdd ("d", 2, #4/1/2021 #)Beigu apakš |
Darba diena
| 123 | ApakšdatumsAdd_Weekdays ()MsgBox DateAdd ("w", 2, #4/1/2021 #)Beigu apakš |
Nedēļa
| 123 | ApakšdatumsAdd_Weeks ()MsgBox DateAdd ("ww", 2, #4/1/2021 #)Beigu apakš |
VBA programmēšana | Kodu ģenerators strādā jūsu labā!
Pievienot šodienai
Šie piemēri pievienos laika vienības šodienai, izmantojot funkciju Datums.
| 123456789 | ApakšdatumsAdd_Year_Test ()Dim dtŠodien kā datumsDim dtVēlāk kā datumsdtToday = DatumsdtLater = DateAdd ("gggg", 1, dtŠodien)MsgBox "Gadu vēlāk ir" & dtLaterBeigu apakš |
| 123 | ApakšdatumsAdd_Quarter_Test ()MsgBox "2 ceturtdaļas vēlāk ir" & DateAdd ("q", 2, datums)Beigu apakš |
Laika pievienošana un atņemšana
Funkcija DateAdd darbojas arī ar Times. Šeit ir daži laika pievienošanas (vai atņemšanas) piemēri:
Stunda
Šis piemērs vienlaikus papildinās 2 stundas:
| 123 | ApakšdatumsAdd_Hour ()MsgBox DateAdd ("h", 2, #4/1/2021 6: 00: 00 #)Beigu apakš |
Minūte
Šis piemērs no pašreizējā laika atņems 120 minūtes:
| 123 | ApakšdatumsAdd_Minute_Subtract ()MsgBox DateAdd ("n", -120, tūlīt)Beigu apakš |
Otrais
| 123 | ApakšdatumsAdd_Second ()MsgBox DateAdd ("s", 2, #4/1/2021 6: 00: 00 #)Beigu apakš |
Datumu formatēšana
Kad datumi (vai laiki) tiek parādīti programmā Excel, UserForms vai Ziņojumu kastes, izmantojot formāta funkciju, jums jānorāda, kā datumi jāparāda. Tālāk mēs esam iekļāvuši dažus piemērus:
| 123456789101112131415161718 | ApakšformatēšanaDatesTimes ()'Atgriež pašreizējo datumu un laikudt = Tagad ()'piem. 07.02.2021Diapazons ("B2") = Formāts (dt, "mm/dd/gggg")'piem. 2022. gada 2. jūlijsDiapazons ("B3") = Formāts (dt, "mmmm d, gggg")'piem. 2022. gada 2. jūlijs 09:10Diapazons ("B4") = Formāts (dt, "mm/dd/gggg hh: mm")'piem. 7.2.21 9:10Diapazons ("B5") = Formāts (dt, "m.d.yy h: mm AM/PM")Beigu apakš |
