DatePart Beskrivelse
Returnerer en bestemt del af en given dato.
Simple DatePart -eksempler
Her er et enkelt DatePart -eksempel:
| 123 | Sub DatePart_Year_Test ()MsgBox DatePart ("åååå", #1/1/2019 #)Afslut Sub |
Denne kode returnerer 2022.
DatePart -syntaks
I VBA Editor kan du skrive "DatePart (" for at se syntaksen for DatePart -funktionen:
DatePart -funktionen indeholder 4 argumenter:
Interval: Tidsenhed (dage, måneder, år osv.). Indtast som streng. (f.eks. "m" for en måned)
| Indstilling | Beskrivelse |
|---|---|
| åååå | År |
| q | Kvarter |
| m | Måned |
| y | Årets dag |
| d | Dag |
| w | Ugedag |
| ww | Uge |
| h | Time |
| n | Minut |
| s | Sekund |
Dato: Varient (dato) værdi, som du vil evaluere.
FirstDayOfWeek: En konstant, der angiver den første dag i ugen. Dette er valgfrit. Hvis det ikke er angivet, antages søndag.
| Konstant | Værdi | Beskrivelse |
|---|---|---|
| vbUseSystem | 0 | Brug NLS API -indstillingen. |
| vbSøndag | 1 | Søndag (standard) |
| vbMandag | 2 | Mandag |
| vbTirsdag | 3 | tirsdag |
| vb onsdag | 4 | onsdag |
| vbTorsdag | 5 | torsdag |
| vbFredag | 6 | Fredag |
| vbLørdag | 7 | lørdag |
FirstWeekOfYear: En konstant, der angiver årets første uge. Dette er valgfrit. Hvis den ikke er angivet, antages den første uge at være den uge, hvor den 1. januar finder sted.
| Konstant | Værdi | Beskrivelse |
|---|---|---|
| vbUseSystem | 0 | Brug NLS API -indstillingen. |
| vbFirstJan1 | 1 | Start med den uge, hvor den 1. januar finder sted (standard). |
| vbFirstFourDays | 2 | Start med den første uge, der har mindst fire dage i det nye år. |
| vbFirstFullWeek | 3 | Start med årets første hele uge. |
VBA -programmering | Kodegenerator virker for dig!
Eksempler på Excel VBA DatePart -funktion
Henvisningsdatoer
For at starte vil vi demonstrere forskellige måder at henvise til datoer ved hjælp af VBA DatePart -funktionen.
Hver af disse DatePart -funktioner giver det samme resultat:
| 123456789 | Sub DateAdd_ReferenceDates ()MsgBox DatePart ("åååå", #4/1/2019 #)MsgBox DatePart ("åååå", DateSerial (2019, 4, 1))MsgBox DatePart ("åååå", DateValue ("1. april 2022"))Afslut Sub |
Eller du kan referere til en celle, der indeholder en dato:
| 12345 | Sub DatePart_ReferenceDate_Cell ()MsgBox DatePart ("åååå", område ("C2"). Værdi)Afslut Sub |
Eller opret og referencer datovariabler:
| 12345678 | Sub DatePart_Variable ()Dim dt As Datedt = #4/1/2019 #MsgBox DateAdd ("åååå", dt)Afslut Sub |
Brug af forskellige intervaller
Kvarter
| 123 | Sub DatePart_Quarter ()MsgBox DatePart ("q", #6/30/2019 #)Afslut Sub |
Måned
| 12345 | Sub DatePart_Month ()MsgBox DatePart ("m", #6/30/2019 #)'ækvivalentMsgBox -måned (#6/30/2019#)Afslut Sub |
Dag
| 12345 | Sub DatePart_Day ()MsgBox DatePart ("d", #6/30/2019 #)'ækvivalentMsgBox Day (#6/30/2019#)Afslut Sub |
Uge
| 12345 | Sub DatePart_Week_Test ()MsgBox DatePart ("w", #6/30/2019 #)'ækvivalentMsgBox Ugedag (#6/30/2019#)Afslut Sub |
Time
| 123456789101112 | Sub DatePart_Hour ()Dim dt As DateDim nHour så længedt = #8/14/2019 9:30:00 AM #nHour = DatePart ("h", dt)MsgBox nTime'ækvivalentMsgBox Hour (dt)Afslut Sub |
Referat
| 123456 | Sub DatePart_Minute ()MsgBox DatePart ("n", #8/14/2019 9:15:00 AM #)'ækvivalentMsgBox Minute (#8/14/2019 09:15:00#)MsgBox Minute (#9: 15: 00 AM#)Afslut Sub |
Sekund
| 123456 | Sub DatePart_Second ()MsgBox DatePart ("s", #8/14/2019 9:15:15 # #)'ækvivalentMsgBox Second (#8/14/2019 9:15:15 AM#)MsgBox Second (#9: 15: 15 AM#)Afslut Sub |
