ДатаЧасть Описание
Возвращает указанную часть заданной даты.
Простые примеры DatePart
Вот простой пример DatePart:
| 123 | Sub DatePart_Year_Test ()MsgBox DatePart ("гггг", №1 / 1/2019 #)Конец подписки |
Этот код вернет 2022 год.
Синтаксис DatePart
В редакторе VBA вы можете ввести «DatePart (», чтобы увидеть синтаксис функции DatePart:
Функция DatePart содержит 4 аргумента:
Интервал: Единица времени (дни, месяцы, годы и т. Д.). Введите как строку. (например, «m» для месяца)
| Параметр | Описание |
|---|---|
| гггг | Год |
| q | Четверть |
| м | Месяц |
| у | День года |
| d | День |
| ш | Будний день |
| ww | Неделя |
| час | Час |
| п | Минуты |
| s | Второй |
Дата: Значение Varient (Date), которое вы хотите оценить.
FirstDayOfWeek: Константа, указывающая первый день недели. Это необязательно. Если не указано иное, предполагается воскресенье.
| Постоянный | Ценить | Описание |
|---|---|---|
| vbUseSystem | 0 | Используйте настройку NLS API. |
| vbВоскресенье | 1 | Воскресенье (по умолчанию) |
| vbпонедельник | 2 | понедельник |
| vbвторник | 3 | вторник |
| vbСреда | 4 | среда |
| vb Четверг | 5 | четверг |
| vbFriday | 6 | Пятница |
| vbСуббота | 7 | Суббота |
Первая неделя года: Константа, определяющая первую неделю года. Это необязательно. Если не указано иное, первой неделей считается 1 января.
| Постоянный | Ценить | Описание |
|---|---|---|
| vbUseSystem | 0 | Используйте настройку NLS API. |
| vbFirstJan1 | 1 | Начните с недели, на которой приходится 1 января (по умолчанию). |
| vbFirstFourDays | 2 | Начните с первой недели, в которой в новом году не менее четырех дней. |
| vbFirstFullWeek | 3 | Начните с первой полной недели года. |
Программирование на VBA | Генератор кода действительно работает для вас!
Примеры функции 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 г."))Конец подписки |
Или вы можете сослаться на ячейку, содержащую дату:
| 12345 | Sub DatePart_ReferenceDate_Cell ()MsgBox DatePart ("гггг", Диапазон ("C2"). Значение)Конец подписки |
Или создайте переменные даты и укажите ссылку на них:
| 12345678 | Sub DatePart_Variable ()Dim dt As Datedt = # 4/1/2019 #MsgBox DateAdd ("гггг", дт)Конец подписки |
Использование разных единиц интервала
Четверть
| 123 | Sub DatePart_Quarter ()MsgBox DatePart ("q", # 30.06.2019 #)Конец подписки |
Месяц
| 12345 | Sub DatePart_Month ()MsgBox DatePart («м», № 30/6/2019 №)эквивалентMsgBox Месяц (№ 6/30/2019 #)Конец подписки |
День
| 12345 | Sub DatePart_Day ()MsgBox DatePart ("d", # 30.06.2019 #)'эквивалентДень MsgBox (# 6/30/2019 #)Конец подписки |
Неделя
| 12345 | Sub DatePart_Week_Test ()MsgBox DatePart ("w", # 30.06.2019 #)эквивалентMsgBox Weekday (№ 6/30/2019 #)Конец подписки |
Час
| 123456789101112 | Sub DatePart_Hour ()Dim dt As DateDim nHour As Longdt = # 14.08.2019 9:30:00 #nHour = DatePart ("h", dt)MsgBox nHour'эквивалентMsgBox Hour (dt)Конец подписки |
Минуты
| 123456 | Sub DatePart_Minute ()MsgBox DatePart ("n", # 14.08.2019 9:15:00 #)'эквивалентMsgBox Minute (# 14.08.2019 9:15:00 #)MsgBox Minute (# 9: 15: 00 AM #)Конец подписки |
Второй
| 123456 | Sub DatePart_Second ()MsgBox DatePart ("s", # 14.08.2019 9:15:15 #)'эквивалентMsgBox Second (# 14.08.2019 9:15:15 #)MsgBox Second (# 9: 15: 15 AM #)Конец подписки |
