DatumsDaļas apraksts
Atgriež noteiktu datuma daļu.
Vienkārši DatePart piemēri
Šeit ir vienkāršs DatePart piemērs:
123 | ApakšdatumsPart_Year_Test ()MsgBox DatePart ("gggg", #1/1/2019 #)Beigu apakš |
Šis kods atgriezīsies 2022.
DatePart sintakse
VBA redaktorā varat ierakstīt “DatePart (”), lai redzētu funkcijas DatePart sintaksi:
Funkcija DatePart satur 4 argumentus:
Intervāls: Laika vienība (dienas, mēneši, gadi utt.). Ievadiet kā virkni. (piem., “m” mēnesī)
Iestatīšana | Apraksts |
---|---|
yyyy | Gads |
q | Ceturksnis |
m | Mēnesis |
g | Gada diena |
d | Diena |
w | Darba diena |
ww | Nedēļa |
h | Stunda |
n | Minūte |
s | Otrais |
Datums: Mainīgā (datuma) vērtība, kuru vēlaties novērtēt.
FirstDayOfWeek: Konstante, kas norāda nedēļas pirmo dienu. Tas nav obligāti. Ja nav norādīts, tiek pieņemta svētdiena.
Pastāvīga | Vērtība | Apraksts |
---|---|---|
vbUseSystem | 0 | Izmantojiet NLS API iestatījumu. |
vbSvētdiena | 1 | Svētdiena (noklusējums) |
vbPirmdiena | 2 | Pirmdiena |
vbOtrdiena | 3 | Otrdiena |
vbTrešdiena | 4 | Trešdiena |
vbCeturtdiena | 5 | Ceturtdiena |
vbPiektdiena | 6 | Piektdiena |
vbSestdiena | 7 | Sestdiena |
FirstWeekOfYear: Konstante, kas norāda gada pirmo nedēļu. Tas nav obligāti. Ja nav norādīts, tad pirmā nedēļa tiek uzskatīta par nedēļu, kurā notiek 1. janvāris.
Pastāvīga | Vērtība | Apraksts |
---|---|---|
vbUseSystem | 0 | Izmantojiet NLS API iestatījumu. |
vbPirmaisJan1 | 1 | Sāciet ar nedēļu, kurā notiek 1. janvāris (noklusējums). |
vbFirstFourDays | 2 | Sāciet ar pirmo nedēļu, kurā jaunajā gadā ir vismaz četras dienas. |
vbFirstFullWeek | 3 | Sāciet ar pirmo pilno gada nedēļu. |
VBA programmēšana | Kodu ģenerators strādā jūsu labā!
Excel VBA DatePart funkcijas piemēri
Atsauces datumi
Lai sāktu, mēs demonstrēsim dažādus datumu atsauces veidus, izmantojot funkciju VBA DatePart.
Katra no šīm DatePart funkcijām rada to pašu rezultātu:
123456789 | ApakšdatumsAdd_ReferenceDates ()MsgBox DatePart ("gggg", #4/1/2019 #)MsgBox DatePart ("gggg", DateSerial (2019, 4, 1))MsgBox DatePart ("gggg", DateValue ("2022. gada 1. aprīlis"))Beigu apakš |
Vai arī varat atsaukties uz šūnu, kurā ir datums:
12345 | ApakšdatumsPart_ReferenceDate_Cell ()MsgBox DatePart ("gggg", diapazons ("C2"). Vērtība)Beigu apakš |
Vai arī izveidojiet un atsauces datuma mainīgos:
12345678 | ApakšdatumsPart_Variable ()Dim dt kā datumsdt = #4/1/2019 #MsgBox DateAdd ("gggg", dt)Beigu apakš |
Dažādu intervālu vienību izmantošana
Ceturksnis
123 | ApakšdatumsPart_Kvartāls ()MsgBox DatePart ("q", #6.30.2019. #)Beigu apakš |
Mēnesis
12345 | ApakšdatumsPart_Mēnesis ()MsgBox DatePart ("m", #6.30.2019. #)'ekvivalentsMsgBox mēnesis (#6/30/2019#)Beigu apakš |
Diena
12345 | ApakšdatumsPart_Day ()MsgBox DatePart ("d", #6.30.2019. #)'ekvivalentsMsgBox diena (#6/30/2019#)Beigu apakš |
Nedēļa
12345 | ApakšdatumsPart_Week_Test ()MsgBox DatePart ("w", #6.30.2019. #)'ekvivalentsMsgBox nedēļas diena (#6/30/2019#)Beigu apakš |
Stunda
123456789101112 | ApakšdatumsPart_Hour ()Dim dt kā datumsAptumšot stundudt = #8/14/2019 9:30:00 #nHour = DatePart ("h", dt)MsgBox nHour'ekvivalentsMsgBox stunda (dt)Beigu apakš |
Minūtes
123456 | ApakšdatumsPart_Minute ()MsgBox DatePart ("n", 14.08.2019 09:15:00 #)'ekvivalentsMsgBox Minute (14.08.2019. 9:15:00#)MsgBox Minute (#9: 15: 00 AM#)Beigu apakš |
Otrais
123456 | ApakšdatumsPart_Second ()MsgBox DatePart ("s", 14.08.2019 09:15:15 #)'ekvivalentsMsgBox Second (#8/14/2019 9:15:15#)MsgBox Second (#9:15:15#)Beigu apakš |