DatePart Descriere
Returnează o parte specificată a unei date date.
Exemple simple DatePart
Iată un exemplu simplu DatePart:
| 123 | Sub DatePart_Year_Test ()MsgBox DatePart („aaaa”, # 1/1/2019 #)Sfârșitul Sub |
Acest cod va reveni în 2022.
Sintaxa DatePart
În Editorul VBA, puteți tasta „DatePart (” pentru a vedea sintaxa funcției DatePart:
Funcția DatePart conține 4 argumente:
Interval: Unitatea de timp (zile, luni, ani etc.). Introduceți ca șir. (ex. „m” pentru luna)
| Setare | Descriere |
|---|---|
| yyyy | An |
| q | Sfert |
| m | Lună |
| y | Ziua anului |
| d | Zi |
| w | Ziua săptămânii |
| ww | Săptămână |
| h | Ora |
| n | Minut |
| s | Al doilea |
Data: Valoarea Varient (Data) pe care doriți să o evaluați.
FirstDayOfWeek: O constantă care specifică prima zi a săptămânii. Acest lucru este opțional. Dacă nu este specificat, se presupune că duminica.
| Constant | Valoare | Descriere |
|---|---|---|
| vbUseSystem | 0 | Utilizați setarea API NLS. |
| vbDuminică | 1 | Duminică (implicit) |
| vbLuni | 2 | luni |
| vbMarți | 3 | marţi |
| vbMiercuri | 4 | miercuri |
| vbJoi | 5 | joi |
| vbVineri | 6 | vineri |
| sâmbătă | 7 | sâmbătă |
FirstWeekOfYear: O constantă care specifică prima săptămână a anului. Acest lucru este opțional. Dacă nu este specificat, prima săptămână este presupusă a fi săptămâna în care apare 1 ianuarie.
| Constant | Valoare | Descriere |
|---|---|---|
| vbUseSystem | 0 | Utilizați setarea API NLS. |
| vbFirstJan1 | 1 | Începeți cu săptămâna în care apare 1 ianuarie (implicit). |
| vbFirstFourDays | 2 | Începeți cu prima săptămână care are cel puțin patru zile în noul an. |
| vbFirstFullWeek | 3 | Începeți cu prima săptămână completă a anului. |
Programare VBA | Generatorul de coduri funcționează pentru dvs.!
Exemple de funcții Excel VBA DatePart
Date de referință
Pentru început, vom demonstra diferite moduri de referință a datelor folosind funcția VBA DatePart.
Fiecare dintre aceste funcții DatePart produce același rezultat:
| 123456789 | Sub DateAdd_ReferenceDates ()MsgBox DatePart („aaaa”, # 4/1/2019 #)MsgBox DatePart („aaaa”, DateSerial (2019, 4, 1))MsgBox DatePart („aaaa”, DateValue („1 aprilie 2022”))Sfârșitul Sub |
Sau puteți face referință la o celulă care conține o dată:
| 12345 | Sub DatePart_ReferenceDate_Cell ()MsgBox DatePart („aaaa”, interval („C2”). Valoare)Sfârșitul Sub |
Sau creați și faceți referință la variabile de dată:
| 12345678 | Sub DatePart_Variable ()Dim dt Ca datădt = # 4/1/2019 #MsgBox DateAdd („aaaa”, dt)Sfârșitul Sub |
Utilizarea diferitelor unități de interval
Sfert
| 123 | Sub DatePart_Quarter ()MsgBox DatePart („q”, # 6/30/2019 #)Sfârșitul Sub |
Lună
| 12345 | Sub DatePart_Month ()MsgBox DatePart („m”, # 6/30/2019 #)' echivalentLuna MsgBox (# 30.06.2019 #)Sfârșitul Sub |
Zi
| 12345 | Sub DatePart_Day ()MsgBox DatePart („d”, # 6/30/2019 #)' echivalentMsgBox Day (# 30.06.2019 #)Sfârșitul Sub |
Săptămână
| 12345 | Sub DatePart_Week_Test ()MsgBox DatePart („w”, # 6/30/2019 #)' echivalentMsgBox Weekday (# 30.06.2019 #)Sfârșitul Sub |
Ora
| 123456789101112 | Sub DatePart_Hour ()Dim dt Ca datăDim nHour As Longdt = # 14/08/2019 9:30:00 AM #nHour = DatePart ("h", dt)MsgBox nHour' echivalentMsgBox Hour (dt)Sfârșitul Sub |
Minute
| 123456 | Sub DatePart_Minute ()MsgBox DatePart („n”, # 8/14/2019 9:15:00 AM #)' echivalentMsgBox Minute (# 8/14/2019 9:15:00 AM #)MsgBox Minute (# 9: 15: 00 AM #)Sfârșitul Sub |
Al doilea
| 123456 | Sub DatePart_Second ()MsgBox DatePart („s”, # 8/14/2019 9:15:15 #)' echivalentMsgBox Second (# 8/14/2019 9:15:15 AM #)MsgBox Second (# 9: 15: 15 AM #)Sfârșitul Sub |
