DatePart Beskrivelse
Returnerer en spesifisert del av en gitt dato.
Enkle DatePart -eksempler
Her er et enkelt eksempel på DatePart:
| 123 | Sub DatePart_Year_Test ()MsgBox DatePart ("åååå", #1/1/2019 #)Slutt Sub |
Denne koden returnerer 2022.
DatePart Syntax
I VBA Editor kan du skrive “DatePart (” for å se syntaksen for DatePart -funksjonen:
DatePart -funksjonen inneholder 4 argumenter:
Intervall: Tidsenhet (dager, måneder, år, etc.). Skriv inn som streng. (eks. "m" for måned)
| Omgivelser | Beskrivelse |
|---|---|
| åååå | År |
| q | Fjerdedel |
| m | Måned |
| y | Årets dag |
| d | Dag |
| w | Ukedag |
| ww | Uke |
| h | Time |
| n | Minutt |
| s | Sekund |
Dato: Varient (dato) verdi du vil evaluere.
FirstDayOfWeek: En konstant som angir ukens første dag. Dette er valgfritt. Hvis ikke spesifisert, antas søndag.
| Konstant | Verdi | Beskrivelse |
|---|---|---|
| vbUseSystem | 0 | Bruk NLS API -innstillingen. |
| 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 som angir årets første uke. Dette er valgfritt. Hvis ikke spesifisert, antas den første uken å være uken der 1. januar inntreffer.
| Konstant | Verdi | Beskrivelse |
|---|---|---|
| vbUseSystem | 0 | Bruk NLS API -innstillingen. |
| vbFirstJan1 | 1 | Start med uken der 1. januar skjer (standard). |
| vbFirstFourDays | 2 | Start med den første uken som har minst fire dager i det nye året. |
| vbFirstFullWeek | 3 | Start med årets første hele uke. |
VBA -programmering | Kodegenerator fungerer for deg!
Eksempler på Excel VBA DatePart -funksjon
Henvisningsdatoer
For å starte vil vi demonstrere forskjellige måter å referere til datoer ved å bruke VBA DatePart -funksjonen.
Hver av disse DatePart -funksjonene gir samme resultat:
| 123456789 | Sub DateAdd_ReferenceDates ()MsgBox DatePart ("åååå", #4/1/2019 #)MsgBox DatePart ("åååå", DateSerial (2019, 4, 1))MsgBox DatePart ("åååå", DateValue ("1. april 2022"))Slutt Sub |
Eller du kan referere til en celle som inneholder en dato:
| 12345 | Sub DatePart_ReferenceDate_Cell ()MsgBox DatePart ("åååå", område ("C2"). Verdi)Slutt Sub |
Eller opprett og referer til datovariabler:
| 12345678 | Sub DatePart_Variable ()Dim dt As Datedt = #4/1/2019 #MsgBox DateAdd ("åååå", dt)Slutt Sub |
Bruke forskjellige intervaller
Fjerdedel
| 123 | Sub DatePart_Quarter ()MsgBox DatePart ("q", #6/30/2019 #)Slutt Sub |
Måned
| 12345 | Sub DatePart_Month ()MsgBox DatePart ("m", #6/30/2019 #)' tilsvarendeMsgBox -måned (#6/30/2019#)Slutt Sub |
Dag
| 12345 | Sub DatePart_Day ()MsgBox DatePart ("d", #6/30/2019 #)' tilsvarendeMsgBox Day (#6/30/2019#)Slutt Sub |
Uke
| 12345 | Sub DatePart_Week_Test ()MsgBox DatePart ("w", #6/30/2019 #)' tilsvarendeMsgBox Weekday (#6/30/2019#)Slutt Sub |
Time
| 123456789101112 | Sub DatePart_Hour ()Dim dt As DateDim nHour As Longdt = #8/14/2019 9:30:00 AM #nHour = DatePart ("h", dt)MsgBox nTime' tilsvarendeMsgBox Hour (dt)Slutt Sub |
Minutter
| 123456 | Sub DatePart_Minute ()MsgBox DatePart ("n", #8/14/2019 9:15:00 AM #)' tilsvarendeMsgBox Minute (#8/14/2019 09:15:00#)MsgBox Minute (#9: 15: 00 AM#)Slutt Sub |
Sekund
| 123456 | Sub DatePart_Second ()MsgBox DatePart ("s", #8/14/2019 09:15:15 #)' tilsvarendeMsgBox Second (#8/14/2019 9:15:15 AM#)MsgBox Second (#9: 15: 15 AM#)Slutt Sub |
