Пример описания синтаксиса функции
Now Now() Получает текущую дату и время системы. Dim MyVar MyVar = Now
'' MyVar содержит текущую дату и время.
Date Date() Получает текущую дату системы. Dim MyDate MyDate = Date
'' MyDate содержит текущую системную дату.
Time Time() получает текущее системное время. Dim MyTime MyTime = Time
'' Возвращает текущее системное время.
Year Year(Date) Получает год заданной даты. Dim MyDate, MyYear
МояДата = #19 октября 1962 г. #
Пример описания синтаксиса функции
Now Now() Получает текущую дату и время системы. Dim MyVar MyVar = Now
'' MyVar содержит текущую дату и время.
Date Date() Получает текущую дату системы. Dim MyDate MyDate = Date
'' MyDate содержит текущую системную дату.
Time Time() получает текущее системное время. Dim MyTime MyTime = Time
'' Возвращает текущее системное время.
Year Year(Date) Получает год заданной даты. Dim MyDate, MyYear
МояДата = #19 октября 1962 г. #
''Назначьте дату.
МойГод = Год(МояДата)
'' MyYear содержит 1962 год.
Month Month(Date) Получает месяц заданной даты. Dim MyVar MyVar = Month(Now)
'' MyVar содержит число, соответствующее текущему месяцу.
Day Day(Date) Получить дату заданной даты. Dim MyDay MyDay = Day("19 октября 1962 г.")
''MyDay содержит 19.
Hour Hour(time) Получает час заданного времени Dim MyTime, MyHour
МоеВремя = Сейчас МойЧас = Час(МоеВремя)
'' MyHour содержит числовое значение, обозначающее текущее время.
Minute Minute(time) Получает минуты заданного времени. Dim MyVar
MyVar = Минута (сейчас)
Second Second(time) Получите количество секунд, в течение которых время просмотра Dim MySec
MySec = Второй (сейчас)
''MySec содержит число, обозначающее текущую секунду.
WeekDay WeekDay(Date) Получает целое число дня недели для заданной даты: 1 означает воскресенье, 2 означает понедельник и т. д. Dim MyDate, MyWeekDay
МояДата = #19 октября 1962 г. #
'' Дата назначения
MyWeekDay = День недели(MyDate)
'' MyWeekDay содержит 6, MyDate представляет пятницу
DateDiff DateDiff("Var", Var1, Var2)
Var: коэффициент даты или временного интервала со следующими параметрами:
гггг год м месяц d день ww неделя ч час с секунда Var1: первая дата или время
Var2: вторая дата или время, более поздние, чем Var1, вычисляет интервал между двумя датами или временем DateDiff("d",Date(),#1/1/2005#)
''Верните, сколько дней осталось до Нового 2005 года.
DateDiff("h",Date(),#1/1/2005#)
''Верните, сколько часов осталось до Нового 2005 года.
DateDiff("d",#1/1/2003#,#1/1/2005#)
''Возвращает количество дней между двумя датами
DateAdd DateDiff("Var", Var1, Var2)
Var: коэффициент даты или временного интервала:
Var1: кратное число даты или временного интервала
Var2: основание даты или времени. Добавьте две даты или времени. В следующем примере к 31 января 1995 г. добавляется один месяц:
NewDate = DateAdd("m", 1, "31-Jan-95").
В этом примере DateAdd возвращает 28 февраля 1995 г., а не 31 февраля 1995 г. Если дата — 31 января 1996 г., возвращается 29 февраля 1996 г., поскольку 1996 г. — високосный год.
Если рассчитанная дата предшествует 100 году нашей эры, произойдет ошибка.
FormatDateTime FormatDateTime(Date,vbShortDate) Преобразовать в краткий формат даты FromatDateTime(Date(),vbLongDate)
«Отображать в длинном формате даты
FormatDateTime(Date,vbLongDate) Преобразовать в длинный формат даты.
FormatDateTime(Date,vbShortTime) Преобразовать в краткий формат времени.
FormatDateTime(Date,vbLongTime) Преобразовать в длинный формат времени.