Popis části dataPart
Vrátí zadanou část daného data.
Jednoduché příklady DatePart
Zde je jednoduchý příklad DatePart:
| 123 | Dílčí datumPart_Year_Test ()MsgBox DatePart („rrrr“, č. 1/1/2019 #)End Sub |
Tento kód vrátí 2022.
Syntaxe DatePart
V editoru VBA můžete zadat „DatePart (“ a zobrazit syntaxi funkce DatePart:
Funkce DatePart obsahuje 4 argumenty:
Časový úsek: Časová jednotka (dny, měsíce, roky atd.). Zadejte jako řetězec. (např. „m“ za měsíc)
| Nastavení | Popis |
|---|---|
| rrrr | Rok |
| q | Čtvrťák |
| m | Měsíc |
| y | Den roku |
| d | Den |
| w | Všední den |
| ww | Týden |
| h | Hodina |
| n | Minuta |
| s | Druhý |
Datum: Variabilní (datum) hodnota, kterou chcete vyhodnotit.
FirstDayOfWeek: Konstanta, která určuje první den v týdnu. Toto je volitelné. Pokud není uvedeno, předpokládá se neděle.
| Konstantní | Hodnota | Popis |
|---|---|---|
| vbUseSystem | 0 | Použijte nastavení NLS API. |
| vb Neděle | 1 | Neděle (výchozí) |
| vb Pondělí | 2 | pondělí |
| vbÚterý | 3 | úterý |
| vb Středa | 4 | středa |
| vbČtvrtek | 5 | Čtvrtek |
| vb pátek | 6 | pátek |
| vbSobota | 7 | sobota |
FirstWeekOfYear: Konstanta, která určuje první týden v roce. Toto je volitelné. Není -li uvedeno, považuje se za první týden týden, ve kterém se vyskytuje 1. leden.
| Konstantní | Hodnota | Popis |
|---|---|---|
| vbUseSystem | 0 | Použijte nastavení NLS API. |
| vbFirstJan1 | 1 | Začněte týdnem, ve kterém nastane 1. leden (výchozí). |
| vbFirstFourDays | 2 | Začněte prvním týdnem, který má v novém roce alespoň čtyři dny. |
| vbFirstFullWeek | 3 | Začněte prvním celým týdnem v roce. |
Programování VBA | Generátor kódu pracuje pro vás!
Příklady funkce Excel VBA DatePart
Referenční data
Na začátek předvedeme různé způsoby odkazování na data pomocí funkce VBA DatePart.
Každá z těchto funkcí DatePart přináší stejný výsledek:
| 123456789 | Sub DateAdd_ReferenceDates ()MsgBox DatePart („rrrr“, č. 4/1/2019 #)MsgBox DatePart („rrrr“, DateSerial (2019, 4, 1))MsgBox DatePart („rrrr“, DateValue („1. dubna 2022“))End Sub |
Nebo můžete odkazovat na buňku obsahující datum:
| 12345 | Sub DatePart_ReferenceDate_Cell ()MsgBox DatePart ("rrrr", rozsah ("C2"). Hodnota)End Sub |
Nebo vytvořte a odkazujte na proměnné data:
| 12345678 | Dílčí datumPart_Variable ()Dim dt As Datedt = #4/1/2019 #MsgBox DateAdd ("rrrr", dt)End Sub |
Použití různých jednotek intervalu
Čtvrťák
| 123 | Dílčí datumPart_Quarter ()MsgBox DatePart ("q", #6/30/2019 #)End Sub |
Měsíc
| 12345 | Dílčí datumPart_Month ()MsgBox DatePart ("m", #6/30/2019 #)'ekvivalentMěsíc MsgBox (#6/30/2019#)End Sub |
Den
| 12345 | Dílčí datumPart_Den ()MsgBox DatePart ("d", #6/30/2019 #)'ekvivalentDen MsgBox (#6/30/2019#)End Sub |
Týden
| 12345 | Sub DatePart_Week_Test ()MsgBox DatePart ("w", #6/30/2019 #)'ekvivalentMsgBox Den v týdnu (#6/30/2019#)End Sub |
Hodina
| 123456789101112 | Dílčí datumPart_Hour ()Dim dt As DateDim nHour As Longdt = #8/14/2019 9:30:00 AM #nHour = DatePart ("h", dt)MsgBox nHour'ekvivalentMsgBox Hour (dt)End Sub |
Minut
| 123456 | Dílčí datumPart_Minute ()MsgBox DatePart ("n", #8/14/2019 9:15:00 AM #)'ekvivalentMsgBox Minute (#8/14/2019 9:15:00 AM#)MsgBox Minute (#9: 15: 00 AM#)End Sub |
Druhý
| 123456 | Sub DatePart_Second ()MsgBox DatePart ("s", 14. 8. 2019 9:15:15 hod.)'ekvivalentMsgBox Second (#8/14/2019 9:15:15 AM#)MsgBox Second (#9: 15: 15 AM#)End Sub |
