DatePart Leírás
Egy adott dátum meghatározott részét adja vissza.
Egyszerű dátumrészes példák
Íme egy egyszerű DatePart példa:
| 123 | RészdátumPart_Year_Test ()MsgBox DatePart ("éééé", #1/1/2019 #)End Sub |
Ez a kód 2022 -ben tér vissza.
DatePart szintaxis
A VBA szerkesztőben beírhatja a „DatePart (”) parancsot a DatePart függvény szintaxisának megtekintéséhez:
A DatePart függvény 4 érvet tartalmaz:
Intervallum: Időegység (napok, hónapok, évek stb.). Írja be karakterláncként. (pl. „m” a hónapban)
| Beállítás | Leírás |
|---|---|
| yyyy | Év |
| q | Negyed |
| m | Hónap |
| y | Az év napja |
| d | Nap |
| w | Hétköznap |
| ww | Hét |
| h | Óra |
| n | Perc |
| s | Második |
Dátum: A kiértékelni kívánt változó (dátum) értéke.
FirstDayOfWeek: Állandó, amely a hét első napját határozza meg. Ez nem kötelező. Ha nincs megadva, akkor a vasárnapot kell feltételezni.
| Állandó | Érték | Leírás |
|---|---|---|
| vbUseSystem | 0 | Használja az NLS API beállítást. |
| vbVasárnap | 1 | Vasárnap (alapértelmezett) |
| vbHétfő | 2 | hétfő |
| vbKedd | 3 | kedd |
| vbSzerda | 4 | szerda |
| vbCsütörtök | 5 | csütörtök |
| vbPéntek | 6 | péntek |
| vbSombat | 7 | szombat |
FirstWeekOfYear: Állandó, amely meghatározza az év első hetét. Ez nem kötelező. Ha nincs megadva, akkor az első hét a január 1 -jének hete.
| Állandó | Érték | Leírás |
|---|---|---|
| vbUseSystem | 0 | Használja az NLS API beállítást. |
| vbElsőJan1 | 1 | Kezdje azzal a héttel, amelyen január 1. van (alapértelmezett). |
| vbFirstFourDays | 2 | Kezdje azzal az első héttel, amelynek legalább négy napja van az új évben. |
| vbFirstFullWeek | 3 | Kezdje az év első teljes hetével. |
VBA programozás | A kódgenerátor működik az Ön számára!
Példák az Excel VBA DatePart függvényére
Dátumok hivatkozása
Kezdetben bemutatjuk a dátumok hivatkozásának különböző módjait a VBA DatePart függvény használatával.
A DatePart függvények mindegyike ugyanazt az eredményt eredményezi:
| 123456789 | Sub DateAdd_ReferenceDates ()MsgBox DatePart ("éééé", 2019.04.04. #)MsgBox DatePart ("yyyy", DateSerial (2019, 4, 1))MsgBox DatePart ("yyyy", DateValue ("2022. április 1."))End Sub |
Vagy hivatkozhat egy dátumot tartalmazó cellára:
| 12345 | Sub DatePart_ReferenceDate_Cell ()MsgBox DatePart ("éééé", tartomány ("C2"). Érték)End Sub |
Vagy hozzon létre és hivatkozzon dátumváltozókat:
| 12345678 | Sub DatePart_Variable ()Dim dt dátumkéntdt = #4/1/2019 #MsgBox DateAdd ("éééé", dt)End Sub |
Különböző intervallum egységek használata
Negyed
| 123 | Rész dátumPart_Quarter ()MsgBox DatePart ("q", #6/30/2019 #)End Sub |
Hónap
| 12345 | RészdátumPart_Hónap ()MsgBox DatePart ("m", #6/30/2019 #)'egyenértékűMsgBox hónap (#6.30.2019.#)End Sub |
Nap
| 12345 | RészdátumPart_Day ()MsgBox DatePart ("d", #6/30/2019 #)'egyenértékűMsgBox Day (#6/30/2019#)End Sub |
Hét
| 12345 | Rész dátumPart_Week_Test ()MsgBox DatePart ("w", #6/30/2019 #)'egyenértékűMsgBox hétköznap (#6/30/2019#)End Sub |
Óra
| 123456789101112 | RészdátumPart_óra ()Dim dt dátumkéntDim nOour As Longdt = #8/14/2019 9:30:00 #nHour = DatePart ("h", dt)MsgBox nHour'egyenértékűMsgBox óra (dt)End Sub |
Percek
| 123456 | RészdátumPart_Minute ()MsgBox DatePart ("n", 2019.08.14. 9:15:00 #)'egyenértékűMsgBox perc (2019.08.14. 9:15:00#)MsgBox perc (#9: 15: 00 AM)End Sub |
Második
| 123456 | Sub DatePart_Second ()MsgBox DatePart ("s", 2019.08.14. 9:15:15 #)'egyenértékűMsgBox Second (2019.08.14. 9:15:15#)MsgBox Second (#9: 15: 15 AM#)End Sub |
