Opis datumskega dela
Vrne določen del danega datuma.
Enostavni primeri DatePart
Tu je preprost primer DatePart:
| 123 | Sub DatePart_Year_Test ()MsgBox DatePart ("llll", #1/1/2019 #)End Sub |
Ta koda se bo vrnila leta 2022.
Sintaksa datumskega dela
V urejevalniku VBA lahko vnesete »DatePart («), če si želite ogledati skladnjo funkcije DatePart:
Funkcija DatePart vsebuje 4 argumente:
Interval: Časovna enota (dnevi, meseci, leta itd.). Vnesite kot niz. (npr. "m" za mesec)
| Nastavitev | Opis |
|---|---|
| llll | Leto |
| q | Četrtina |
| m | Mesec |
| y | Dan v letu |
| d | Dan |
| w | Delovni dan |
| ww | Teden |
| h | Ura |
| n | Minuta |
| s | Drugič |
Datum: Varientna vrednost (datum), ki jo želite ovrednotiti.
Prvi dan tedna: Konstanta, ki določa prvi dan v tednu. To ni obvezno. Če ni določeno, se predvideva nedelja.
| Konstantno | Vrednost | Opis |
|---|---|---|
| vbUseSystem | 0 | Uporabite nastavitev API -ja NLS. |
| vb nedelja | 1 | Nedelja (privzeto) |
| vb ponedeljek | 2 | Ponedeljek |
| vb Torek | 3 | Torek |
| vb sreda | 4 | Sreda |
| vb četrtek | 5 | Četrtek |
| vbPetek | 6 | Petek |
| vbSobota | 7 | Sobota |
Prvi teden: Leto: Konstanta, ki določa prvi teden v letu. To ni obvezno. Če ni določeno, se za prvi teden šteje teden, v katerem nastopi 1. januar.
| Konstantno | Vrednost | Opis |
|---|---|---|
| vbUseSystem | 0 | Uporabite nastavitev API -ja NLS. |
| vbFirstJan1 | 1 | Začnite s tednom, v katerem nastopi 1. januar (privzeto). |
| vbFirstFourDays | 2 | Začnite s prvim tednom, ki ima v novem letu vsaj štiri dni. |
| vbFirstFullWeek | 3 | Začnite s prvim polnim tednom v letu. |
Programiranje VBA | Generator kod deluje za vas!
Primeri funkcije DateVart programa Excel VBA
Sklicevanje na datume
Za začetek bomo prikazali različne načine sklicevanja na datume s pomočjo funkcije VBA DatePart.
Vsaka od teh funkcij DatePart daje enak rezultat:
| 123456789 | Sub DateAdd_ReferenceDates ()MsgBox DatePart ("llll", #4/1/2019 #)MsgBox DatePart ("llll", DateSerial (2019, 4, 1))MsgBox DatePart ("llll", DateValue ("1. april 2022"))End Sub |
Lahko pa se sklicujete na celico, ki vsebuje datum:
| 12345 | Sub DatePart_ReferenceDate_Cell ()MsgBox DatePart ("llll", obseg ("C2"). Vrednost)End Sub |
Ali ustvarite spremenljivke referenčnega datuma:
| 12345678 | Sub DatePart_Variable ()Zatemni dt kot datumdt = #4/1/2019 #MsgBox DateAdd ("llll", dt)End Sub |
Uporaba različnih enot intervala
Četrtina
| 123 | Sub DatePart_Quarter ()MsgBox DatePart ("q", #6/30/2019 #)End Sub |
Mesec
| 12345 | Sub DatePart_Month ()MsgBox DatePart ("m", #6/30/2019 #)'enakovrednoMsgBox Mesec (#6/30/2019#)End Sub |
Dan
| 12345 | Sub DatePart_Day ()MsgBox DatePart ("d", #6/30/2019 #)'enakovrednoDan sporočil (#6/30/2019#)End Sub |
Teden
| 12345 | Sub DatePart_Week_Test ()MsgBox DatePart ("w", #6/30/2019 #)'enakovrednoMsgBox tedenski dan (#6/30/2019#)End Sub |
Ura
| 123456789101112 | Sub DatePart_Hour ()Zatemni dt kot datumDim nHour As Longdt = #8/14/2019 9:30:00 #nHour = DatePart ("h", dt)MsgBox nHour'enakovrednoMsgBox ura (dt)End Sub |
Minute
| 123456 | Sub DatePart_Minute ()MsgBox DatePart ("n", #8/14/2019 9:15:00 AM #)'enakovrednoMsgBox zapisnik (#8/14/2019 9:15:00 AM#)MsgBox minuta (#9: 15: 00 AM#)End Sub |
Drugič
| 123456 | Sub DatePart_Second ()MsgBox DatePart ("s", #8/14/2019 9:15:15 AM #)'enakovrednoMsgBox Second (#8/14/2019 9:15:15 AM#)MsgBox Second (#9: 15: 15 AM#)End Sub |
