Функция DateValue

Возвращает значение типа Variant (Date).

Синтаксис

DateValue(дата)

Обязательный аргумент дата, как правило, является строковым выражением, представляющим дату в диапазоне от 1 января 100 года до 31 декабря 9999 года. Однако аргумент дата может являться любым выражением, представляющим дату, время или дату и время в указанном диапазоне.

Замечания

Если дата является строкой, содержащей только числа, разделенные допустимыми разделителями даты, функция DateValue распознает порядок для дня, месяца и года в соответствии с кратким форматом даты, заданным в системе. DateValue также распознает даты, содержащие названия месяцев (в полной или краткой форме). Например, DateValue распознает не только 30.12.1991 и 30.12.91, но и 30 декабря 1991, и 30-дек-1991.

Если в аргументе дата год опущен, DateValue использует текущий год из системной даты компьютера.

Если аргумент дата включает данные о времени, DateValue не возвращает их. Однако если дата включает недопустимые данные о времени (например, "89:98"), возникает ошибка.

 ПРИМЕЧАНИЕ.   Если в свойстве Calendar задано григорианское летоисчисление, значение дата следует указывать соответствующим образом. Если используется календарь хиджра, дата должна соответствовать календарю хиджра. Если дата указана по календарю хиджра, аргумент датаявляется переменной String, представляющей дату с 1/1/100 (2 августа 718 года по григорианскому календарю) по 4/3/9666 (31 декабря 9999 года по григорианскому календарю).

Пример

 ПРИМЕЧАНИЕ.   Приведенные ниже примеры иллюстрируют использование возможностей модуля Visual Basic for Applications (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите пункт Справочник разработчика в раскрывающемся списке рядом с кнопкой Поиск, а затем введите один или несколько ключевых слов в поле поиска.

В данном примере функция DateValue используется для конвертирования строки в дату. Можно также использовать литералы даты, чтобы непосредственно назначить дату переменной типа Variant или Date, например MyDate = #12/2/69#.

Dim MyDate

MyDate = DateValue("February 12, 1969") ' Return a date.

Функция DatePart

Возвращает значение типа Variant (Integer), содержащее указанную часть заданной даты.

Синтаксис

DatePart(интервал, дата [, первый_день_недели] [, первая_неделя_года] )

Синтаксис функции DatePart включает в себя следующие аргументы:

АРГУМЕНТ	ОПИСАНИЕ
интервал	Обязательный аргумент. Строковое выражение, являющееся интервалом времени, который следует вернуть
дата	Обязательный аргумент типа Variant (Date) — оцениваемое значение
первый_день_недели	Необязательный аргумент. Константа, указывающая первый день недели. Если аргумент не указан, первым днем считается воскресенье
первая_неделя_года	Необязательный аргумент. Константа, указывающая первую неделю года. Если аргумент не указан, первой неделей считается неделя, на которую приходится 1 января

Значения

Аргумент интервал имеет следующие значения:

ЗНАЧЕНИЕ	ОПИСАНИЕ
yyyy	Год
q	Квартал
m	Месяц
y	День года
d	День
w	День недели
ww	Неделя
h	Час
n	Минута
s	Секунда

Аргумент первый_день_недели имеет следующие значения:

КОНСТАНТА	ЗНАЧЕНИЕ	ОПИСАНИЕ
vbUseSystem	0	Используются параметры API многоязыковой поддержки
vbSunday	1	Воскресенье (по умолчанию)
vbMonday	2	Понедельник
vbTuesday	3	Вторник
vbWednesday	4	Среда
vbThursday	5	Четверг
vbFriday	6	Пятница
vbSaturday	7	Суббота

Аргумент первая_неделя_года имеет следующие значения:

КОНСТАНТА	ЗНАЧЕНИЕ	ОПИСАНИЕ
vbUseSystem	0	Используются параметры API многоязыковой поддержки
vbFirstJan1	1	Первой неделей считается та, на которую приходится 1 января (по умолчанию)
vbFirstFourDays	2	Первой неделей считается та, которая содержит хотя бы четыре дня нового года
vbFirstFullWeek	3	Первой неделей считается первая полная неделя года

Замечания

Функция DatePart используется для оценки даты и возврата определенного интервала времени. Например, DatePart используется для вычисления дня недели или текущего часа.

Аргумент первый_день_недели влияет на вычисления, если заданы значения "w" и "ww".

Если аргумент дата содержит литералы даты, указанный год становится постоянной частью этой даты. Однако если дата заключена в двойные прямые кавычки (" "), а год опущен, при каждой оценке выражения дата в код подставляется текущий год. Благодаря этому возможно написание такого кода, который можно использовать для разных годов.

 ПРИМЕЧАНИЕ.   Если в свойстве Calendar задано григорианское летоисчисление, дату следует указывать соответствующим образом. Если используется календарь хиджра, дата должна соответствовать календарю хиджра.

Возвращаемая часть даты указывается в единицах времени текущего арабского календаря. Например, если текущим календарем является календарь хиджра, а возвращаемой частью даты — год, значение года будет соответствовать календарю хиджра.

Пример

 ПРИМЕЧАНИЕ.   Приведенные ниже примеры иллюстрируют использование возможностей модуля Visual Basic for Applications (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите пункт Справочник разработчика в раскрывающемся списке рядом с кнопкой Поиск, а затем введите один или несколько ключевых слов в поле поиска.

В данном примере функция DatePart отображает квартал года, на который приходится указанная дата.

Dim TheDate As Date ' Declare variables.

Dim Msg

TheDate = InputBox("Enter a date:")

Msg = "Quarter: " & DatePart("q", TheDate)

MsgBox Msg