Опис частини дати
Повертає вказану частину заданої дати.
Прості приклади частини дати
Ось простий приклад DatePart:
| 123 | Sub DatePart_Year_Test ()MsgBox DatePart ("рррр", №1/01/2019 #)End Sub |
Цей код поверне 2022 рік.
Синтаксис частини дати
У редакторі VBA ви можете ввести «DatePart (»), щоб побачити синтаксис функції DatePart:
Функція DatePart містить 4 аргументи:
Інтервал: Одиниця часу (дні, місяці, роки тощо). Введіть як рядок. (наприклад, "m" за місяць)
| Налаштування | Опис |
|---|---|
| рррр | Рік |
| q | Квартал |
| м | Місяць |
| y | День року |
| d | День |
| w | Будній день |
| ww | Тиждень |
| h | Година |
| n | Хвилина |
| s | По -друге |
Дата: Варіант (дата), яке потрібно оцінити.
Перший день тижня: Константа, яка визначає перший день тижня. Це необов’язково. Якщо не вказано, передбачається неділя.
| Постійна | Цінність | Опис |
|---|---|---|
| vbUseSystem | 0 | Використовуйте налаштування API NLS. |
| vbНеділя | 1 | Неділя (за замовчуванням) |
| vbпонеділок | 2 | Понеділок |
| vbВторник | 3 | Вівторок |
| vbСреда | 4 | Середа |
| vbЧетвер | 5 | Четвер |
| vbП'ятниця | 6 | П'ятниця |
| vbСубота | 7 | Субота |
Перша тиждень року: Константа, яка визначає перший тиждень року. Це необов’язково. Якщо не вказано, першим тижнем вважається тиждень, у який настає 1 січня.
| Постійна | Цінність | Опис |
|---|---|---|
| vbUseSystem | 0 | Використовуйте налаштування API NLS. |
| vbFirstJan1 | 1 | Почніть з тижня, коли настає 1 січня (за замовчуванням). |
| vbFirstFourDays | 2 | Почніть з першого тижня, який має принаймні чотири дні у новому році. |
| vbFirstFullWeek | 3 | Почніть з першого повного тижня в році. |
Програмування VBA | Генератор коду працює для вас!
Приклади функції Date Vart Excel VBA
Посилання на дати
Для початку ми продемонструємо різні способи посилання на дати за допомогою функції 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 ("рррр", діапазон ("С2"). Значення)End Sub |
Або створіть змінні дати та посилання:
| 12345678 | Sub DatePart_Variable ()Dim dt As Datedt = #4/1/2019 #MsgBox DateAdd ("рррр", дт)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/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 As DateDim 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 Minute (#8/14/2019 9:15:00 AM#)MsgBox Minute (#9: 15: 00 AM#)End Sub |
По -друге
| 123456 | Sub DatePart_Second ()MsgBox DatePart ("s", #8/14/2019 9:15:15 AM #)'еквівалентMsgBox Другий (#8/14/2019 9:15:15 AM#)MsgBox Другий (#9: 15: 15 AM#)End Sub |
