Дата Част Описание
Връща определена част от дадена дата.
Примери за прости дати
Ето един прост пример на DatePart:
| 123 | Sub DatePart_Year_Test ()MsgBox DatePart ("гггг", #1/1/2019 #)End Sub |
Този код ще върне 2022 г.
DatePart Синтаксис
В редактора на VBA можете да въведете „DatePart (“, за да видите синтаксиса за функцията DatePart:
Функцията DatePart съдържа 4 аргумента:
Интервал: Единица за време (дни, месеци, години и т.н.). Въведете като низ. (напр. „m“ за месец)
| Настройка | Описание |
|---|---|
| yyyy | Година |
| q | Квартал |
| м | Месец |
| y | Ден на годината |
| д | Ден |
| w | Делничен ден |
| ww | Седмица |
| з | Час |
| н | Минута |
| с | Второ |
Дата: Вариант (дата) стойност, която искате да оцените.
FirstDayOfWeek: Константа, която определя първия ден от седмицата. Това е по избор. Ако не е посочено, се приема неделя.
| Постоянен | Стойност | Описание |
|---|---|---|
| vbUseSystem | 0 | Използвайте настройката на NLS API. |
| vbнеделя | 1 | Неделя (по подразбиране) |
| vbПонеделник | 2 | Понеделник |
| vbВторник | 3 | Вторник |
| vbСряда | 4 | Сряда |
| vbчетвъртък | 5 | Четвъртък |
| vbПетък | 6 | Петък |
| vbСъбота | 7 | Събота |
Първа седмицаГодина: Константа, която определя първата седмица от годината. Това е по избор. Ако не е посочено, първата седмица се приема за седмицата, през която настъпва 1 януари.
| Постоянен | Стойност | Описание |
|---|---|---|
| vbUseSystem | 0 | Използвайте настройката на NLS API. |
| vbFirstJan1 | 1 | Започнете със седмица, през която настъпва 1 януари (по подразбиране). |
| vbFirstFourDays | 2 | Започнете с първата седмица, която има поне четири дни през новата година. |
| vbFirstFullWeek | 3 | Започнете с първата пълна седмица в годината. |
VBA програмиране | Code Generator работи за вас!
Примери за Excel VBA DatePart функция
Позоваване на дати
За начало ще демонстрираме различни начини за справка на дати, използвайки функцията VBA DatePart.
Всяка от тези функции на DatePart дава един и същ резултат:
| 123456789 | Sub DateAdd_ReferenceDates ()MsgBox DatePart ("гггг", #4/1/2019 #)MsgBox DatePart ("гггг", DateSerial (2019, 4, 1))MsgBox DatePart ("гггг", DateValue ("1 април 2022 г."))End Sub |
Или можете да посочите клетка, съдържаща дата:
| 12345 | Sub DatePart_ReferenceDate_Cell ()MsgBox DatePart ("гггг", диапазон ("C2"). Стойност)End Sub |
Или създайте и референтни променливи за дата:
| 12345678 | Sub DatePart_Variable ()Dim dt като датаdt = #4/1/2019 #MsgBox DateAdd ("гггг", dt)End Sub |
Използване на различни единици на интервал
Квартал
| 123 | Sub DatePart_Quarter ()MsgBox DatePart ("q", #6/30/2019 #)End Sub |
Месец
| 12345 | Sub DatePart_Month ()MsgBox DatePart ("m", #6/30/2019 #)' еквивалентенMsgBox месец (#6/30/2019#)End Sub |
Ден
| 12345 | Sub DatePart_Day ()MsgBox DatePart ("d", #6/30/2019 #)' еквивалентенMsgBox Ден (#6/30/2019#)End Sub |
Седмица
| 12345 | Sub DatePart_Week_Test ()MsgBox DatePart ("w", #6/30/2019 #)' еквивалентенMsgBox Делничен ден (#6/30/2019#)End Sub |
Час
| 123456789101112 | Sub DatePart_Hour ()Dim dt като датаDim nHour As Longdt = #8/14/2019 9:30:00 AM #nHour = DatePart ("h", dt)MsgBox nHour' еквивалентенMsgBox час (dt)End Sub |
Минути
| 123456 | Sub DatePart_Minute ()MsgBox DatePart ("n", #8/14/2019 9:15:00 AM #)' еквивалентенMsgBox Минута (#8/14/2019 9:15:00 AM#)MsgBox минути (#9: 15: 00 AM#)End Sub |
Второ
| 123456 | Sub DatePart_Second ()MsgBox DatePart ("s", #8/14/2019 9:15:15 AM #)' еквивалентенMsgBox Second (#8/14/2019 9:15:15 AM#)MsgBox Second (#9: 15: 15 AM#)End Sub |
