Popis časti dátumu
Vráti zadanú časť daného dátumu.
Jednoduché príklady DatePart
Tu je jednoduchý príklad DatePart:
| 123 | Sub DatePart_Year_Test ()MsgBox DatePart („rrrr“, č. 1/1/2019 #)Koniec pod |
Tento kód vráti 2022.
Syntax DatePart
V editore VBA môžete zadať „DatePart (“ a zobraziť si syntax pre funkciu DatePart:
Funkcia DatePart obsahuje 4 argumenty:
Interval: Časová jednotka (dni, mesiace, roky atď.). Zadajte ako reťazec. (napr. „m“ za mesiac)
| Nastavenie | Popis |
|---|---|
| rrrr | Rok |
| q | Štvrťrok |
| m | Mesiac |
| r | Deň v roku |
| d | Deň |
| w | Všedný deň |
| ww | Týždeň |
| h | Hodina |
| n | Minúta |
| s | Druhý |
Dátum: Hodnota prechodu (dátum), ktorú chcete vyhodnotiť.
FirstDayOfWeek: Konštanta, ktorá určuje prvý deň v týždni. Toto je voliteľné. Ak nie je uvedené inak, predpokladá sa nedeľa.
| Konštantný | Hodnota | Popis |
|---|---|---|
| vbUseSystem | 0 | Použite nastavenie API NLS. |
| vb Nedeľa | 1 | Nedeľa (predvolené) |
| vbMonday | 2 | Pondelok |
| vbÚterý | 3 | Utorok |
| vb streda | 4 | Streda |
| vbŠtvrtok | 5 | Štvrtok |
| vbPiatok | 6 | Piatok |
| vbSobota | 7 | Sobota |
FirstWeekOfYear: Konštanta, ktorá určuje prvý týždeň v roku. Toto je voliteľné. Ak nie je uvedené inak, za prvý týždeň sa považuje týždeň, v ktorom sa vyskytuje 1. január.
| Konštantný | Hodnota | Popis |
|---|---|---|
| vbUseSystem | 0 | Použite nastavenie API NLS. |
| vbFirstJan1 | 1 | Začnite týždňom, v ktorom je 1. január (predvolené). |
| vbFirstFourDays | 2 | Začnite prvým týždňom, ktorý má v novom roku najmenej štyri dni. |
| vbFirstFullWeek | 3 | Začnite prvým celým týždňom v roku. |
Programovanie VBA | Generátor kódu pracuje za vás!
Príklady funkcie Excel VBA DatePart
Referenčné termíny
Na začiatok predvedieme rôzne spôsoby odkazovania na dátumy pomocou funkcie VBA DatePart.
Každá z týchto funkcií DatePart prináša rovnaký výsledok:
| 123456789 | Sub DateAdd_ReferenceDates ()MsgBox DatePart („rrrr“, č. 4/1/2019 #)MsgBox DatePart („rrrr“, DateSerial (2019, 4, 1))MsgBox DatePart („rrrr“, DateValue („1. apríl 2022“))Koniec pod |
Alebo môžete odkazovať na bunku obsahujúcu dátum:
| 12345 | Sub DatePart_ReferenceDate_Cell ()MsgBox DatePart („rrrr“, rozsah („C2“). Hodnota)Koniec pod |
Alebo vytvorte a odkazujte na premenné dátumu:
| 12345678 | Vedľajší dátumPart_Variable ()Dim dt As Datedt = #4/1/2019 #MsgBox DateAdd („rrrr“, dt)Koniec pod |
Použitie rôznych jednotiek intervalu
Štvrťrok
| 123 | Sub DatePart_Qarter ()MsgBox DatePart ("q", #6/30/2019 #)Koniec pod |
Mesiac
| 12345 | Sub DatePart_Month ()MsgBox DatePart ("m", #6/30/2019 #)„ekvivalentMesiac MsgBox (#6/30/2019#)Koniec pod |
Deň
| 12345 | Sub DatePart_Day ()MsgBox DatePart ("d", #6/30/2019 #)„ekvivalentDeň MsgBox (#6/30/2019#)Koniec pod |
Týždeň
| 12345 | Sub DatePart_Week_Test ()MsgBox DatePart ("w", #6/30/2019 #)„ekvivalentMsgBox Pracovný deň (#6/30/2019#)Koniec pod |
Hodina
| 123456789101112 | Sub DatePart_Hour ()Dim dt As DateDim nHour As Longdt = #8/14/2019 9:30:00 AM #nHour = DatePart ("h", dt)MsgBox nHour„ekvivalentMsgBox Hour (dt)Koniec pod |
Zápisnica
| 123456 | Sub DatePart_Minute ()MsgBox DatePart ("n", 14. 8. 2019, 9:15:00 #)„ekvivalentMsgBox Minute (#8/14/2019 9:15:00 AM#)Minútka MsgBox (#9: 15: 00 AM#)Koniec pod |
Druhý
| 123456 | Sub DatePart_Second ()MsgBox DatePart ("s", #8/14/2019 9:15:15 AM #)„ekvivalentMsgBox Second (#8/14/2019 9:15:15 AM#)MsgBox Second (#9: 15: 15 AM#)Koniec pod |
