DatePart(Interval,Date,[FirstDayOfWeek],[FirstWeekOfYear])
Функция DatePart используется для определения указанного компонента даты
Возвращаемое значение: Возвращает значение типа Variant(Integer), содержащее указанный компонент даты
Параметры: Функция содержит именованные аргументы
Interval - Обязательный аргумент типа String, указывающего тип временного интервала:
- yyyy - Год
- q - Квартал
- m - Месяц
- y - День года
- d - День месяца
- w - День недели
- ww - Неделя
- h - Часы
- n - Минуты
- s - Секунды
Interval не чуствителен к регистру букв. Литерал должен быть заключен в кавычки. Для вычисления дней между двумя датами можно использовать значение интервала дня:"y" или "d"
Date - Обязательный аргумент типа Variant(Date) или литерал даты - календарная дата, из которой извлекается компонент
FirstDayOfWeek - Необязательный аргумент типа Long, определяющего первый день недели. Допускается использование констант:
- vbUseSystem=0 Используется значение национальных системных установок
- vbSunday=1 Воскресенье(по умолчанию)
- vbMonday=2 Понедельник
- vbTuesday=3 Вторник
- vbWednesday=4 Среда
- vbThursday=5 Четверг
- vbFriday=6 Пятница
- vbSaturday Суббота
FirstDayOfWeek влияет только на вычисления с "w" и "ww"
FirstWeekOfYear - Необязательный аргумент - числовая константа, указывающая, какую неделю считать первой в году:
- vbUseSystem=0 Используется системная информация
- vbFirstJan1=1 Неделя, содержащая 1 января
- vbFirstFourDays=2 Первая неделя, содержащая как минимум 4 дня нового года
- vbFirstFullWeek=3 Первая полная неделя года
Пример
' Вычисляем какой сейчас месяц
MsgBox "Сейчас " & DatePart("m", Now) & " месяц года"
|