DataDalis Aprašymas
Grąžina nurodytą datos dalį.
Paprasti DatePart pavyzdžiai
Čia yra paprastas „DatePart“ pavyzdys:
| 123 | Sub DatePart_Year_Test ()„MsgBox DatePart“ („yyyy“, #1/1/2019 #)Pabaiga Sub |
Šis kodas grąžins 2022 m.
DatePart sintaksė
VBA redaktoriuje galite įvesti „DatePart (“), kad pamatytumėte „DatePart“ funkcijos sintaksę:
Funkciją „DatePart“ sudaro 4 argumentai:
Intervalas: Laiko vienetas (dienos, mėnesiai, metai ir kt.). Įveskite kaip eilutę. (pvz., „m“ mėnesiui)
| Nustatymas | apibūdinimas |
|---|---|
| yyyy | Metai |
| q | Ketvirtis |
| m | Mėnuo |
| y | Metų diena |
| d | Diena |
| w | Savaitės diena |
| ww | Savaitė |
| h | Valanda |
| n | Minutė |
| s | Antra |
Data: Kintamojo (datos) reikšmė, kurią norite įvertinti.
„FirstDayOfWeek“: Konstanta, nurodanti pirmąją savaitės dieną. Tai neprivaloma. Jei nenurodyta, laikoma, kad sekmadienis.
| Pastovus | Vertė | apibūdinimas |
|---|---|---|
| vbUseSystem | 0 | Naudokite NLS API nustatymą. |
| vbSekmadienis | 1 | Sekmadienis (numatytasis) |
| vbPirmadienis | 2 | Pirmadienis |
| vbAntradienis | 3 | Antradienį |
| vbTrečiadienis | 4 | Trečiadienis |
| vbKetvirtadienis | 5 | Ketvirtadienis |
| vbPenktadienis | 6 | Penktadienis |
| vbŠeštadienis | 7 | Šeštadienis |
„FirstWeekOfYear“: Konstanta, nurodanti pirmąją metų savaitę. Tai neprivaloma. Jei nenurodyta, laikoma, kad pirmoji savaitė yra savaitė, kurią įvyksta sausio 1 d.
| Pastovus | Vertė | apibūdinimas |
|---|---|---|
| vbUseSystem | 0 | Naudokite NLS API nustatymą. |
| vbPirmasJan1 | 1 | Pradėkite nuo savaitės, kurią įvyksta sausio 1 d. (Numatytasis). |
| vbFirstFourDays | 2 | Pradėkite nuo pirmosios savaitės, kuri turi mažiausiai keturias dienas naujaisiais metais. |
| vbFirstFullWeek | 3 | Pradėkite nuo pirmosios pilnos metų savaitės. |
VBA programavimas | Kodo generatorius jums tinka!
„Excel VBA DatePart“ funkcijos pavyzdžiai
Nuorodos datos
Norėdami pradėti, parodysime skirtingus datų nuorodų būdus, naudodami funkciją VBA DatePart.
Kiekviena iš šių „DatePart“ funkcijų duoda tą patį rezultatą:
| 123456789 | Sub DateAdd_ReferenceDates ()„MsgBox DatePart“ („yyyy“, #4/1/2019 #)„MsgBox DatePart“ („yyyy“, DateSerial (2019, 4, 1))„MsgBox DatePart“ („yyyy“, DateValue („2022 m. Balandžio 1 d.“))Pabaiga Sub |
Arba galite nurodyti langelį, kuriame yra data:
| 12345 | Sub DatePart_ReferenceDate_Cell ()„MsgBox DatePart“ („yyyy“, diapazonas („C2“). Vertė)Pabaiga Sub |
Arba sukurkite ir nurodykite datos kintamuosius:
| 12345678 | Sub DatePart_Variable ()Dim dt As Datedt = #4/1/2019 #„MsgBox DateAdd“ („yyyy“, dt)Pabaiga Sub |
Skirtingų intervalų vienetų naudojimas
Ketvirtis
| 123 | Sub DatePart_Quarter ()„MsgBox DatePart“ („q“, #6/30/2019 #)Pabaiga Sub |
Mėnuo
| 12345 | Sub DatePart_Month ()„MsgBox DatePart“ („m“, #6/30/2019 #)'lygiavertis„MsgBox“ mėnuo (#6/30/2019#)Pabaiga Sub |
Diena
| 12345 | Antroji dataPart_Day ()„MsgBox DatePart“ („d“, #6/30/2019 #)'lygiavertis„MsgBox Day“ (#6/30/2019#)Pabaiga Sub |
Savaitė
| 12345 | Sub DatePart_Week_Test ()„MsgBox DatePart“ („w“, #6/30/2019 #)'lygiavertis„MsgBox“ darbo diena (#6/30/2019#)Pabaiga Sub |
Valanda
| 123456789101112 | Sub DatePart_Hour ()Dim dt As DateDim nHour As Longdt = #8/14/2019 9:30:00 #nHour = DatePart ("h", dt)„MsgBox nHour“'lygiavertis„MsgBox“ valanda (dt)Pabaiga Sub |
Minutės
| 123456 | Sub DatePart_Minute ()„MsgBox DatePart“ („n“, 2019-08-14 14:15:00 #)'lygiavertis„MsgBox“ minutė (2019 m. Rugpjūčio 14 d. 9:15:00#)„MsgBox“ minutė (#9: 15: 00 AM)Pabaiga Sub |
Antra
| 123456 | Sub DatePart_Second ()„MsgBox DatePart“ („s“, 2019-08-14 14:15:15 #)'lygiavertis„MsgBox Second“ (2019 m. Rugpjūčio 14 d. 9:15:15#)„MsgBox Second“ (#9:15:15#)Pabaiga Sub |
