Функции для работы с датой и временем в VBA Excel. Синтаксис, параметры, спецсимволы, примеры. Функции, возвращающие текущие дату и время по системному таймеру.
Функция Date
Date – это функция, которая возвращает значение текущей системной даты. Тип возвращаемого значения – Variant/Date.
Синтаксис
Пример
Sub PrimerDate() MsgBox «Сегодня: « & Date End Sub |
Функция DateAdd
DateAdd – это функция, которая возвращает результат прибавления к дате указанного интервала времени. Тип возвращаемого значения – Variant/Date.
Синтаксис
DateAdd(interval, number, date) |
Параметры
Параметр | Описание |
---|---|
interval | Обязательный параметр. Строковое выражение из спецсимволов, представляющее интервал времени, который требуется добавить. |
number | Обязательный параметр. Числовое выражение, задающее количество интервалов, которые необходимо добавить. Может быть как положительным (возвращается будущая дата), так и отрицательным (возвращается предыдущая дата). |
date | Обязательный параметр. Значение типа Variant/Date или литерал, представляющий дату, к которой должен быть добавлен интервал. |
Таблицу аргументов (значений) параметра interval
смотрите в параграфе «Приложение 1».
Примечание к таблице аргументов: три символа – y, d, w – указывают функции DateAdd
на один день, который необходимо прибавить к исходной дате number
раз.
Пример
Sub PrimerDateAdd() MsgBox «31.01.2021 + 1 месяц = « & DateAdd(«m», 1, «31.01.2021») ‘Результат: 28.02.2021 MsgBox «Сегодня + 3 года = « & DateAdd(«yyyy», 3, Date) MsgBox «Сегодня — 2 недели = « & DateAdd(«ww», —2, Date) MsgBox «10:22:14 + 10 минут = « & DateAdd(«n», 10, «10:22:14») ‘Результат: 10:32:14 End Sub |
Функция DateDiff
DateDiff – это функция, которая возвращает количество указанных интервалов времени между двумя датами. Тип возвращаемого значения – Variant/Long.
Синтаксис
DateDiff(interval, date1, date2, [firstdayofweek], [firstweekofyear]) |
Параметры
Параметр | Описание |
---|---|
interval | Обязательный параметр. Строковое выражение из спецсимволов, представляющее интервал времени, количество которых (интервалов) требуется вычислить между двумя датами. |
date1, date2 | Обязательные параметры. Значения типа Variant/Date , представляющие две даты, между которыми вычисляется количество указанных интервалов. |
firstdayofweek | Необязательный параметр. Константа, задающая первый день недели. По умолчанию – воскресенье. |
firstweekofyear | Необязательный параметр. Константа, задающая первую неделю года. По умолчанию – неделя, в которую входит 1 января. |
Таблицу аргументов (значений) параметра interval
смотрите в параграфе «Приложение 1».
Примечание к таблице аргументов: в отличие от функции DateAdd
, в функции DateDiff
спецсимвол "w"
, как и "ww"
, обозначает неделю. Но расчет осуществляется по разному. Подробнее об этом на сайте разработчиков.
Параметры firstdayofweek
и firstweekofyear
определяют правила расчета количества недель между датами.
Таблицы констант из коллекций firstdayofweek
и firstweekofyear
смотрите в параграфах «Приложение 2» и «Приложение 3».
Пример
Sub PrimerDateDiff() ‘Даже если между датами соседних лет разница 1 день, ‘DateDiff с интервалом «y» покажет разницу — 1 год MsgBox DateDiff(«y», «31.12.2020», «01.01.2021») ‘Результат: 1 год MsgBox DateDiff(«d», «31.12.2020», «01.01.2021») ‘Результат: 1 день MsgBox DateDiff(«n», «31.12.2020», «01.01.2021») ‘Результат: 1440 минут MsgBox «Полных лет с начала века = « & DateDiff(«y», «2000», Year(Now) — 1) End Sub |
Функция DatePart
DatePart – это функция, которая возвращает указанную часть заданной даты. Тип возвращаемого значения – Variant/Integer.
Есть предупреждение по использованию этой функции.
Синтаксис
DatePart(interval, date, [firstdayofweek], [firstweekofyear]) |
Параметры
Параметр | Описание |
---|---|
interval | Обязательный параметр. Строковое выражение из спецсимволов, представляющее часть даты, которую требуется извлечь. |
date | Обязательные параметры. Значение типа Variant/Date , представляющее дату, часть которой следует извлечь. |
firstdayofweek | Необязательный параметр. Константа, задающая первый день недели. По умолчанию – воскресенье. |
firstweekofyear | Необязательный параметр. Константа, задающая первую неделю года. По умолчанию – неделя, в которую входит 1 января. |
Таблицу аргументов (значений) параметра interval
смотрите в параграфе «Приложение 1». В третьей графе этой таблицы указаны интервалы значений, возвращаемых функцией DatePart
.
Таблицы констант из коллекций firstdayofweek
и firstweekofyear
смотрите в параграфах «Приложение 2» и «Приложение 3».
Пример
Sub PrimerDatePart() MsgBox DatePart(«y», «31.12.2020») ‘Результат: 366 MsgBox DatePart(«yyyy», CDate(43685)) ‘Результат: 2019 MsgBox DatePart(«n», CDate(43685.45345)) ‘Результат: 52 MsgBox «День недели по счету сегодня = « & DatePart(«w», Now, vbMonday) End Sub |
Функция DateSerial
DateSerial – это функция, которая возвращает значение даты для указанного года, месяца и дня. Тип возвращаемого значения – Variant/Date.
Синтаксис
DateSerial(year, month, day) |
Параметры
Параметр | Описание |
---|---|
year | Обязательный параметр типа Integer. Числовое выражение, возвращающее значение от 100 до 9999 включительно. |
month | Обязательный параметр типа Integer. Числовое выражение, возвращающее любое значение (в пределах Integer), а не только от 1 до 12.* |
day | Обязательный параметр типа Integer. Числовое выражение, возвращающее любое значение (в пределах Integer), а не только от 1 до 31.* |
* Функция DateSerial автоматически пересчитывает общее количество дней в полные месяцы и остаток, общее количество месяцев в полные годы и остаток (подробнее в примере).
Пример
Sub PrimerDateSerial() MsgBox DateSerial(2021, 2, 10) ‘Результат: 10.02.2020 MsgBox DateSerial(2020, 1, 400) ‘Результат: 03.02.2021 End Sub |
Разберем подробнее строку DateSerial(2020, 1, 400)
:
- 400 дней = 366 дней + 31 день + 3 дня;
- 366 дней = 1 год, так как по условию month:=1, значит февраль 2020 входит в расчет, а в нем – 29 дней;
- 31 день = 1 месяц, так как сначала заполняется январь (по условию month:=1);
- 3 дня – остаток.
В итоге получается:
DateSerial(2020+1, 1+1, 3) = DateSerial(2021, 2, 3)
Функция DateValue
DateValue – это функция, которая преобразует дату, указанную в виде строки, в значение типа Variant/Date (время игнорируется).
Синтаксис
Параметр date
– строковое выражение, представляющее дату с 1 января 100 года по 31 декабря 9999 года.
Пример
Sub PrimerDateValue() MsgBox DateValue(«8 марта 2021») ‘Результат: 08.03.2021 MsgBox DateValue(«17 мая 2021 0:59:15») ‘Результат: 17.05.2021 End Sub |
Функция DateValue игнорирует время, указанное в преобразуемой строке, но если время указано в некорректном виде (например, «10:60:60»), будет сгенерирована ошибка.
Функция Day
Day – это функция, которая возвращает день месяца в виде числа от 1 до 31 включительно. Тип возвращаемого значения – Variant/Integer.
Синтаксис
Параметр date
– любое числовое или строковое выражение, представляющее дату.
Пример
Sub PrimerDay() MsgBox Day(Now) End Sub |
Функция IsDate
IsDate – это функция, которая возвращает True, если выражение является датой или распознается как допустимое значение даты или времени. В остальных случаях возвращается значение False.
Синтаксис
Параметр expression
– это переменная, возвращающая дату или строковое выражение, распознаваемое как дата или время.
Значение, возвращаемое переменной expression, не должно выходить из диапазона допустимых дат: от 1 января 100 года до 31 декабря 9999 года (для Windows).
Пример
Sub PrimerIsDate() MsgBox IsDate(«18 апреля 2021») ‘Результат: True MsgBox IsDate(«31 февраля 2021») ‘Результат: False MsgBox IsDate(«4.10.20 11:12:54») ‘Результат: True End Sub |
Функция Hour
Hour – это функция, которая возвращает количество часов в виде числа от 0 до 23 включительно. Тип возвращаемого значения – Variant/Integer.
Синтаксис
Параметр time
– любое числовое или строковое выражение, представляющее время.
Пример
Sub PrimerHour() MsgBox Hour(Now) MsgBox Hour(«22:36:54») End Sub |
Функция Minute
Minute – это функция, которая возвращает количество минут в виде числа от 0 до 59 включительно. Тип возвращаемого значения – Variant/Integer.
Синтаксис
Параметр time
– любое числовое или строковое выражение, представляющее время.
Пример
Sub PrimerMinute() MsgBox Minute(Now) MsgBox Minute(«22:36:54») End Sub |
Функция Month
Month – это функция, которая возвращает день месяца в виде числа от 1 до 12 включительно. Тип возвращаемого значения – Variant/Integer.
Синтаксис
Параметр date
– любое числовое или строковое выражение, представляющее дату.
Пример
Sub PrimerMonth() MsgBox Month(Now) End Sub |
Функция MonthName
MonthName – это функция, которая возвращает название месяца в виде строки.
Синтаксис
MonthName(month, [abbreviate]) |
Параметры
Параметр | Описание |
---|---|
month | Обязательный параметр. Числовое обозначение месяца от 1 до 12 включительно. |
abbreviate | Необязательный параметр. Логическое значение: True – возвращается сокращенное название месяца, False (по умолчанию) – название месяца не сокращается. |
Пример
Sub PrimerMonthName() MsgBox MonthName(10) ‘Результат: Октябрь MsgBox MonthName(10, True) ‘Результат: окт End Sub |
Функция Now
Now – это функция, которая возвращает текущую системную дату и время. Тип возвращаемого значения – Variant/Date.
Синтаксис
Пример
Sub PrimerNow() MsgBox Now MsgBox Day(Now) MsgBox Hour(Now) End Sub |
Функция Second
Second – это функция, которая возвращает количество секунд в виде числа от 0 до 59 включительно. Тип возвращаемого значения – Variant/Integer.
Синтаксис
Параметр time
– любое числовое или строковое выражение, представляющее время.
Пример
Sub PrimerSecond() MsgBox Second(Now) MsgBox Second(«22:30:14») End Sub |
Функция Time
Time – это функция, которая возвращает значение текущего системного времени. Тип возвращаемого значения – Variant/Date.
Синтаксис
Пример
Sub PrimerTime() MsgBox «Текущее время: « & Time End Sub |
Функция TimeSerial
TimeSerial – это функция, которая возвращает значение времени для указанного часа, минуты и секунды. Тип возвращаемого значения – Variant/Date.
Синтаксис
TimeSerial(hour, minute, second) |
Параметры
Параметр | Описание |
---|---|
hour | Обязательный параметр типа Integer. Числовое выражение, возвращающее значение от 0 до 23 включительно. |
minute | Обязательный параметр типа Integer. Числовое выражение, возвращающее любое значение (в пределах Integer), а не только от 0 до 59.* |
second | Обязательный параметр типа Integer. Числовое выражение, возвращающее любое значение (в пределах Integer), а не только от 0 до 59.* |
* Функция TimeSerial автоматически пересчитывает общее количество секунд в полные минуты и остаток, общее количество минут в полные часы и остаток (подробнее в примере).
Пример
Sub PrimerTime() MsgBox TimeSerial(5, 16, 4) ‘Результат: 5:16:04 MsgBox TimeSerial(5, 75, 158) ‘Результат: 6:17:38 End Sub |
Разберем подробнее строку TimeSerial(5, 75, 158)
:
- 158 секунд = 120 секунд (2 минуты) + 38 секунд;
- 75 минут = 60 минут (1 час) + 15 минут.
В итоге получается:
TimeSerial(5+1, 15+2, 38) = TimeSerial(6, 17, 38)
Функция TimeValue
TimeValue – это функция, которая преобразует время, указанное в виде строки, в значение типа Variant/Date (дата игнорируется).
Синтаксис
Параметр time
– строковое выражение, представляющее время с 0:00:00 по 23:59:59 включительно.
Пример
Sub PrimerTimeValue() MsgBox TimeValue(«6:45:37 PM») ‘Результат: 18:45:37 MsgBox TimeValue(«17 мая 2021 3:59:15 AM») ‘Результат: 3:59:15 End Sub |
Функция TimeValue игнорирует дату, указанную в преобразуемой строке, но если дата указана в некорректном виде (например, «30.02.2021»), будет сгенерирована ошибка.
Функция Weekday
Weekday – это функция, которая возвращает день недели в виде числа от 1 до 7 включительно. Тип возвращаемого значения – Variant/Integer.
Синтаксис
Weekday(date, [firstdayofweek]) |
Параметры
Параметр | Описание |
---|---|
date | Обязательный параметр. Любое выражение (числовое, строковое), отображающее дату. |
firstdayofweek | Константа, задающая первый день недели. По умолчанию – воскресенье. |
Таблицу констант из коллекции firstdayofweek
смотрите в параграфе «Приложение 2».
Пример
Sub PrimerWeekday() MsgBox Weekday(«23 апреля 2021», vbMonday) ‘Результат: 5 MsgBox Weekday(202125, vbMonday) ‘Результат: 6 End Sub |
Функция WeekdayName
WeekdayName – это функция, которая возвращает название дня недели в виде строки.
Синтаксис
WeekdayName(weekday, [abbreviate], [firstdayofweek]) |
Параметры
Параметр | Описание |
---|---|
weekday | Обязательный параметр. Числовое обозначение дня недели от 1 до 7 включительно. |
abbreviate | Необязательный параметр. Логическое значение: True – возвращается сокращенное название дня недели, False (по умолчанию) – название дня недели не сокращается. |
firstdayofweek | Константа, задающая первый день недели. По умолчанию – воскресенье. |
Таблицу констант из коллекции firstdayofweek
смотрите в параграфе «Приложение 2».
Пример
Sub PrimerWeekdayName() MsgBox WeekdayName(3, True, vbMonday) ‘Результат: Ср MsgBox WeekdayName(3, , vbMonday) ‘Результат: среда MsgBox WeekdayName(Weekday(Now, vbMonday), , vbMonday) End Sub |
Функция Year
Year – это функция, которая возвращает номер года в виде числа. Тип возвращаемого значения – Variant/Integer.
Синтаксис
Параметр date
– любое числовое или строковое выражение, представляющее дату.
Пример
Sub PrimerYear() MsgBox Year(Now) End Sub |
Приложение 1
Таблица аргументов (значений) параметраinterval
для функций DateAdd
, DateDiff
и DatePart
:
Аргумент | Описание | Интервал значений |
---|---|---|
yyyy | Год | 100 – 9999 |
q | Квартал | 1 – 4 |
m | Месяц | 1 – 12 |
y | День года | 1 – 366 |
d | День месяца | 1 – 31 |
w | День недели | 1 – 7 |
ww | Неделя | 1 – 53 |
h | Часы | 0 – 23 |
n | Минуты | 0 – 59 |
s | Секунды | 0 – 59 |
В третьей графе этой таблицы указаны интервалы значений, возвращаемых функцией DatePart
.
Приложение 2
Константы из коллекции firstdayofweek
:
Константа | Значение | Описание |
---|---|---|
vbUseSystem | 0 | Используются системные настройки |
vbSunday | 1 | Воскресенье (по умолчанию) |
vbMonday | 2 | Понедельник |
vbTuesday | 3 | Вторник |
vbWednesday | 4 | Среда |
vbThursday | 5 | Четверг |
vbFriday | 6 | Пятница |
vbSaturday | 7 | Суббота |
Приложение 3
Константы из коллекции firstweekofyear
:
Константа | Значение | Описание |
---|---|---|
vbUseSystem | 0 | Используются системные настройки. |
vbFirstJan1 | 1 | Неделя, в которую входит 1 января (по умолчанию). |
vbFirstFourDays | 2 | Неделя, в которую входит не менее четырех дней нового года. |
vbFirstFullWeek | 3 | Первая полная неделя года. |
In this Article
- VBA Date Function
- VBA Now Function
- VBA Time Function
- VBA DateAdd Function
- VBA DateDiff Function
- VBA DatePart Function
- VBA DateSerial Function
- VBA DateValue Function
- VBA Day Function
- VBA Hour Function
- VBA Minute Function
- VBA Second Function
- VBA Month Function
- VBA MonthName Function
- VBA TimeSerial Function
- VBA TimeValue Function
- VBA Weekday Function
- VBA WeekdayName Function
- VBA Year Function
- Comparing Dates in VBA
This tutorial will cover the different built-in VBA Date Functions.
VBA Date Function
You can use the Date Function to return the current date.
The syntax of the Date Function is Date(). It has no arguments.
The following code shows you how to use the Date Function:
Sub UsingTheDateFunction()
Dim theDate As Date
theDate = Date()
Debug.Print theDate
End Sub
The result shown in the Immediate Window is:
VBA Now Function
You can use the Now Function to return the current date and time.
The syntax of the Now Function is Now(). It has no arguments.
The following code shows you how to use the Now Function:
Sub UsingTheNowFunction()
Dim theDate As Date
theDate = Now()
Debug.Print theDate
End Sub
The result is:
VBA Time Function
You can use the Time Function to return the current time.
The syntax of the Time Function is Time(). It has no arguments.
The following code shows you how to use the Time Function:
Sub UsingTheTimeFunction()
Dim theTime As Date
theTime = Time()
Debug.Print theTime
End Sub
The result is:
VBA DateAdd Function
You can use the DateAdd Function to add a date/time interval to a date or time, and the function will return the resulting date/time.
The syntax of the DateAdd Function is:
DateAdd(Interval, Number, Date) where:
- Interval – A string that specifies the type of interval to use. The interval can be one of the following values:
“d” – day
“ww” – week
“w” – weekday
“m” – month
“q” – quarter
“yyyy” – year
“y” – day of the year
“h” – hour
“n” – minute
“s” – second
- Number – The number of intervals that you want to add to the original date/time.
- Date – The original date/time.
Note: When using dates in your code you have to surround them with # or quotation marks.
The following code shows how to use the DateAdd Function:
Sub UsingTheDateAddFunction()
Dim laterDate As Date
laterDate = DateAdd("m", 10, "11/12/2019")
Debug.Print laterDate
End Sub
The result is:
VBA DateDiff Function
You can use the DateDiff Function in order to get the difference between two dates, based on a specified time interval.
The syntax of the DateDiff Function is:
DateDiff(Interval, Date1, Date2, [Firstdayofweek], [Firstweekofyear]) where:
- Interval – A string that specifies the type of interval to use. The interval can be one of the following values:
“d” – day
“ww” – week
“w” – weekday
“m” – month
“q” – quarter
“yyyy” – year
“y” – day of the year
“h” – hour
“n” – minute
“s” – second
- Date1 – A date value representing the earlier date.
- Date2 – A date value representing the later date.
- Firstdayofweek (Optional) – A constant that specifies the weekday that the function should use as the first day of the week. If blank Sunday is used as the first day of the week. Firstdayofweek can be one of the following values:
-vbSunday – uses Sunday as the first day of the week.
-vbMonday – uses Monday as the first day of the week.
-vbTuesday – uses Tuesday as the first day of the week.
-vbWednesday – uses Wednesday as the first day of the week.
-vbThursday – uses Thursday as the first day of the week.
-vbFriday – uses Friday as the first day of the week.
-vbSaturday – uses Saturday as the first day of the week.
-vbUseSystemDayOfTheWeek – uses the first day of the week that is specified by your system’s settings.
- Firstweekofyear (Optional) – A constant that specifies the first week of the year. If blank then the Jan 1st week is used as the first week of the year. Firstweekofyear can be one of the following values:
-vbFirstJan1 – uses the week containing Jan 1st.
-vbFirstFourDays – uses the first week that contains at least four days in the new year.
-vbFirstFullWeek – uses the first full week of the year.
-vbSystem – uses the first week of the year as specified by your system settings.
The following code shows you how to use the DateDiff Function:
Sub UsingTheDateDiffFunction()
Dim theDifferenceBetweenTwoDates As Long
theDifferenceBetweenTwoDates = DateDiff("q", "11/11/2010", "10/12/2012")
Debug.Print theDifferenceBetweenTwoDates
End Sub
The result is:
VBA DatePart Function
You can use the DatePart Function in order to return a part (day, week, quarter, month etc.) of a given date.
The syntax of the DatePart Function is:
DatePart(Interval, Date,[Firstdayofweek], [Firstweekofyear]) where:
- Interval – A string that specifies the part of the date to return. The interval can be one of the following values:
“d” – day
“ww” – week
“w” – weekday
“m” – month
“q” – quarter
“yyyy” – year
“y” – day of the year
“h” – hour
“n” – minute
“s” – second
- Date – The date that you want the function to return a part of.
- Firstdayofweek (Optional) – A constant that specifies the weekday that the function should use as the first day of the week. If blank Sunday is used as the first day of the week. Firstdayofweek can be one of the following values:
-vbSunday – uses Sunday as the first day of the week.
-vbMonday – uses Monday as the first day of the week.
-vbTuesday – uses Tuesday as the first day of the week.
-vbWednesday – uses Wednesday as the first day of the week.
-vbThursday – uses Thursday as the first day of the week.
-vbFriday – uses Friday as the first day of the week.
-vbSaturday – uses Saturday as the first day of the week.
-vbUseSystemDayOfTheWeek – uses the first day of the week that is specified by your system’s settings.
- Firstweekofyear (Optional) – A constant that specifies the first week of the year. If blank then the Jan 1st week is used as the first week of the year. Firstweekofyear can be one of the following values:
-vbFirstJan1 – uses the week containing Jan 1st.
-vbFirstFourDays – uses the first week that contains at least four days in the new year.
-vbFirstFullWeek – uses the first full week of the year.
-vbSystem – uses the first week of the year as specified by your system settings.
The following code shows you how to use the DatePart Function:
Sub UsingTheDatePartFunction()
Dim thePartOfTheDate As Integer
thePartOfTheDate = DatePart("yyyy", "12/12/2009")
Debug.Print thePartOfTheDate
End Sub
The result is:
VBA Coding Made Easy
Stop searching for VBA code online. Learn more about AutoMacro — A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!
Learn More
VBA DateSerial Function
The VBA DateSerial Function takes an input year, month and day and returns a date.
The syntax of the DateSerial Function is:
DateSerial(Year, Month, Day) where:
- Year – An integer value between 100 and 9999 that represents the year.
- Month – An integer value that represents the month.
- Day – An integer value that represents the day.
The following code shows you how to use the DateSerial Function:
Sub UsingTheDateSerialFunction()
Dim theDate As Date
theDate = DateSerial(2010, 11, 10)
Debug.Print theDate
End Sub
The result is:
VBA DateValue Function
The DateValue Function returns a Date when given a string representation of a date.
The syntax of the DateValue Function is:
DateValue(Date) where:
- Date – A String representing the date.
The following code shows you how to use the DateValue Function:
Sub UsingTheDateValueFunction()
Dim theDate As Date
theDate = DateValue("October, 29, 2010")
Debug.Print theDate
End Sub
The result is:
VBA Day Function
You can use the Day Function to return the day of an input date.
The syntax of the Day Function is:
Day(Date_value) where:
- Date_value – The date which you want to extract the day from.
The following code shows you how to use the Day Function:
Sub UsingTheDayFunction()
Dim theDay As Integer
theDay = Day("10/12/2010")
Debug.Print theDay
End Sub
The result is:
VBA Programming | Code Generator does work for you!
VBA Hour Function
You can use the Hour Function to return the hour of an input time.
The syntax of the Hour Function is:
Hour(Time) where:
- Time – The time that you want to extract the hour from.
The following code shows you how to use the Hour Function:
Sub UsingTheHourFunction()
Dim theHour As Integer
theHour = Hour("2:14:17 AM")
Debug.Print theHour
End Sub
The result is:
VBA Minute Function
You can use the Minute Function to return the minute value of an input time.
The syntax of the Minute Function is:
Minute(Time) where:
- Time – The time that you want to extract the minute value from.
The following code shows you how to use the Minute Function:
Sub UsingTheMinuteFunction()
Dim theMinuteValue As Integer
theMinuteValue = Minute("2:14:17 AM")
Debug.Print theMinuteValue
End Sub
The result is:
VBA Second Function
You can use the Second Function to return the second value of an input time.
The syntax of the Second Function is:
Second(Time) where:
- Time – The time that you want to extract the second value from.
The following code shows you how to use the Second Function:
Sub UsingTheSecondFunction()
Dim theSecondValue As Integer
theSecondValue = Second("2:14:17 AM")
Debug.Print theSecondValue
End Sub
The result is:
VBA Month Function
You can use the Month Function to return the month of an input date.
The syntax of the Month Function is:
Month(Date_value) where:
- Date_value – The date which you want to extract the month from.
The following code shows you how to use the Month Function:
Sub UsingTheMonthFunction()
Dim theMonth As Integer
theMonth = Month("11/18/2010")
Debug.Print theMonth
End Sub
The result is:
VBA MonthName Function
You can use the MonthName Function to return the name of a month from an input supplied month number.
The syntax of the MonthName Function is:
MonthName(Number_of_month, [Abbreviate]) where:
- Number_of_month – An integer value between 1 and 12.
- Abbreviate (Optional) – Specifies whether the month name should be abbreviated. If blank the default value of False is used.
Sub UsingTheMonthNameFunction()
Dim theMonthName As String
theMonthName = MonthName(12, True)
Debug.Print theMonthName
End Sub
The result is:
AutoMacro | Ultimate VBA Add-in | Click for Free Trial!
VBA TimeSerial Function
The TimeSerial Function takes an input hour, minute and second and returns a time.
The syntax of the TimeSerial Function is:
TimeSerial(Hour, Minute, Second) where:
- Hour – An integer value between 0 and 23 that represents the hour value.
- Minute – An integer value between 0 and 59 that represents the minute value.
- Second – An integer value between 0 and 59 that represents the second value.
The following code shows you how to use the TimeSerial Function:
Sub UsingTheTimeSerialFunction()
Dim theTime As Date
theTime = TimeSerial(1, 10, 15)
Debug.Print theTime
End Sub
The result is:
VBA TimeValue Function
The TimeValue Function returns a Time from a string representation of a date or time.
The syntax of the TimeValue Function is:
TimeValue(Time) where:
- Time – A String representing the time.
The following code shows you how to use the TimeValue Function:
Sub UsingTheTimeValueFunction()
Dim theTime As Date
theTime = TimeValue("22:10:17")
Debug.Print theTime
End Sub
The result is:
VBA Weekday Function
You can use the Weekday Function to return an integer from 1 – 7 representing a day of the week from an input date.
The syntax of the Weekday Function is:
Weekday(Date, [Firstdayofweek]) where:
- Date – The date that you want to extract the weekday value from.
- Firstdayofweek (Optional) – A constant that specifies the weekday that the function should use as the first day of the week. If blank Sunday is used as the first day of the week. Firstdayofweek can be one of the following values:
-vbSunday – uses Sunday as the first day of the week.
-vbMonday – uses Monday as the first day of the week.
-vbTuesday – uses Tuesday as the first day of the week.
-vbWednesday – uses Wednesday as the first day of the week.
-vbThursday – uses Thursday as the first day of the week.
-vbFriday – uses Friday as the first day of the week.
-vbSaturday – uses Saturday as the first day of the week.
-vbUseSystemDayOfTheWeek – uses the first day of the week that is specified by your system’s settings.
The following code shows you how to use the Weekday Function:
Sub UsingTheWeekdayFunction()
Dim theWeekDay As Integer
theWeekDay = Weekday("11/20/2019")
Debug.Print theWeekDay
End Sub
The result is:
VBA WeekdayName Function
You can use the WeekdayName Function to return the name of a weekday from an input supplied weekday number.
The syntax of the WeekdayName Function is:
WeekdayName(Weekday, [Abbreviate], [Firstdayoftheweek]) where:
- Weekday – An integer value between 1 and 7.
- Abbreviate (Optional) -Specifies whether the weekday name should be abbreviated. If blank the default value of False is used.
- Firstdayofweek (Optional) – A constant that specifies the weekday that the function should use as the first day of the week. If blank Sunday is used as the first day of the week. Firstdayofweek can be one of the following values:
-vbSunday – uses Sunday as the first day of the week.
-vbMonday – uses Monday as the first day of the week.
-vbTuesday – uses Tuesday as the first day of the week.
-vbWednesday – uses Wednesday as the first day of the week.
-vbThursday – uses Thursday as the first day of the week.
-vbFriday – uses Friday as the first day of the week.
-vbSaturday – uses Saturday as the first day of the week.
-vbUseSystemDayOfTheWeek – uses the first day of the week that is specified by your system’s settings.
Sub UsingTheWeekdayNameFunction()
Dim theWeekdayName As String
theWeekdayName = WeekdayName(4)
Debug.Print theWeekdayName
End Sub
The result is:
AutoMacro | Ultimate VBA Add-in | Click for Free Trial!
VBA Year Function
You can use the Year Function to return the year of an input date.
The syntax of the Year Function is:
Year(Date_value) where:
- Date_value – The date which you want to extract the year from.
The following code shows you how to use the Year Function:
Sub UsingTheYearFunction()
Dim theYear As Integer
theYear = Year("11/12/2010")
Debug.Print theYear
End Sub
The result is:
Comparing Dates in VBA
You can compare dates using the >, <, and = operators in VBA. The following code shows you how to compare two dates in VBA.
Sub ComparingDates()
Dim dateOne As Date
Dim dateTwo As Date
dateOne = "10/10/2010"
dateTwo = "11/11/2010"
If dateOne > dateTwo Then
Debug.Print "dateOne is the later date"
ElseIf dateOne = dateTwo Then
Debug.Print "The two dates are equal"
Else
Debug.Print "dateTwo is the later date"
End If
End Sub
Learn more about how to Format dates as strings by viewing this tutorial.
Главная » Функции VBA »
28 Апрель 2011 326684 просмотров
- Date() — возвращает текущую системную дату. Установить ее можно при помощи одноименного оператора, например, так:
- Time() — возвращает текущее системное время
- Now() — возвращает дату и время вместе.
- DateAdd() — возможность добавить к дате указанное количество лет, кварталов, месяцев и так далее — вплоть до секунд. Интервалы(год, месяц и т.д.) указываются в текстовом формате. Список допустимых значений:
«yyyy» Год
«q» Квартал
«m» Месяц
«y» День года
«d» День
«w» День недели
«ww» Неделя
«h» Час
«n» Минута
«s» Секунда
Сам синтаксис обращения незамысловат. Сначала указываем интервал, затем сколько единиц добавить и самый последний аргумент — к какой дате(включая время, кстати). Например, чтобы добавить 3 года к текущей дате-времени, надо записать функцию так:
MsgBox DateAdd(«yyyy», 3, Now)
Но что интереснее — можно не только добавлять, но и отнимать. Функция не изменится, мы просто должны записать кол-во добавляемых периодов со знаком минус. Отнимем три года от текущей даты-времени:
MsgBox DateAdd(«yyyy», -3, Now) - DateDiff() — возможность получить разницу между датами (опять таки в единицах от лет до секунд).
Dim lDaysCnt As Long lDaysCnt = DateDiff("d", "20.11.2012", Now) MsgBox "С 20.11.2012 прошло дней: " & lDaysCnt
Первый аргумент определяет период времени, в котором необходимо вернуть разницу между датами. Допустимые значения:
«yyyy» Год
«q» Квартал
«m» Месяц
«y» День года
«d» День
«w» День недели
«ww» Неделя
«h» Час
«n» Минута
«s» Секунда
Наиболее полезна DateDiff при вычислении полных лет. Например, чтобы вычислить сколько лет на текущий момент человеку, в зависимости от даты рождения, можно использовать функцию так:MsgBox DateDiff("yyyy", "20.12.1978", Now)
Без этой функции вычислить кол-во полных лет гораздо сложнее.
- DatePart() — функция возвращает указанную часть даты (например, только год, только месяц или только день недели), на основании заданной даты. Часто применяется для получения номера недели для даты.
Первый аргумент — период времени. Принимаемые значения те же, что и для функции DateDiff(годы, месяцы, недели и т.д.)
Второй аргумент — непосредственно дата, часть которой необходимо получить:MsgBox "Номер недели года: " & DatePart("ww", Now)
- DateSerial() — возможность создать значение даты, задавая месяц, год и день числовыми значениями:
- DateValue()— делает то же, что и DateSerial(). Отличия — в формате принимаемых значений. Эта функция в качестве аргумента принимает дату в текстовом формате и преобразует её в формат даты:
MsgBox DateValue("07.06.12")
Аналогичным образом (для времени) работают TimeSerial() и TimeValue()
- Day(), Year(), Month(), Weekday(), Hour(), Minute(), Second() — специализированные заменители функции DatePart(), которые возвращают нужную часть даты/времени (которую именно — видно из названия).
- MonthName() — возвращает имя месяца словами по его номеру. Возвращаемое значение зависит от региональных настроек. Если они русские, то вернется русское название месяца.
- Timer() — возвращает количество секунд, прошедших с полуночи.
MsgBox DateSerial(2012, 6, 7)
Статья помогла? Сделай твит, поделись ссылкой с друзьями!
Date and Time Functions are the inbuilt functions that give us the opportunity to see the date or time according to the user’s need. Suppose a user needs to see the month or the day or the year then it can be easily seen by different date functions. Similarly, for the time function, also we can manipulate it according to the need of the user. Date and Time functions are used to interconvert date and time in different formats. In this article, we will learn about the most commonly used date and time functions.
VBA Date Functions
There are fifteen-plus different date functions in VBA, but here we will talk about some of the most commonly used date functions.
VBA Date Function
The Date() function returns the current date. The Date() function does not require any arguments. For example, declare a variable name date_1 of Date data type, call the Date() function, and store the return value in date_1, then print the date_1 in the console.
Syntax of the function: Date()
VBA DateAdd Function
The DateAdd() function is used to add an interval of date/time to the respective date or time. The function will return the resulting date or time. The function takes three arguments, Interval, Number, and Date/Time.
Syntax of the function: DateAdd(Interval, Number, Date/Time)
Interval: The first argument, represents, which part of the Date/Time, you want the interval to be added.
Types of intervals are discussed in the following table:
Intervals | Specification |
“d” | Day |
“ww” | Week |
“m” | Month |
“q” | Quarter |
“yyyy” | Year |
“y” | Day of the year |
“h” | Hour |
“n” | Minute |
“s” | Second |
Number: The second argument represents, the number of Intervals we want to add to the Date/Time.
Date/Time: The third argument represents, the Date/Time on which the changes have to occur.
For example, the current date is “20/11/2020”, and we want to increase the month count by 8. Then use, DateAdd(“m”, 8, “20/11/2020”), and the final output date will be “20/07/2021”.
VBA DateDiff Function
The DateDiff() function is used to get the difference between two dates, in terms of the year, month, day, hours, seconds, etc. The function will return the resulting Date/Time. The functions take three mandatory arguments, Interval, Date1, and Date2.
Syntax of the function: DateDiff(Interval, Date1, Date2)
Interval: The first argument, represents, the part of the Date/Time, you want to see the difference. For example, in terms of the year, day, month, etc. Refer to the table in VBADateAdd() function, for the values of Interval.
Date1: Date1 is the second argument. It tells the start date in an interval.
Date 2: Date2 is the third argument. It tells the end date in an interval.
For example, consider Date1 as “20/10/2020”, and Date2 as “20/12/2021”, and the difference in terms of “d”(days). The final output of the function will be 426.
VBA DatePart Function
The DatePart() function is used to get a particular part(day, week, year) from the date. The function returns the part of date in asked format by the user. The function takes two mandatory arguments, Interval, Date.
Syntax of the function: DatePart(Interval, Date)
Interval: The first argument, represents, the part of the Date/Time, one wants to see. For example, “yyyy” represents the year, and tells the DatePart function to return the year of an input Date.
Date: The second argument, which represents the date user will enter, to check a particular part of a date.
For example, consider the Date as “10/10/2020”, and it has been asked to print the year of this particular date. So, we will use “yyyy” as the first argument. The final output is 2020.
VBA MonthName Function
The MonthName() function returns the name of the month according to the integer value. The function takes one mandatory argument, a number.
Syntax of the function: MonthName(number)
number: The first argument, which tells about the number of the month.
For example, 11 is the argument of the MonthName() function, the function returns “November”.
VBA Time Functions
There are ten-plus different time functions in VBA, but here we will talk about some of the most commonly used time functions.
VBA Now Function
The Now() function is used to get the current date and time of the system. The function does not take any arguments. For example, declare a variable name date_2 of Date data type, call the Now() function, and store the return value in date_2, then print the date_2 in the console.
Syntax of the function: Now()
VBA Time Function
The Time() function is used to get the current time of your system. The function does not take any arguments. For example, call the Time() function, and the system will return the current time i.e. 5:20:20 PM.
Syntax of the function: Time()
VBA Hour Function
The hour() function is used to get the hour from the time. The function takes one mandatory argument, Time.
Syntax of the function: hour(Time)
Time: The first argument, which represents the time user will enter.
For example, consider the time “1:08:42 PM”, and it has been asked to print the hour of this particular time. The final output will be 1.
VBA Minute Function
The minute() function is used to get the minute from the time. The function takes one mandatory argument, Time.
Syntax of the function: minute(Time)
Time: The first argument, which represents the time user will enter.
For example, consider the time “1:08:42 PM”, and it has been asked to print the minute of this particular time. The final output will be 08.
VBA Second Function
The second() function is used to get the seconds from the time. The function takes one mandatory argument, Time.
Syntax of the function: second(Time)
Time: The first argument, which represents the time user will enter.
For example, consider the time “1:08:42 PM”, and it has been asked to print the seconds of this particular time. The final output will be 42.
This Excel tutorial explains how to use the Excel DATE function (in VBA) with syntax and examples.
Description
The Microsoft Excel DATE function returns the current system date.
The DATE function is a built-in function in Excel that is categorized as a Date/Time Function. It can be used as a VBA function (VBA) in Excel. As a VBA function, you can use this function in macro code that is entered through the Microsoft Visual Basic Editor.
Please read our DATE function (WS) page if you are looking for the worksheet version of the DATE function as it has a very different syntax.
Syntax
The syntax for the DATE function in Microsoft Excel is:
Date()
Parameters or Arguments
There are no parameters or arguments for the DATE function.
Returns
The DATE function returns a date value that represents the current system date.
Applies To
- Excel for Office 365, Excel 2019, Excel 2016, Excel 2013, Excel 2011 for Mac, Excel 2010, Excel 2007, Excel 2003, Excel XP, Excel 2000
Type of Function
- VBA function (VBA)
Example (as VBA Function)
The DATE function can only be used in VBA code in Microsoft Excel.
Let’s look at some Excel DATE function examples and explore how to use the DATE function in Excel VBA code:
Date() Result: '22/11/2003' (your answer will vary)
For example:
Dim LDate As String LDate = Date
In this example, the variable called LDate would now contain the current system date.
Excel VBA Date
There are some functions which are really very handy, and we choke our life without those functions being a VBA user. DATE function is one of those functions which can be really very useful at times and can make life easier for a programmer. In an Excel spreadsheet, there is a function called TODAY() which gives the current date as a result based on the system date. On similar lines, VBA has DATE function which gives current date based on the system date.
The VBA DATE function returns the current date based on system date as a result and has really very simple syntax.
This function does not have any argument to be passed comes with the name of the function and empty parentheses. It is not mandatory to add the parentheses as well while calling this function. Isn’t this function really simple in nature?
The syntax of DATE function in VBA.
How to Use Excel VBA Date Function?
We will learn how to use a VBA Date function with few examples in excel.
You can download this VBA Date Excel Template here – VBA Date Excel Template
VBA Date Function – Example #1
Suppose, you wanted to see the current date in MsgBox. How can you do that? Just follow the steps below and you’ll be through.
Step 1: Insert a new module in your Visual Basic Editor.
Step 2: Define a sub-procedure to write create and save a macro.
Code:
Sub DateEx1() End Sub
Step 3: Define a variable named CurrDate which can hold the value of the current date. Since, we are about to assign a date value to the variable, make sure you are defining it as a date.
Code:
Sub DateEx1() Dim CurrDate As Date End Sub
Step 4: Using the assignment operator, assign a value of the current system date to the variable newly created. You just need to add DATE in order to assign the date value. Use the following piece of code:
Code:
Sub DateEx1() Dim CurrDate As Date CurrDate = Date End Sub
Step 5: Use MsgBox to be able to see the current system date under Message Box prompt. Use the line of code given below:
Code:
Sub DateEx1() Dim CurrDate As Date CurrDate = Date MsgBox "Today's Date is: " & CurrDate End Sub
Step 6: Hit F5 or run button manually to Run this code. You’ll be able to see a Message Box as shown in below screenshot with the current date.
Note that, the date shown here in the screenshot is the date I have run this script at. You may be getting a different date at the time you run this code, based on your system date.
This is the simplest example of getting the current date. You can also use Cells.Value function to get the date value in a particular cell of your excel sheet.
VBA Date Function – Example #2
Home Loan EMI payment due date
Suppose I have a worksheet and I need a system to show me a message “Hey! You need to pay your EMI today.” Every time I open my sheet and the value in cell A1 is the current system date. Let’s see step by step how we can do that.
Step 1: Insert a new module and define a new sub-procedure named auto_open() to create a macro. auto_open() allows your macro to run automatically every time you open the worksheet.
Code:
Sub auto_open() End Sub
Step 2: Use If condition to assign the value of the current date in cell A1 of worksheet HomeLoan_EMI.
Code:
Sub auto_open() If Sheets("HomeLoan_EMI").Range("A1").Value = Date End Sub
Step 3: Now, use Then on the same line after IF so that we can add a statement which will execute as long as if-condition is true.
Code:
Sub auto_open() If Sheets("HomeLoan_EMI").Range("A1").Value = Date Then End Sub
Step 4: Add a statement to be executed for the condition which is true.
Code:
Sub auto_open() If Sheets("HomeLoan_EMI").Range("A1").Value = Date Then MsgBox ("Hey! You need to pay your EMI today.") End Sub
This statement will pop-up under Message Box as soon as the If a condition is true.
Step 5: As we know, every IF condition always needed an Else condition. Add an Else condition to this loop.
Code:
Sub auto_open() If Sheets("HomeLoan_EMI").Range("A1").Value = Date Then MsgBox ("Hey! You need to pay your EMI today.") Else Exit Sub End Sub
This else condition will terminate the automatic opening of Macro if a date in cell A1 is not the current system date.
Step 6: Finally, End the IF loop by using statement End IF.
Code:
Sub auto_open() If Sheets("HomeLoan_EMI").Range("A1").Value = Date Then MsgBox ("Hey! You need to pay your EMI today.") Else Exit Sub End If End Sub
Step 7: This is it, now every time you open your worksheet the system will automatically run the above code and see if the date value in cell A1 is your EMI due date or not. If the EMI due date equals to the system date, it will show the message as below:
VBA Date Function – Example #3
VBA Date to Find out the Credit Card Bill Payee
Suppose I have a list of customers who have a credit card and you want to know who has payment due today. So that you can call them and ask them to pay their due immediately by EOD.
VBA Date could be handy in allowing you to automate the things instead of checking the dates one by one. Let’s see how to do this step by step:
Step 1: Define a New macro using a sub-procedure under a module.
Code:
Sub DateEx3() End Sub
Step 2: Define two new variables one of which will be useful in looping the code up and another one in order to hold the value of the current system date.
Code:
Sub DateEx3() Dim DateDue As Date Dim i As Long DateDue = Date i = 2 End Sub
Step 3: Now use the following piece of code which helps in searching the person who has a credit card bill due date as the current system date. This code allows checking the Customer who has bill payment due on the current system date along with the bill amount.
Code:
Sub DateEx3() Dim DateDue As Date Dim i As Long DateDue = Date i = 2 For i = 2 To Sheets("CC_Bill").Cells(Rows.Count, 1).End(xlUp).Row If DateDue = DateSerial(Year(DateDue), Month(Sheets("CC_Bill").Cells(i, 3).Value), Day(Sheets("CC_Bill").Cells(i, 3).Value)) Then MsgBox "Customer Name : " & Sheets("CC_Bill").Cells(i, 1).Value & vbNewLine & "Premium Amount : " & Sheets("CC_Bill").Cells(i, 2).Value End If Next i End Sub
Step 4: Run this code by hitting F5 or Run button manually and see the output.
On the first iteration, we can see that Mohan is the one who has Bill of 12,900 due on 29-Apr-2019 (Current system date on which this code is run). If we hit OK, we can see the next customer name who has a bill due on 29-Apr-2019 (Rajani is the next).
This code will really be handy when you are having millions of rows of customers who have their bill due on one particular day. Please note that all the scripts mentioned in this article are run on 29-Apr-2019. You might get different date value when you run this sample codes based on the system date.
Things to Remember
- VBA DATE function returns the current system date and as parallel to Excel’s TODAY() function.
- VBA DATE function does not have any argument to be passed in excel. Doesn’t even need the parentheses to be called while using this function in the code.
- VBA DATE is a non-volatile function in excel.
- VBA stores Date values as DATE at the time of execution. So, does not define a variable holding value as a String/Integer. It will cause an error during execution of the code.
Recommended Articles
This has been a guide to Excel VBA Date. Here we have discussed how to use Excel VBA Date Functions along with practical examples and downloadable excel template. You can also go through our other suggested articles –
- VBA Date Format
- VBA GoTo
- VBA RGB
- VBA DateSerial