logo
Конспект лекций по КИТ

Функции времени и даты

В VBA имеются следующие функции времени и даты.

Функция

Возвращаемое выражение

Date

Возвращает значение типа Variant (Date), содержащее те­кущую системную дату

Time

Возвращает значение типа Variant (Date), содержащее те­кущее время по системным часам компьютера

Now

Возвращает значение типа Variant (Date), содержащее те­кущую дату и время по системному календарю и часам компью­тера

Hour, Minute, Second

Возвращают значения типа Variant (integer), содержащее целое число, которое представляет часы, минуты и секунды в значении времени.

Синтаксис:

Hour(время)

Minute(время)

Second(время)

  • время — значение времени или выражение, его определяющее

В следующем примере переменной Час присваивается 16, Ми­нута — 35 и Секунда — 17: РасчетноеВремя = #4:35:17 РМ#

Час = Hour(РасчетноеВремя)

Минута = Minute(РасчетноеВремя)

Секунда = Second(РасчетноеВремя)

Day, Month, Year

Возвращает значение типа Variant (integer), содержащее целое число, которое представляет день, месяц, год в значении даты.

Синтаксис:

Month(дата)

Year(дата)

  • дата —значение даты или выражение, ее определяющее

В следующем примере переменной День присваивается 17

Месяц — May, Год — 1960:

ДеньРождения = #Мау 17, 1960#

День = Day(ДеньРождения)

Месяц = Month(День Рождения)

Год = Year(ДеньРождения)

Weekday

Возвращает значение типа Variant (Integer), содержащее целое число, представляющее день недели.

Синтаксис:

Weekday(date, [firstdayofweek])

  • date — выражение, представляющее дату

  • firstdayofweek — указывает первый день недели. Если этот аргумент опущен, подразумевается vbSunday (воскресенье). Допустимы также значения: vbMonday (понедельник), vbTuesday (вторник), vbWednesday (среда), vbThursday (четверг), vbFriday (пятница) и vbSaturday (суббота)

В следующем примере переменной ДеньНедели присваивается 3, т. е. вторник:

ДеньРождения = #Мау 17, 1960#

ДеньНедели = Weekday(ДеньРождения)

Timer

Возвращает значение типа Single, представляющее число секунд, прошедших после полуночи.

DateDiff

Возвращает значение типа Variant (Long), указывающее число временных интервалов между двумя датами.

Синтаксис:

DateDiff(interval, datel, date2[, _

firstdayofweek[, firstweekofyear]])

Аргументы:

  • interval — строковое выражение, указывающее тип вре­менного интервала, который следует использовать при вы­числении разности между датами datel и date2. Допусти­мые значения: уууу (год), q (квартал), m (месяц), у (день года), d (день месяца), w (день недели), ww (неделя), h (часы), m (минуты), s (секунды)

  • datel, date2 — значения типа Variant (Date). Две даты. разность между которыми следует вычислить

  • firstdayofweek — постоянная, указывающая первый день недели

  • firstweekofyear— постоянная, указывающая первую не­делю года

В следующем примере переменной ПрожилМесяцевСРождения присваивается 465:

ПрожилМесяцевСРождения = DateDiff("m", #5/17/60#, Now)

DatePart

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

Синтаксис:

DatePart (interval, date [, firstdayofweek [, _

f irstweekofyear] ] )

DateAdd

Возвращает значение типа Variant ( Date ) , содержащее дату, к которой добавлен указанный временной интервал.

Синтаксис:

DateAdd( interval, number, date)

Аргументы:

  • interval — строковое выражение, указывающее тип добав­ляемого временного интервала

  • number — числовое выражение, указывающее число времен­ных интервалов, которое следует добавить. Оно может быть положительным (для получения более поздних дат) или от­рицательным (для получения более ранних дат).

  • date — значение типа Variant ( Date ) или литерал даты, представляющий дату, к которой добавляется указанный временной интервал

В следующем примере переменной День присваивается 03/17/63:

День = DateAddC'm", 34, #05/17/60#)

TimeSerial

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

Синтаксис:

TimeSerial (hour, minute, second)

Аргументы:

  • hour, minute и second — значения типа Variant (Integer)

В данном примере переменной Время присваивается 16:35: 17 :

Время = TimeSerial (16, 35, 17)

DateSerial

Возвращает значение типа Variant (Date) , соответствующее указанному году, месяцу и дню.

Синтаксис:

DateSerial (year, month, day)

Аргументы:

  • year, month и day — значения типа Integer

В следующем примере переменной дата присваивается 05/17/60:

Дата = DateSerial (1960, 5, 17)

TimeValue

Преобразует строку в формат времени