Opis dijela datuma
Vraća određeni dio zadanog datuma.
Primjeri jednostavnih datumskih dijelova
Evo jednostavnog primjera DatePart -a:
| 123 | Pod -datumPart_Year_Test ()MsgBox DatePart ("gggg", #1/1/2019 #)Kraj podm |
Ovaj kôd će vratiti 2022.
Sintaksa datumskog dijela
U VBA Editor -u možete upisati "DatePart (" da vidite sintaksu za funkciju DatePart:
Funkcija DatePart sadrži 4 argumenta:
Interval: Vremenska jedinica (Dani, Mjeseci, Godine itd.). Unesite kao niz. (npr. "m" za mjesec)
| Postavljanje | Opis |
|---|---|
| gggg | Godina |
| q | Četvrtina |
| m | Mjesec |
| y | Dan u godini |
| d | Dan |
| w | Radni dan |
| ww | Tjedan |
| h | Sat |
| n | Minuta |
| s | Drugi |
Datum: Vrijednost varijante (datum) koju želite procijeniti.
Prvi dan tjedna: Konstanta koja određuje prvi dan u tjednu. Ovo nije obavezno. Ako nije navedeno, pretpostavlja se nedjelja.
| Konstantno | Vrijednost | Opis |
|---|---|---|
| vbUseSystem | 0 | Koristite postavku NLS API -ja. |
| vbNedjela | 1 | Nedjelja (zadano) |
| vbponedjeljak | 2 | ponedjeljak |
| vbUtorak | 3 | utorak |
| vbSrijeda | 4 | srijeda |
| vbčetak | 5 | četvrtak |
| vbPETAK | 6 | petak |
| vbSubota | 7 | subota |
Prva sedmica godine: Konstanta koja određuje prvi tjedan u godini. Ovo nije obavezno. Ako nije navedeno, pretpostavlja se da je prvi tjedan tjedan u kojem se događa 1. siječnja.
| Konstantno | Vrijednost | Opis |
|---|---|---|
| vbUseSystem | 0 | Koristite postavku NLS API -ja. |
| vbFirstJan1 | 1 | Počnite s tjednom u kojem se javlja 1. siječnja (zadano). |
| vbFirstFourDays | 2 | Počnite s prvim tjednom koji ima najmanje četiri dana u novoj godini. |
| vbFirstFullWeek | 3 | Počnite s prvim punim tjednom u godini. |
VBA programiranje | Generator koda radi za vas!
Primjeri funkcije Excel VBA DatePart
Referentni datumi
Za početak ćemo pokazati različite načine pozivanja na datume pomoću VBA DatePart funkcije.
Svaka od ovih funkcija DatePart proizvodi isti rezultat:
| 123456789 | Pod -datumAdd_ReferenceDates ()MsgBox DatePart ("gggg", #4/1/2019 #)MsgBox DatePart ("gggg", DateSerial (2019, 4, 1))MsgBox DatePart ("gggg", DateValue ("1. travnja 2022"))Kraj podm |
Ili se možete pozvati na ćeliju koja sadrži datum:
| 12345 | Pod -datumPart_ReferenceDate_Cell ()MsgBox DatePart ("gggg", raspon ("C2"). Vrijednost)Kraj podm |
Ili stvorite i referentne varijable datuma:
| 12345678 | Pod -datumPart_Variable ()Priguši dt kao datumdt = #4/1/2019 #MsgBox DateAdd ("gggg", dt)Kraj podm |
Korištenje različitih jedinica intervala
Četvrtina
| 123 | Pod -datumPart_Quarter ()MsgBox DatePart ("q", #6/30/2019 #)Kraj podm |
Mjesec
| 12345 | Pod datumPart_Month ()MsgBox DatePart ("m", #6/30/2019 #)'ekvivalentMjesec MsgBox (#6/30/2019#)Kraj podm |
Dan
| 12345 | Pod -datumPart_Day ()MsgBox DatePart ("d", #6/30/2019 #)'ekvivalentMsgBox Day (#6/30/2019#)Kraj podm |
Tjedan
| 12345 | Sub DatePart_Week_Test ()MsgBox DatePart ("w", #6/30/2019 #)'ekvivalentMsgBox radni dan (#6/30/2019#)Kraj podm |
Sat
| 123456789101112 | Pod -datumPart_Hour ()Priguši dt kao datumDim nHour As Longdt = #14.8.2019. 09:30:00 #nHour = DatePart ("h", dt)MsgBox nHour'ekvivalentMsgBox Sat (dt)Kraj podm |
Zapisnici
| 123456 | Pod -datumPart_Minute ()MsgBox DatePart ("n", #8/14/2019 9:15:00 AM #)'ekvivalentMsgBox zapisnik (#8/14/2019 9:15:00 AM#)MsgBox minuta (#9: 15: 00 AM#)Kraj podm |
Drugi
| 123456 | Pod -datumPart_Second ()MsgBox DatePart ("s", 14.8.2019. 9:15:15 #)'ekvivalentMsgBox Second (#8/14/2019 9:15:15 AM#)MsgBox Second (#9: 15: 15 AM#)Kraj podm |
