DatePart Kirjeldus
Tagastab määratud kuupäeva teatud osa.
Lihtsad kuupäevaosade näited
Siin on lihtne DateParti näide:
| 123 | AlamkuupäevPart_Year_Test ()MsgBox DatePart ("yyyy", #1/1/2019 #)End Sub |
See kood tagastab 2022.
DatePart süntaks
Funktsiooni DatePart süntaksi nägemiseks võite VBA redaktoris tippida "DatePart ("):
Funktsioon DatePart sisaldab 4 argumenti.
Intervall: Ajaühik (päevad, kuud, aastad jne). Sisestage stringina. (nt “m” kuu kohta)
| Seadistamine | Kirjeldus |
|---|---|
| aaaa | Aasta |
| q | Kvartal |
| m | Kuu |
| y | Aasta päev |
| d | Päev |
| w | Nädalapäev |
| ww | Nädal |
| h | Tund |
| n | Minut |
| s | Teiseks |
Kuupäev: Muutuja (kuupäev) väärtus, mida soovite hinnata.
FirstDayOfWeek: Konstant, mis määrab nädala esimese päeva. See on vabatahtlik. Kui seda pole täpsustatud, eeldatakse pühapäeva.
| Pidev | Väärtus | Kirjeldus |
|---|---|---|
| vbUseSystem | 0 | Kasutage NLS API seadet. |
| vbPühapäev | 1 | Pühapäev (vaikimisi) |
| vbEsmaspäev | 2 | Esmaspäev |
| vbTeisipäev | 3 | Teisipäev |
| vbKolmapäev | 4 | Kolmapäev |
| vbNeljapäev | 5 | Neljapäev |
| vbReede | 6 | Reede |
| vb Laupäev | 7 | Laupäev |
FirstWeekOfYear: Konstant, mis täpsustab aasta esimest nädalat. See on vabatahtlik. Kui seda pole täpsustatud, loetakse esimeseks nädalaks 1. jaanuari toimumise nädalat.
| Pidev | Väärtus | Kirjeldus |
|---|---|---|
| vbUseSystem | 0 | Kasutage NLS API seadet. |
| vbEsimene jaan1 | 1 | Alustage 1. jaanuari nädalaga (vaikimisi). |
| vbFirstFourDays | 2 | Alustage esimese nädalaga, mille uuel aastal on vähemalt neli päeva. |
| vbFirstFullWeek | 3 | Alustage aasta esimese täisnädalaga. |
VBA programmeerimine | Koodigeneraator töötab teie jaoks!
Funktsiooni Excel VBA DatePart näited
Viitamise kuupäevad
Alustuseks demonstreerime erinevaid viiteid kuupäevadele viitamiseks, kasutades funktsiooni VBA DatePart.
Kõik need DateParti funktsioonid annavad sama tulemuse:
| 123456789 | AlamkuupäevAdd_ReferenceDates ()MsgBox DatePart ("yyyy", #4/1/2019 #)MsgBox DatePart ("yyyy", DateSerial (2019, 4, 1))MsgBox DatePart ("yyyy", DateValue ("1. aprill 2022"))End Sub |
Või võite viidata kuupäeva sisaldavale lahtrile:
| 12345 | AlamkuupäevPart_ReferenceDate_Cell ()MsgBox DatePart ("aaaa", vahemik ("C2"). Väärtus)End Sub |
Või looge ja viite kuupäeva muutujad:
| 12345678 | AlamkuupäevPart_Variable ()Dim dt kui kuupäevdt = #4/1/2019 #MsgBox DateAdd ("aaaa", dt)End Sub |
Erinevate intervallühikute kasutamine
Kvartal
| 123 | AlamkuupäevPart_Quarter ()MsgBox DatePart ("q", #6.30.2019 #)End Sub |
Kuu
| 12345 | AlamkuupäevPart_Kuu ()MsgBox DatePart ("m", #6.30.2019 #)'samaväärneMsgBoxi kuu (#6.30.2019#)End Sub |
Päev
| 12345 | AlamkuupäevPart_Day ()MsgBox DatePart ("d", #6.30.2019 #)'samaväärneMsgBoxi päev (#6/30/2019#)End Sub |
Nädal
| 12345 | AlamkuupäevPart_Week_Test ()MsgBox DatePart ("w", #6.30.2019 #)'samaväärneMsgBoxi nädalapäev (#6.30.2019#)End Sub |
Tund
| 123456789101112 | AlamkuupäevPart_Hour ()Dim dt kui kuupäevHämarda nii kauadt = #8/14/2019 9:30:00 #nHour = DatePart ("h", dt)MsgBox nHour'samaväärneMsgBoxi tund (dt)End Sub |
Protokoll
| 123456 | AlamkuupäevPart_Minute ()MsgBox DatePart ("n", 14.08.2019 9:15:00 #)'samaväärneMsgBoxi minut (#8/14/2019 9:15:00#)MsgBoxi minut (#9:15:00#)End Sub |
Teiseks
| 123456 | AlamkuupäevPart_Second ()MsgBox DatePart ("s", 14.08.2019 9:15:15 #)'samaväärneMsgBox Second (#8/14/2019 9:15:15#)MsgBox Second (#9:15:15#)End Sub |
