Päivämäärä Osa Kuvaus
Palauttaa tietyn päivän tietyn osan.
Yksinkertaisia DatePart -esimerkkejä
Tässä on yksinkertainen DatePart -esimerkki:
| 123 | OsapäiväPart_Year_Test ()MsgBox DatePart ("vvvv", #1/1/2019 #)End Sub |
Tämä koodi palauttaa 2022.
DatePart Syntax
VBA -editorissa voit kirjoittaa "DatePart (") nähdäksesi DatePart -funktion syntaksin:
DatePart -funktio sisältää 4 argumenttia:
Väli: Aikayksikkö (päivät, kuukaudet, vuodet jne.). Kirjoita merkkijonoksi. (esim. “m” kuukaudelle)
| Asetus | Kuvaus |
|---|---|
| yyyy | Vuosi |
| q | Neljännes |
| m | Kuukausi |
| y | Vuoden päivä |
| d | Päivä |
| w | Arkipäivä |
| ww | Viikko |
| h | Tunnin |
| n | Minuutti |
| s | Toinen |
Päivämäärä: Muuttujan (päivämäärä) arvo, jonka haluat arvioida.
FirstDayOfWeek: Vakio, joka määrittää viikon ensimmäisen päivän. Tämä on valinnainen. Jos ei ole määritetty, oletetaan sunnuntai.
| Jatkuva | Arvo | Kuvaus |
|---|---|---|
| vbUseSystem | 0 | Käytä NLS API -asetusta. |
| vbSunnuntai | 1 | Sunnuntai (oletus) |
| vbMaanantai | 2 | maanantai |
| vbTiistai | 3 | tiistai |
| vbKeskiviikko | 4 | keskiviikko |
| vbTorstai | 5 | torstai |
| vbPerjantai | 6 | perjantai |
| vb Lauantai | 7 | Lauantai |
FirstWeekOfYear: Vakio, joka määrittää vuoden ensimmäisen viikon. Tämä on valinnainen. Jos sitä ei ole määritelty, ensimmäisen viikon oletetaan olevan viikko, jolla tammikuun 1.
| Jatkuva | Arvo | Kuvaus |
|---|---|---|
| vbUseSystem | 0 | Käytä NLS API -asetusta. |
| vbEnsimmäinen tammikuu 1 | 1 | Aloita viikolla, jolloin 1. tammikuuta tapahtuu (oletus). |
| vbFirstFourDays | 2 | Aloita ensimmäisellä viikolla, jolla on vähintään neljä uutta vuotta. |
| vbFirstFullWeek | 3 | Aloita vuoden ensimmäisellä viikolla. |
VBA -ohjelmointi | Koodigeneraattori toimii sinulle!
Esimerkkejä Excel VBA DatePart -toiminnosta
Viittauspäivämäärät
Aluksi esittelemme erilaisia tapoja viitata päivämääriin VBA DatePart -toiminnon avulla.
Jokainen näistä DatePart -funktioista tuottaa saman tuloksen:
| 123456789 | Sub DateAdd_ReferenceDates ()MsgBox DatePart ("vvvv", #4.1.2019 #)MsgBox DatePart ("vvvv", DateSerial (2019, 4, 1))MsgBox DatePart ("yyyy", DateValue ("1. huhtikuuta 2022"))End Sub |
Tai voit viitata soluun, joka sisältää päivämäärän:
| 12345 | Sub DatePart_ReferenceDate_Cell ()MsgBox DatePart ("yyyy", Range ("C2") Value)End Sub |
Tai luo ja viitepäivämäärän muuttujat:
| 12345678 | OsapäivämääräPart_Variable ()Dim dt päivämääränädt = #4.1.2019 #MsgBox DateAdd ("vvvv", dt)End Sub |
Eri väliyksiköiden käyttäminen
Neljännes
| 123 | OsapäivämääräPart_Quarter ()MsgBox DatePart ("q", #6.30.2019 #)End Sub |
Kuukausi
| 12345 | OsapäivämääräPart_Month ()MsgBox DatePart ("m", #6.30.2019 #)'vastaavaMsgBox -kuukausi (#6.30.2019#)End Sub |
Päivä
| 12345 | OsapäiväpäiväPart_Day ()MsgBox DatePart ("d", #6.30.2019 #)'vastaavaMsgBox -päivä (#6.30.2019#)End Sub |
Viikko
| 12345 | OsapäiväPart_Week_Test ()MsgBox DatePart ("w", #6.30.2019 #)'vastaavaMsgBox Weekday (#6.30.2019#)End Sub |
Tunnin
| 123456789101112 | OsapäiväPart_Hour ()Dim dt päivämääränäHimmennä niin kauandt = #8.4.2019 9.30:00 #nHour = DatePart ("h", dt)MsgBox nHour'vastaavaMsgBox -tunti (dt)End Sub |
Pöytäkirja
| 123456 | OsapäivämääräPart_Minute ()MsgBox DatePart ("n", #8.4.2019 9:15:00 #)'vastaavaMsgBox -minuutti (14.8.2019 klo 9.15.00#)MsgBox -minuutti (#9:15: 00 AM)End Sub |
Toinen
| 123456 | OsapäivämääräPart_Second ()MsgBox DatePart ("s", #8.4.2019 9:15:15 #)'vastaavaMsgBox Second (#8/14/2019 9:15:15 AM#)MsgBox Second (#9:15:15 AM)End Sub |
