Функции для работы с датой и временем в 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 | Первая полная неделя года. |
Главная » Функции VBA »
28 Апрель 2011 326732 просмотров
- 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)
Статья помогла? Сделай твит, поделись ссылкой с друзьями!
Работа с датой
Смотрите также «01 Янв 2007″PureBasic if mS смотрится: Private Sub CommandButton1_Click()Оксана33
указанной ячейке введён A1=»21.01.2012″, как прибавить флаг типа Boolean,Функция
1
ExpressionОбязательный аргумент - системную дату. Формат Dim date1 As не получится ввестибольше похоже на не стандартна… Вдругcooler_92 это совсем другое = «Jan» thenкстати можно еще Dim x As: я не пойму… не прошлый день, к нему календарный указывающий на видNowВоскресенье (по умолчанию) выражение типа Variant, даты, возвращаемый функцией, Date Dim date2 дату в неправильном правду.. только я это пользователь забыл: Привет Эт снова дело. mI=1 if mS так String x = cdbl для того, то ввести формулу, месяц(2,3,4,5…) по средствам возвращаемого дня недели.позволяет быстро узнатьvbMonday содержащее выражение даты определяется национальными системными As String Dim формате. что то не точку поставить, а я.. по сутиMsgBox CDate(«01 Jan = «Feb» thenDim x As MonthName(Month(Date), False) If чтобы преобразовать в возвращающую их разницу, VBA и сравнить По умолчанию установлен текущую дату и2 или строковое выражение, установками date3 As Stringanalyst сообразил, где какое программа такая плохая программа написанна, но 2007″) MsgBox CDate(«01 mI=2… String x=Choose(Month(Date),»Января»,»Февраля»,»Марта»……..,»Декабря») msgbox (Right(x, 1) = число? я думала, можно, например, так с сегодняшним числом? в False, что время по системномуПонедельник
распознаваемое как значениеПараметры Dim date4 As
: Эта запись вообще сообщение должно вываливаться.. посчитала ему, и в ней один Янв 2007″)Кроме того,pashulka x «ь») Or (Right(x, что он для :Формулами это сделать
означает вывод полного календарю и часамvbTuesday даты или времени
Функция не имеет аргументов Date date3 = касалась кода, который напиши плз вывела результат почти косяк. если внимательно прочитать:MU-GK 1) = «й») другого служитActiveCell = «=TODAY()-« вообще не проблема, дня недели FirstDayOfWeekНеобязательный компьютера. Чтобы получить3ПримерПример InputBox(«Введите дату рождения:») написан до неё.analyst 700000 тысяч дней..Надо написать программу, моё сообщение, тоMU-GK: Смотрится. Mid в Then Mid(x, Len(x))тогда почему не
& CDbl(Cells(2, 1))или но по ячейкам аргумент — числовая только системную датуВторник
’ Используем функцию IsDate’ Выводим текущую системную If date3 = Читайте внимательнее!: Да согласен. Я Ну эт размышления
определяющую сколько дней там говорится, что, Все три вышеперечисленные данном случае не = «я» Else CLng или CSng,ActiveCell = «=TODAY()-« бить лишнюю инфу константа, указывающая, какой без времени, используйтеvbWednesday ‘ для проверки, дату в заголовке Format(date3, «dd.mm.yyyy») ThenА на счёт так подумал и моего препода. Короч, прошло со дня англ.месяц можно заменить
функции, локально-зависимые. поэтому функция, а оператор.
Mid(x, Len(x)+1) = что для меня & Cells(2, 1).Value2 не хочется вообще. день недели считать функцию Date4 является ли год
формы Dim Today ‘Стандартная ф-я, которая календаря согласен. решил, что нафига помогите с этим вашего рождения. на русск.аналог у нас, названия
pashulka «а» End If
более логично быОксана33
Спасибо. первым: vbUseSystem=0Используется системнаяПримечание: Не забывайте,
Среда высокосным ‘ Для Today= выводит диалоговое окноcooler_92 делать так, если разобраться.. Знаю, чтоВот текст программыили его номер месяцев должны указываться
: о как ActiveCell = x звучало или даже:Юрий М информация vbFirstJan1=1Неделя, содержащая что пользователь можетvbThursday
этого проверяем, существуетDate с сообщением и: Про форму я можно создать форму,
нужно ф-ей FormatOption Explicit Sub
Да это понятно, что как Январь/Января илини разу не End Sub CInt, но толькоpashulka
: Sub PlusOneMonth() 1 января vbFirstFourDays=2Первая самостоятельно устанавливать системное
5 ли 29 февраля’ узнаем текущую
полем ввода If в курсе, но а в ней пользоваться, но не date_rozhd() ‘Программа, считающая
на территории РФ Янв/Янва и т.п. встречалsnipe с ним какая, объясни пожалуйста почемуDim x неделя, содержащая как
время и датуЧетверг
Dim MyYear is системную дату ‘ date3 = «» работать можно только три комбобокса, в
знаю как.. кол-во дней, прошедших действительны только Январь/Февраль,По поводу утилитыпойду ликбезом заниматься: Благодарю, вы мне то засада - CDbl — онx = «21.01.2012» минимум 4 дня на своем компьютере,
vbFriday String If Преобразуем в строку Then MsgBox «Дата
в модуле, без которых можно загрузитьanalyst
со дня рождения, а не Jan/Feb. — в Вашемспасибо за наводку очень помогли! в экселе преобразовует, конвертирует его вMsgBox DateSerial(Year(x), Month(x) нового года vbFirstFullWeek=3Первая поэтому эти значения6IsDate и выводим в рождения не введена!» использования визуальных компонентов. только то что: Как на счёт до сегодняшней датыИменно это я посте нет информации,MU-GKsnipe а вот в число, которое Эксель + 1, Day(x)) полная неделя года могут не иметьПятница(«02/29/» & myYear) Then заголовке формы Form1.Caption Else date1 =analyst нужно и не такого варианта? Dim date1 As и имел в куда выдаётся такая: Индуцировано:: Dim x As vba — нет интерпретирует как дату?End SubПример ничего общего сvbSaturday MsgBox myYear & = CStr(Today) Date ‘ф-я определения: Я же написал надо будет заморачиватьсяOption Explicit Sub
Date Dim date2 виду, что невозможно информация. если этоЕсть функция String x =
CyberForum.ru
Date
Функция Date
pashulka
pashulka
Казанский’ Выводим сокращенное название реальной датой и7 «- высокосный год»
Смотри также
сегодняшней даты If вариант без формы. на счёт всяких date_rozhd() Dim a As String Dim напрямую прочитать «01 ячейки рабочего листаMonthname MonthName(Month(Date), False) if: В Excel нет
: Потому, что дата
: dateadd(«m»,2,[A1])
седьмого месяца Form1.Caption временем!Суббота Else MsgBox myYearNow IsDate(date3) = Falsecooler_92 там условий по As String Dim date3 As String Jan 2012". (Excel), то можно
, возвращающая имя месяца
Month(Date)=3 or Month(Date)=8
стандартной функции рабочего
это всего лишьВторой аргумент -
excelworld.ru
Функция IsDate
=
Возвращаемое значениеВозвращаемые значения & «- невысокосныйКатегория Then ‘ф-я проверки: не вариант..))) не поводу ввода некоректных date1 As Date Dim date4 AsПоскольку прочитать надо, просто заменить англ. по номеру, а Then x=x & листа CInt, а количество(читайте число) дней, число м-цев.
WeekdayName
Возвращает значение типа Variant(Date),Ниже перечислены значения, возвращаемые год» End IfФункции дат и корректности ввода двты работает!!! данных. Пользователь сможет Dim date2 As Date date3 = то здесь два месяц на наш вот функции, возвращающей «а» Else Left(x, есть Int(Целое) прошедших с 1ivan-msk77(7, True) содержащее текущую дату функциейКатегория времени MsgBox «Дата введенаПользователю конечно можно
выбрать только то, String Dim date3 InputBox(«Введите дату рождения:») выхода: отечественный или его ноимер месяца по len(x)-1) & «я»А что касается
января 1900 года: пошел пробовать, благодарюСмотри также и времяWeekdayФункции дат иIsDate(Expression) некорректно.» & Chr(13) написать, но кто что есть на As String Dim ‘Стандартная ф-я, которая1. Менять сразу номер. а для имени кажется нет.
msgbox x
VB(A), то функция (или 2 января
Функция Weekday
:)
MonthNameПараметры: времени
Функция
& «Формат даты сказал, что он самом деле! date4 As Date
выводит диалоговое окно
к числовому формату, этого можно использовать,
pashulka | snipe |
CInt, при конвертации | 1904 года, еслиLightZКатегорияФункция не имеет аргументовКонстантаWeekday(Date,[FirstDayOfWeek])IsDate должен быть: день.месяц.год» будет соблюдать это |
Да, как на | a = InputBox(«Введите с сообщением и примерно вот так: например, метод Replace: |
: Ну конечно! даты в число,
в Excel установлена | : формочка | Функции дат и |
Пример | Значение | Функция используется для получения |
проверяет, является ли | Else date4 = | «условие»? |
счёт такого кода? | дату рождения:») date3 | полем ввода If |
d = Mid(DateS, | об’екта Range | MU-GK |
snipe | во-первых отбросит время(дробную | соответствующая опция) |
Оксана33 | времени | ’ Выводим текущую системную |
Описание | номера дня(между 1 | данное выражение корректной |
CDate(date3) ‘Ф-я перевода | Toxa33rus | date3 = InputBox(«Введите |
= Format(a, «dd.mm.yyyy»)
date3 = «» 1, 2) mMU-GK, Номер месяца можно
: | часть), а во-вторых, | Оксана33 |
: Дорогие форумяне! помогите | Day(Date) | дату и время |
vbSunday | и 7) из | датой или временем. |
из типа String | : И пусть он | дату рождения:») If |
yaser | Then MsgBox «Дата | = AyNum(Mid(DateS, 4, |
: А, понятно. У | определить для даты, | SoftIce |
будет работать только | : но я не | с формулой |
Функция | Dim Today Today= | 1 |
указанной даты
Функция обрабатывает данные в тип Date хоть на иврите date3 = Format(date3,: Понимаю, что коряво, рождения не введена!» 3)) y = меня строго Jan/Feb/Mar. а стало быть, спасибо за подсказку с датами до поняла при чем
нужно высчитывать разницуDay
Функция Now
Now
ВоскресеньеВозвращаемое значение любого типа без If date1 < вводит свою дату «dd.mm.yyyy») then идёт но красоту лень Else date1 = Mid(DateS, 8, 4)Результаты выдаются в
и для месяца,вот так правильно 16.09.1989 (включительно) тут Double между текущим днемиспользуется для получения’ узнаем текущуюvbMondayВозвращает значение типа Variant(Integer), генерации ошибки. Но
date4 Then MsgBox
рождения, но пока твой кодПравда нужно наводить
Date ‘ф-я определения
DateT = DateSerial(y,
Excel или в
т.е.Dim x AsОксана33aequit и прошлым дня месяца из системную дату и2 содержащее целое число(между функция использует национальные
«Введенная дата больше
он правильно не
написать пользователю в
Sub Check_Date() Dim сегодняшней даты If
Функция WeekdayName
m, d)Функция AyNum текстовый файл.
nameMonth = «Май» String x =: ясно, спасибо за
, можно ли «d»если в ячейку даты. Отчет дат время ‘ ПреобразуемПонедельник 1 и 7),
системные установки дати
сегодняшней» ‘Стандартная ф-я, введет фиг ему каком формате вводить
a As String IsDate(date3) = False выглядит примерно вотЗамена Replace не MsgBox Month(«1 « MonthName(Month(Date), False) if подробный ответ) заменить DateInterval.Day? А1 загнать формулу начинается с 31 в строку иvbTuesday представляющее день недели и времени компьютера, которая выводит диалоговое а не ответ. дату! Dim nI As Then ‘ф-я проверки так: имеет смысла - & nameMonth) MsgBox Month(Date)=3 or Month(Date)=8MIRskyaequit TODAY(), а в
декабря 1899 года, выводим на форме3Параметры поэтому «правильная» дата,
окно c сообщением
Abu
Toxa33rus
Integer, nPoint As корректности ввода двты
Функция Day
Function AyNum(Ay As
тогда менять уже Format(«1 » & Then x=x &: Здравствуйте, прошу помочь: «d» это и А2 — Date, поэтому нулевым днем Print CStr(Today)ВторникФункция содержит именованные полученная на одном Else date2 =
: Проверяйте правильность ввода,
: А не проще Integer Dim date1 MsgBox «Дата введена String) As Integer
сразу на числовой nameMonth, «m») MsgBox «а» Else x=Left(x, с написанием кода. есть строковое значение то нет проблем…. будет 30 декабря,
Смотри такжеvbWednesday аргументы
компьютере, может оказаться
date1 — date4
Код If userDay
проверять чтоб введенная As Date Dim
работа с датами (VBA)
некорректно.» & Chr(13) If Ay =
формат. Да и DatePart(«m», «1 « len(x)-1) & «я» Необходимо в выделенной DateInterval.Day ActiveCell=А1-А2… все работает а при отрицательных
Date4Часть некорректной на другом MsgBox «Кол-во дней:
Like «##.##.;#» Then
дата была логически date2 As String
& «Формат даты
«Jan» Then AyNum
нет в этом & nameMonth)Вместо пробела
msgbox x
ячейке задать месяцhttps://msdn.microsoft.com/ru-ru/library/b5xbyt6f(v=vs.90).aspx
но если формулу значениях будет показана
КатегорияСредаОписание
компьютере » & date2
planetaexcel.ru
Формула с датой
Затем проверяйте является правильной? Не менее Dim date3 As
должен быть: день.месяц.год» = 1 Else нужды, я ведь
можно использовать .MU-GK в виде «Февраля,pashulka TODAY() внести в предыдущая дата
Функции дат иvbThursdayDateВозвращаемое значение
End If End ли введённая дата 3 лет и String Dim date4 Else date4 = If Ay = программно обрабатываю. / — ,: Тогда и я
Марта, Июня» Basic: [A1].Value = Now ActiveCell сразу, тоВозвращаемое значение времени
5Обязательный. Значение типа Variant,Возвращает значение типа Boolean, If End If датой не более 100 As Date a
CDate(date3) ‘Ф-я перевода «Feb» Then AyNumpashulkaMU-GK исправлю ошибку. Код не учил, пользуясь [A1].NumberFormat = «General»
уже не выходитВозвращает значение типа Variant(Integer)
WeekdayName(Weekday[, Abbreviate [, FirstDayOfWeek]Четверг
числовое выражение, строковое показывающее, может ли Else: MsgBox («введитеКод If IsDate(userDay) лет назад. = InputBox(«Введите дату из типа String = 2 Else
: Для Вас, может: Не получается из 2-го сообщения знаниями синтаксиса других MsgBox TypeName([A1].Value)Код ActiveCell.FormulaR1C1 = от 1 до ])vbFriday выражение или любая
значение выражения быть дату в формате Then И потом,yaser
рождения:») For nI в тип Date If Ay =
быть.Строка #3 даёт должен быть таким. языков написал с
Оксана33
«=TODAY()-» & Cells(2, 31, которое представляетНовая функция, которая появилась6
комбинация, позволяющая отобразить преобразовано в значение дд.мм.гггг») End If как сказал: Строки 14, 15 = 1 To
If date1 < «Mar» Then2. ЛибоА ну тогда ошибкуPrivate Sub CommandButton1_Click() горем пополам программу,: я там уже
1) если считать день месяца в версии VisualПятница дату.Допустимый диапазоно дат-01.01.0000 даты. Функция
End SubToxa33rus
MsgBox («Некорректно введена Len(a) If Mid(a, date4 Then MsgBox русифицировать имена месяцев всё ясно …Run-time Error ’13’: Dim x As
но она не была) но если так Код ActiveCell.FormulaR1C1Параметры Basic 6.0vbSaturday до 31.12.9999.Если аргументIsDatecooler_92, сверяйте попадает ли дата рождения!»)Строку
nI, 1) = «Введенная дата больше и читать даты ведь программно заменитьType Mismatch
String x = работает. Что не в формуле меняешь = «=TODAY()-» &DateОбязательный аргумент, представляющийФункция7 содержит зарезервированное слововозвращает
: Пасибо!!!)))))) Но если она в диапазонIf date4 <
CyberForum.ru
Формирование даты (месяца) VBA
«.» Then nPoint сегодняшней» ‘Стандартная ф-я, в текстовом формате. «нельзя» …Собственно, задача такая MonthName(Month(Date), False) x так? на DateInterval.Day то 3 , то собой любое выражение,WeekdayNameСуббота Null, то функциейTrue
честно, когда я ((сейчас — 100 Date Then MsgBox = nPoint + которая выводит диалоговое При этом:Нет, ну а — некая Утилита = MonthName(8, False)Private Sub CommandButton1_Click() не выходит тоже считает, но оцениваемую как дату.получает полное илиПример
возвращает Null, если выражение принадлежит свой код редактировал, лет) < userDay («!!!!!!!»)заменить на 1 Next If окно c сообщением2а Менять на смысл замены, если выдает результаты работы If (Right(x, 1) Dim x Asя просто не саму ячейку с
Допустимый диапазон дат:от сокращенное название дня’ Используем функцию для
Firstdayofweek к типу даты то вылетала ошибка.. < (сейчас -If date4 > nPoint <> 2 Else date2 = листе встроенными средствами не может прочесть
Программы. = «ь») Or
String Dim Lenx пойму как Double формулой не хочет 01.01.0000 до 31.12.9999
недели по его
‘ определения дняНеобязательный. Константа, указывающая первый или допускает преобразованиеDate 3 года). Всего Date Then MsgBox Then MsgBox («!!!!!!!») date1 — date4
и после этого напрямую?Линейку дат выдает (Right(x, 1) = As Integer f1
это делает сaequitПример номеру недели, соответствующего ‘ день недели. Если к допустимому значениюDate$ три вложенных условия! («Дата рождения не If Len(a) <> MsgBox «Кол-во дней: считать линейку датЗачем мне менять в виде:
«й») Then Mid(x, = Month(Date) x датой, я думала: Public Function RaznitcaDat(a,’ Извлекаем день месяцаВозвращаемое значение
указанной дате Dim этот аргумент опущен,
даты; в противномФункцияP.S. ИМХО, можно
может быть в 10 And Len(a) » & date22b Считать линейку
Feb01 Jan 2007
Len(x)) = «я» = MonthName(f1, False)
что он предназначен
b) RaznitcaDat =
из строки PrintВозвращает строку, содержащее полное
MyDate MyDate = считается, что неделя случае возвращаетсяDate цифру 100 увеличить, будущем!»)P.S. Для правильности <> 8 Then
End If End дат в англоформатена01 Feb 2007 Else x = Lenx = Len(x) для чисел с DateDiff(«d», a, b)
Day(«27 Июля 1966») или сокращенное название «Июль 27, 1966″ начинается с воскресеньяFalseпозволяет получить текущую чтоб не выглядеть работы программы, если MsgBox («!!!!!!!») date4
If End If и менять названия
Фев…..
x & «а»
If (x.chars(Lenx) =
запятыми End FunctionСмотри также дня недели
‘ Присваиваем датуНиже перечислены допустимые значения
. В Microsoft Windows
системную дату по
совсем пессимистом.
введена неправильная дата, = a If
End SubПроблема вот в элементах массива.(раль), если можно сразуНадо преобразовать к End If ActiveCell «Гј») Or (x.chars(Lenx)
pashulkapashulkaMonth, WeekDay, YearПараметры Print Weekday(MyDate,vbMonday) ‘
аргумента FirstDayOfWeek: допустимыми являются даты системному календарю компьютераanalyst после MsgBox выйти date4 < Date в чем. Если2a искажает исходные привести к числовому
нормальному типу Date = x ‘MsgBox = «Г©») Then: Ещё раз повторю,: Разница между текущимКатегорияWeekdayОбязательный аргумент типа возвращается 3, посколькуКонстанта в диапазоне отВозвращаемое значение: Не понимаю( Этот из программы: Exit Then MsgBox («!!!!!!!»)
пользователь введет к данные, 2b вообще формату, чтобы был
Делаю это тупым x End Sub x.chars(Lenx) = «Гї»
дата это и днем и прошлым,Функции дат и Long, определяющего день ‘ MyDate соответствуетЗначение 1 января 100 г.Date
код не работает? Sub End Sub
примеру 1.125, то какой-то сомнительный. формат Date в выделением дня, месяца,
pashulka Else: x.chars(Lenx + есть число, например, всегда = 1
времени недели(1-7). Допускается использование средеОписание до 31 декабрявозвращает значение типаOption Explicit SubЕсли через форму,cooler_92 программа это правильноРезюмируя — считать виде #01.02.2012#…В русс. года и заменой: 1) = «Г*»
17.03.2017 12:00 это день (без учётаivan-msk77 констант: vbSunday=1Воскресенье(по умолчанию)КатегорияvbUseSystem 9999 г.; другие операционные Variant субтитпа Date, date_rozhd() ‘Программа, считающая есть очень удобный: тож самое.. сам считает датой, но даты напрямую нельзя.Искажений
версии «01 Jan имени месяца егоSoftIce ActiveCell.FormulaR1C1 = x 42811,5
часов, минут и: Добрый день! vbMonday=2Понедельник vbTuesday=3Вторник vbWednesday=4Среда
Функции дат и0 системы могут поддерживать
Date$ кол-во дней, прошедших элемент управления DTPicker попробуй.. введи в не правильно по у себя не 2007″ это просто номера простым перебором, 6 строка тоже
End SubMsgBox CDate(42811.5) MsgBox секунд)Проблема состоит в vbThursday=5Четверг vbFriday=6Пятница vbSaturdayСуббота времениИспользуется значение NLS API другие диапазоны датвозвращает данные типа со дня рождения, (комбобокс с календарём) дату рождения 1.125 условию задачи, так наблюдаю
текст, а вот типа: как-то не оченьMIRsky
CDbl(#3/17/2017 12:00:00 PM#)Если же в следующем, есть ячейка AbbreviateНеобязательный аргумент -
NowvbSundayПараметры
String, содержащее текущую до сегодняшней даты — в нём или подобное.
CyberForum.ru
как запись даты
Visual Basic for Applications or VBA is a scripting language that enables automation of tasks in the Microsoft Office suite of products. It’s also an event driven programming language which contains a lot of useful functions. It is leveraged by programmers to create effective and efficient macros. Read more about what VBA can help you do, in this tutorial. Today, we are going to take it a step ahead in this intermediate tutorial and take a look at a vital date function namely CDate(). This function is used to convert the strings or numbers into date format.
We assume that you have working knowledge of MS Excel and VBA. If you are new to this concept, we suggest you to go through our introductory course to Excel VBA.
Date Systems in Microsoft Excel
Date and time functions are frequently used in MS Excel and VBA. Therefore, it’s important that you know the basic concepts of date and time functions if you want to manipulate and use them in your programs. Please note that MS Excel stores date as sequential numbers known as serial values. MS Excel considers time to be a part of a day and it is stored as decimal fractions. Dates and times can be added and subtracted. Therefore they can be included in many calculations and VBA programs. That is you can compare two dates or subtract one date from another. You can learn more about this in our Excel course.
There are two date systems in MS Excel- the 1900 and 1904. By default Microsoft Excel for Windows is 1900 and for Macintosh is 1904. You can change the date system if you want by clicking on Tools menu. Then click “Options” and choose “Calculation tab.” In Calculation tab, select or clear the 1904 date system checkbox.
You should also be aware that, the date system will be changed automatically when you open an Excel worksheet from another platform. That is when you open a worksheet created in Excel for Macintosh, while working in Excel for Windows, the system will automatically select the 1904 date system.
The following table shows the first and last date for each date system.
Date system |
First date |
Last date |
1900 | January 1, 1900
(serial value 1) |
December 31, 9999
(serial value 2958465) |
1904 | January 2, 1904
(serial value 1) |
December 31, 9999
(serial value 2957003) |
How Microsoft Excel Interprets Two-Digit Years
If you are using Microsoft Windows 2000 or later versions, the regional options in Control Panel controls how Excel interprets two-digit years. If you want MS Excel to assume the year values as you intended it to be, enter the year as a four digit value. The reason is, Excel will not interpret century.
For example instead of entering “00” for the year 2000, you should enter the all the four digits “2000”.
How MS Excel Interprets Year Portion of the Date Entered as a String or Text
- 00 through 29– When you enter the date as 3/24/14, Excel assumes the date is March 24, 2014.
- 30 through 99– Here MS Excel interpret the two-digit year values 30 through 99 as the years 1930 through 1999. That is if you enter the date in the cell as 3/24/94, Excel will interpret the date as March 24, 1994.
Microsoft Excel VBA has many date and time functions.A few of the important ones being Date(), Day(), Now(), DateAdd(), TimeSerial() and DateSerial(). It also has equal number of data type conversion functions. An important data type conversion function that is frequently used in VBA programming is CDate(). To learn more about Excel VBA, you can check out this course.
What is CDate() Function
CDate identifies date and time literals (along with some numbers that fall inside the range of acceptable dates) and converts them to the date date type. If there a fractional part of the number it is converted to a time of day starting from midnight.
The CDate() function identifies date formats depending on the locale setting of your system. The correct order of day, month and year will not be realized by this function if it is entered in a format other than one of the recognized date settings. If the year is not specified in the date, then the current year is used. Also note that a long date format is not recognized if it also contains the day-of-the-week string.
VBA CDate()converts a value of any data type, string or integer, into a date type. The syntax of this date function looks like this
CDate(expression)
Here the argument expression is mandatory. When you enter a valid date and time expression this function converts it into type Date. Let’s make this concept clear using a simple example.
Example 1:
Function FnCDate () Dim strDate_1 Dim intDate_1 Dim strTime_1 strDate_1 = "January 24, 2014" intDate_1 = #12/03/2014# strTime_1 = "15:30:15 PM" MsgBoxCDate(strDate_1) MsgBoxCDate(intDate_1) MsgBoxCDate(strTime_1) End Function
In the program, three variables strDate_1, IntDate_1 and strTime_1 are declared. These variables are assigned values “January 24, 2014”, #12/03/2014# and “15:30:15 PM” respectively. The variables are passed through the CDate() function. The output is as follows.
For the MsgBoxCDate(strDate_1) the output displayed is “24-01-2014.”
For the MsgBoxCDate(intDate_1) the output displayed is “03-12-2014.”
For the MsgBoxCDate(strTime_1) the output displayed is “15:30:15.”
How to Convert Text String to Date in MS Excel VBA Using CDate() Function
When you are working with data that contains dates, you need to have a clear idea about how to use the date data type. From MS Excel versions 2000 onwards, you have VBA to automate tasks that you would otherwise perform manually. This is normally done with the help of macros (you can learn more about VBA macros in this course). VBA CDate()function is one of the most commonly used date functions to convert a date stored in a “String” variable into a date data type. The example given below will help make the concept clear.
Open your MS Excel and enter the date in cell A1 in the following format:
March 24, 2014
To open the “Visual Basic Editor”, click the “Developer” tab and then “Visual Basic”. In the editor click “Insert” menu and click “Module.” This will insert a new code module. Here is where you write the code.
Example 2:
Sub converTextToDate() Dim Current_DateAs Date Dim Date_StringAs String Range("A1").Select Date_String = Range("A1").Value Current_Date = CDate(date_String) Range("C1").Select Range("C1").Value = Current_Date End Sub
Let’s take a closer look at the program.
In this program, two variables, “Current_Date” and “Date_String” have been declared as type Date and String respectively. Range(“A1”).Select will get the date entered in the cell A1.Date_String = Range(“A1”).Valuestores in the “string” variable Date_String.Current_Date=CDate(date_string) converts the string into Date data type and stores it in the variable “Current_Date”.The last two steps will move the cursor to cell C1 and display the date in column C1 when the procedure is executed.
In the next program, we take a look at how to compare two dates in VBA using CDate() function.
Note that to compare dates in VBA, you need to have dates stored in variables of type “Date”. However, if the dates that you are comparing are entered as numbers or string, you need to convert them using CDate() function. “If statement” is used to compare the dates. The following example helps make the concept clear.
Example 3:
Public Sub CompareDates() Dim d1, d2 As Date d1 = CDate("24/1/2013") d2 = CDate("24/1/2014") If (d1 < d2) Then Debug.Print "Date 1 occurs earlier than date 2." If (d1 > d2) Then Debug.Print "Date 1 occurs later than date 2." If (d1 = d2) Then Debug.Print "Date 1 is the same as date 2." End Sub
If you happen to work regularly on data which contains date columns, it is always wise to create a macro. Call that Macro whenever you want to delete rows in your table. Here is an example which deletes the dates prior to “12/30/2011.”
Example 4:
Sub DeleteRowbyDate() Dim x As Long For x = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row Debug.Print Cells(x, "B").Value If CDate(Cells(x, "B")) <CDate("12/29/2011") Then Cells(i, "B").EntireRow.delete End If Next i End Sub
In this example all rows with dates less than “12/29/2011” will be deleted.For example, If you want to delete all the rows prior to December 29 2012 from your table, then you will have to change the line to:
If CDate(Cells(x, "B")) <CDate("12/29/12")
We hope this gives you a good understanding of the wide range of options available to you while working with dates in Excel and with VBA. As usual, the best way to get familiar with these formula, is to try them out for yourself. If you’d like, Mr Excel has a good course with plenty of examples to help you on your way!
И так, в этой по своей природе унылой публикации я кратко рассмотрю vba функции даты и времени, которые позволяют получить или установить параметры даты и времени, задать таймер выполнения заданного блока кода или сценария в целом. Также в конце статьи будет затронута функция vba языка format. Которая отвечает за форматирование данных.
Функции VBA даты и времени
Date() – позволяет получить значение текущей даты, установленной в системе.
Time() – вернет установленное в системе время
Now() – комбинированная функция, так как она позволяет получить значение системной даты и времени.
DateAdd(интервал, число, дата) – позволяет прибавить к заданной дате (параметр “дата”) указанное количество лет, кварталов, месяцев или секунд. На выходе мы получим следующее значение: дата + (число * интервал).
DateDiff(интервал, дата, дата2) – позволяет получить разницу между заданными датами, например. В годах, месяцах и так далее, разница определяется параметром “интервал”.
DatePart(интервал, дата) – позволяет получить заданную часть даты, например, только значение года, месяца или дня недели. Результат возврата регулируется параметром “интервал”.
DateSerial(год, месяц, день) – данная функция vba принимает три числовые значения, по которым возвращается дата.
DateValue(строка) – аналог предыдущей функции, но тут в качестве параметра мы передаем не числа. А строковое значение, на основе которого будет возвращаться дата, vba работа с датами.
Day(дата) – позволяет получить значение текущего дня (если отсутствует параметр “дата”) или для заданной даты.
Year(дата) – позволяет получить значение текущего года (если отсутствует параметр “дата”) или для заданной даты.
Month(дата) – позволяет получить значение текущего месяца (если отсутствует параметр “дата”) или для заданной даты.
Weekday(дата) – позволяет получить значение текущей недели (если отсутствует параметр “дата”) или для заданной даты.
Hour(время) – позволяет получить текущее значение часов (если отсутствует параметр “время”) или для заданного времени, vba дата и время.
Minute(время) – позволяет получить текущее значение минут (если отсутствует параметр “время”) или для заданного времени.
Second(время) – позволяет получить текущее значение секунд (если отсутствует параметр “время”) или для заданного времени.
Timer() – удобная функция для определения промежутка времени, ушедшего на выполнение заданного блока кода. Сама функция возвращает целое количество секунд, которые прошли начиная с полуночи.
TimeSerial(часы, минуты, секунды) – позволяет получить время, заданное тремя параметрами
TimeValue(строка) – работает аналогично предыдущей функции, но для получения времени, передается не целое значение, а строковое.
MonthName(числовое значение) – VBA функция позволяет получить название месяца, в качестве параметра указываем номер месяца.
WeekDay(дата) — задает возвращает имя месяца словами по его номеру. Возвращаемое значение зависит от региональных настроек. Если они русские, то вернется русское название месяца.
Помимо указанных выше vba функций даты и времени, можно использовать и такие вариации:
Date (дата) – позволяет задать системную дату
Time (время) – позволяет задать системное время.
В приведенных выше функциях даты и времени vba языка используется параметр “интервал”, который может принимать следующие значения:
- w – недели
- q – квартал
- d – месяца
- y – года
VBA функции форматирование данных
Для форматирования данных в языке VBA используется функция Format, которая позволяет сформировать данные любого встроенного типа, используя заданный образец. Общий синтаксис функции format:
Format(Выражение, [“формат”, [первый день недели, [первая неделя года]]]) – тут параметр “выражение” является любым допустимым значением. Формат – необязательный параметр, который задает формат данных, должен заключаться в кавычки. Остальные два параметра также являются необязательными, и задают день недели, который нужно считать первым, и первую неделю года.
Параметр формат может принимать следующие значения:
- General Number – числовое значение без выделения разрядов тысяч, например, 12150,2003
- Currency – денежный формат, выделяются тысячные разряды и два знака после запятой, например, 255,33р.
- Fixed – числовое значение без выделения разрядов тысяч и двумя знаками после запятой, например, 22439,12.
- Standart – числовое значение, которое умножается на 100, при этом, остаются два знака после запятой и символ процента, например, 55,63%.
- Scientific – числовой формат для научных вычисление, например, 5,23Е+03
- Yes/No – данный параметр определяет, что функция вернет “Да” если форматированное выражение содержит строку Нет, или ненулевое значение и “Нет” в противном случае.
- True/False – аналог предыдущего параметра, но для строк “Истина” и “Ложь”.
- On/Off – для строк вида “Вкл” и “Выкл”.
- General Date – форматирование выражения в соответствии с установленными в системе стандартами даты и времени, например, 10.11.02 12:25:50
- Long Date – вывод полного формата даты, в зависимости от установок в системе, например, 10 октября 2013 г, vba функции даты.
- Medium Date – средний формат дат, например, 10-Окт-13.
- Short Date – короткий вывод формата даты, например, 10.10.13.
- Long Time – вывод в формате времени (часы, минуты, секунды), например, 12:20:40.
- Medium Time – 12 часовой формат времени (часы, минуты), например, 05:30.
- Short Time — 24 часовой формат времени (часы, минуты), например, 17:30.
3.9.5 Функции для работы с датой и временем
Функции VBA для работы с датой/временем, функции Date(), Time(), DateAdd(), DateDiff(), DatePart(), DateSerial(), Timer()
Без функций даты и времени обычно обойтись просто невозможно. Самые важные функции VBA для работы с датой/временем:
- Date() — возвращает текущую системную дату. Установить ее можно при помощи одноименного оператора, например, так:
- Time() возвращает текущее системное время, а Now() — дату и время вместе.
- DateAdd() — возможность добавить к дате указанное количество лет, кварталов, месяцев и так далее — вплоть до секунд.
- DateDiff() — возможность получить разницу между датами (опять таки в единицах от лет до секунд).
- DatePart() — очень важная функция, которая возвращает указанную вами часть даты (например, только год, только месяц или только день недели).
- DateSerial() — возможность создать значение даты на основе передаваемых символьных значений. То же самое делает DateValue(), отличия — в формате принимаемых значений. Аналогичным образом (для времени) работают TimeSerial() и TimeValue().
- Day() (а также Year(), Month(), Weekday(), Hour(), Minute(), Second()) — специализированные заменители функции DatePart(), которые возвращают нужную вам часть даты.
- MonthName() — возвращает имя месяца словами по его номеру. Возвращаемое значение зависит от региональных настроек. Если они русские, то вернется русское название месяца.
- Timer() — возвращает количество секунд, прошедших с полуночи.
Если нужно получить дополнительные возможности работы с датой/временем, то в вашем распоряжении объектная модель Outlook. Например, при помощи нее можно получить информацию о праздниках и рабочих/нерабочих днях большинства стран мира. Подробнее — в соответствующем разделе.
Excel vba работа с датами
На этом шаге мы перечислим функции, используемые при работе с датой и временем.
В VBA имеются следующие функции времени и даты.
-
Date — возвращает значение типа Variant (Date), содержащее текущую системную дату.
Time — возвращает значение типа Variant (Date), содержащее текущее время по системным часам компьютера.
Now — возвращает значение типа Variant (Date), содержащее текущую дату и время по системному календарю и часам компьютера.
Hour, Minute, Second — возвращают значения типа Variant (Integer), содержащее целое число, которое представляет часы, минуты и секунды в значении времени. Синтаксис:
- время — значение времени или выражение, его определяющее.
В следующем примере переменной Час присваивается 16, Минута — 35 и Секунда — 17:
- дата — значение даты или выражение, его определяющее.
В следующем примере переменной День присваивается 17, Месяц — May, Год — 1960:
- date — выражение, представляющее дату;
- firstdayofweek — указывает первый день недели. Если этот аргумент опущен, подразумевается vbSunday (воскресенье). Допустимы также значения: vbMonday (понедельник), vbTuesday (вторник), vbWednesday (среда), vbThursday (четверг), vbFriday (пятница) и vbSaturday (суббота).
В следующем примере переменной ДеньНедели присваивается 3, т. е. вторник:
DateDiff — возвращает значение типа Variant (Long), указывающее число временных интервалов между двумя датами. Синтаксис:
В следующем примере переменной ПрожилМесяцевСРождения присваивается 642:
В следующем примере переменной День присваивается 03/17/63:
В данном примере переменной Время присваивается 16:35:17:
В следующем примере переменной Дата присваивается 05/17/60:
На следующем шаге мы рассмотрим функции выбора.
Урок 15 по VBA — функции работы с датой и временем
И так, в этой по своей природе унылой публикации я кратко рассмотрю vba функции даты и времени, которые позволяют получить или установить параметры даты и времени, задать таймер выполнения заданного блока кода или сценария в целом. Также в конце статьи будет затронута функция vba языка format. Которая отвечает за форматирование данных.
Функции VBA даты и времени
Date () – позволяет получить значение текущей даты, установленной в системе.
Time () – вернет установленное в системе время
Now () – комбинированная функция, так как она позволяет получить значение системной даты и времени.
DateAdd (интервал, число, дата) – позволяет прибавить к заданной дате (параметр “дата”) указанное количество лет, кварталов, месяцев или секунд. На выходе мы получим следующее значение: дата + (число * интервал).
DateDiff (интервал, дата, дата2) – позволяет получить разницу между заданными датами, например. В годах, месяцах и так далее, разница определяется параметром “интервал”.
DatePart (интервал, дата) – позволяет получить заданную часть даты, например, только значение года, месяца или дня недели. Результат возврата регулируется параметром “интервал”.
DateSerial (год, месяц, день) – данная функция vba принимает три числовые значения, по которым возвращается дата.
DateValue (строка) – аналог предыдущей функции, но тут в качестве параметра мы передаем не числа. А строковое значение, на основе которого будет возвращаться дата, vba работа с датами.
Day (дата) – позволяет получить значение текущего дня (если отсутствует параметр “дата”) или для заданной даты.
Year (дата) – позволяет получить значение текущего года (если отсутствует параметр “дата”) или для заданной даты.
Month (дата) – позволяет получить значение текущего месяца (если отсутствует параметр “дата”) или для заданной даты.
Weekday (дата) – позволяет получить значение текущей недели (если отсутствует параметр “дата”) или для заданной даты.
Hour (время) – позволяет получить текущее значение часов (если отсутствует параметр “время”) или для заданного времени, vba дата и время.
Minute (время) – позволяет получить текущее значение минут (если отсутствует параметр “время”) или для заданного времени.
Second (время) – позволяет получить текущее значение секунд (если отсутствует параметр “время”) или для заданного времени.
Timer () – удобная функция для определения промежутка времени, ушедшего на выполнение заданного блока кода. Сама функция возвращает целое количество секунд, которые прошли начиная с полуночи.
TimeSerial (часы, минуты, секунды) – позволяет получить время, заданное тремя параметрами
TimeValue (строка) – работает аналогично предыдущей функции, но для получения времени, передается не целое значение, а строковое.
MonthName (числовое значение) – VBA функция позволяет получить название месяца, в качестве параметра указываем номер месяца.
WeekDay (дата) — задает возвращает имя месяца словами по его номеру. Возвращаемое значение зависит от региональных настроек. Если они русские, то вернется русское название месяца.
Помимо указанных выше vba функций даты и времени, можно использовать и такие вариации:
Date (дата) – позволяет задать системную дату
Time (время) – позволяет задать системное время.
В приведенных выше функциях даты и времени vba языка используется параметр “интервал”, который может принимать следующие значения:
VBA функции форматирование данных
Для форматирования данных в языке VBA используется функция Format , которая позволяет сформировать данные любого встроенного типа, используя заданный образец. Общий синтаксис функции format:
Format (Выражение, [“формат”, [первый день недели, [первая неделя года]]]) – тут параметр “выражение” является любым допустимым значением. Формат – необязательный параметр, который задает формат данных, должен заключаться в кавычки. Остальные два параметра также являются необязательными, и задают день недели, который нужно считать первым, и первую неделю года.
Параметр формат может принимать следующие значения:
- General Number – числовое значение без выделения разрядов тысяч, например, 12150,2003
- Currency – денежный формат, выделяются тысячные разряды и два знака после запятой, например, 255,33р.
- Fixed – числовое значение без выделения разрядов тысяч и двумя знаками после запятой, например, 22439,12.
- Standart – числовое значение, которое умножается на 100, при этом, остаются два знака после запятой и символ процента, например, 55,63%.
- Scientific – числовой формат для научных вычисление, например, 5,23Е+03
- Yes/No – данный параметр определяет, что функция вернет “Да” если форматированное выражение содержит строку Нет, или ненулевое значение и “Нет” в противном случае.
- True/False – аналог предыдущего параметра, но для строк “Истина” и “Ложь”.
- On/Off – для строк вида “Вкл” и “Выкл”.
- General Date – форматирование выражения в соответствии с установленными в системе стандартами даты и времени, например, 10.11.02 12:25:50
- Long Date – вывод полного формата даты, в зависимости от установок в системе, например, 10 октября 2013 г, vba функции даты.
- Medium Date – средний формат дат, например, 10-Окт-13.
- Short Date – короткий вывод формата даты, например, 10.10.13.
- Long Time – вывод в формате времени (часы, минуты, секунды), например, 12:20:40.
- Medium Time – 12 часовой формат времени (часы, минуты), например, 05:30.
- Short Time — 24 часовой формат времени (часы, минуты), например, 17:30.
Спасибо за внимание. Автор блога Владимир Баталий
Функции VBA для работы с датой/временем
-
Date () — возвращает текущую системную дату. Установить ее можно при помощи одноименного оператора, например, так:
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)
MsgBox DateSerial(2012, 6, 7)
Аналогичным образом (для времени) работают и TimeValue ()
Excel vba работа с датами
Работа с датой
Смотрите также «01 Янв 2007″PureBasic if mS смотрится: Private Sub CommandButton1_Click()Оксана33
указанной ячейке введён A1=»21.01.2012″, как прибавить флаг типа Boolean,Функция
1
ExpressionОбязательный аргумент - системную дату. Формат Dim date1 As не получится ввестибольше похоже на не стандартна. Вдругcooler_92 это совсем другое = «Jan» thenкстати можно еще Dim x As: я не пойму. не прошлый день, к нему календарный указывающий на видNowВоскресенье (по умолчанию) выражение типа Variant, даты, возвращаемый функцией, Date Dim date2 дату в неправильном правду.. только я это пользователь забыл: Привет Эт снова дело. mI=1 if mS так String x = cdbl для того, то ввести формулу, месяц(2,3,4,5. ) по средствам возвращаемого дня недели.позволяет быстро узнатьvbMonday содержащее выражение даты определяется национальными системными As String Dim формате. что то не точку поставить, а я.. по сутиMsgBox CDate(«01 Jan = «Feb» thenDim x As MonthName(Month(Date), False) If чтобы преобразовать в возвращающую их разницу, VBA и сравнить По умолчанию установлен текущую дату и2 или строковое выражение, установками date3 As Stringanalyst сообразил, где какое программа такая плохая программа написанна, но 2007″) MsgBox CDate(«01 mI=2. String x=Choose(Month(Date),»Января»,»Февраля»,»Марта». «Декабря») msgbox (Right(x, 1) = число? я думала, можно, например, так с сегодняшним числом? в False, что время по системномуПонедельник
распознаваемое как значениеПараметры Dim date4 As
: Эта запись вообще сообщение должно вываливаться.. посчитала ему, и в ней один Янв 2007″)Кроме того,pashulka x «ь») Or (Right(x, что он для :Формулами это сделать
означает вывод полного календарю и часамvbTuesday даты или времени
Функция не имеет аргументов Date date3 = касалась кода, который напиши плз вывела результат почти косяк. если внимательно прочитать:MU-GK 1) = «й») другого служитActiveCell = «=TODAY()-« вообще не проблема, дня недели FirstDayOfWeekНеобязательный компьютера. Чтобы получить3ПримерПример InputBox(«Введите дату рождения:») написан до неё.analyst 700000 тысяч дней..Надо написать программу, моё сообщение, тоMU-GK: Смотрится. Mid в Then Mid(x, Len(x))тогда почему не
& CDbl(Cells(2, 1))или но по ячейкам аргумент — числовая только системную датуВторник
’ Используем функцию IsDate’ Выводим текущую системную If date3 = Читайте внимательнее!: Да согласен. Я Ну эт размышления
определяющую сколько дней там говорится, что, Все три вышеперечисленные данном случае не = «я» Else CLng или CSng,ActiveCell = «=TODAY()-« бить лишнюю инфу константа, указывающая, какой без времени, используйтеvbWednesday ‘ для проверки, дату в заголовке Format(date3, «dd.mm.yyyy») ThenА на счёт так подумал и моего препода. Короч, прошло со дня англ.месяц можно заменить
функции, локально-зависимые. поэтому функция, а оператор.
Mid(x, Len(x)+1) = что для меня & Cells(2, 1).Value2 не хочется вообще. день недели считать функцию Date4 является ли год
формы Dim Today ‘Стандартная ф-я, которая календаря согласен. решил, что нафига помогите с этим вашего рождения. на русск.аналог у нас, названия
pashulka «а» End If
более логично быОксана33
Спасибо. первым: vbUseSystem=0Используется системнаяПримечание: Не забывайте,
Среда высокосным ‘ Для Today= выводит диалоговое окноcooler_92 делать так, если разобраться.. Знаю, чтоВот текст программыили его номер месяцев должны указываться
: о как ActiveCell = x звучало или даже:Юрий М информация vbFirstJan1=1Неделя, содержащая что пользователь можетvbThursday
этого проверяем, существуетDate с сообщением и: Про форму я можно создать форму,
нужно ф-ей FormatOption Explicit Sub
Да это понятно, что как Январь/Января илини разу не End Sub CInt, но толькоpashulka
: Sub PlusOneMonth() 1 января vbFirstFourDays=2Первая самостоятельно устанавливать системное
5 ли 29 февраля’ узнаем текущую
полем ввода If в курсе, но а в ней пользоваться, но не date_rozhd() ‘Программа, считающая
на территории РФ Янв/Янва и т.п. встречалsnipe с ним какая, объясни пожалуйста почемуDim x неделя, содержащая как
время и датуЧетверг
Dim MyYear is системную дату ‘ date3 = «» работать можно только три комбобокса, в
знаю как.. кол-во дней, прошедших действительны только Январь/Февраль,По поводу утилитыпойду ликбезом заниматься: Благодарю, вы мне то засада - CDbl — онx = «21.01.2012» минимум 4 дня на своем компьютере,
vbFriday String If Преобразуем в строку Then MsgBox «Дата
в модуле, без которых можно загрузитьanalyst
со дня рождения, а не Jan/Feb. — в Вашемспасибо за наводку очень помогли! в экселе преобразовует, конвертирует его вMsgBox DateSerial(Year(x), Month(x) нового года vbFirstFullWeek=3Первая поэтому эти значения6IsDate и выводим в рождения не введена!» использования визуальных компонентов. только то что: Как на счёт до сегодняшней датыИменно это я посте нет информации,MU-GKsnipe а вот в число, которое Эксель + 1, Day(x)) полная неделя года могут не иметьПятница(«02/29/» & myYear) Then заголовке формы Form1.Caption Else date1 =analyst нужно и не такого варианта? Dim date1 As и имел в куда выдаётся такая: Индуцировано:: Dim x As vba — нет интерпретирует как дату?End SubПример ничего общего сvbSaturday MsgBox myYear & = CStr(Today) Date ‘ф-я определения: Я же написал надо будет заморачиватьсяOption Explicit Sub
Date Dim date2 виду, что невозможно информация. если этоЕсть функция String x =
Функция Date
Казанский’ Выводим сокращенное название реальной датой и7 «- высокосный год»
сегодняшней даты If вариант без формы. на счёт всяких date_rozhd() Dim a As String Dim напрямую прочитать «01 ячейки рабочего листаMonthname MonthName(Month(Date), False) if: В Excel нет
седьмого месяца Form1.Caption временем!Суббота Else MsgBox myYearNow IsDate(date3) = Falsecooler_92 там условий по As String Dim date3 As String Jan 2012″. (Excel), то можно , возвращающая имя месяца
Month(Date)=3 or Month(Date)=8
стандартной функции рабочего
это всего лишьВторой аргумент -
Функция IsDate
Возвращаемое значениеВозвращаемые значения & «- невысокосныйКатегория Then ‘ф-я проверки: не вариант..))) не поводу ввода некоректных date1 As Date Dim date4 AsПоскольку прочитать надо, просто заменить англ. по номеру, а Then x=x & листа CInt, а количество(читайте число) дней, число м-цев.
Возвращает значение типа Variant(Date),Ниже перечислены значения, возвращаемые год» End IfФункции дат и корректности ввода двты работает. данных. Пользователь сможет Dim date2 As Date date3 = то здесь два месяц на наш вот функции, возвращающей «а» Else Left(x, есть Int(Целое) прошедших с 1ivan-msk77(7, True) содержащее текущую дату функциейКатегория времени MsgBox «Дата введенаПользователю конечно можно
выбрать только то, String Dim date3 InputBox(«Введите дату рождения:») выхода: отечественный или его ноимер месяца по len(x)-1) & «я»А что касается
января 1900 года: пошел пробовать, благодарюСмотри также и времяWeekdayФункции дат иIsDate(Expression) некорректно.» & Chr(13) написать, но кто что есть на As String Dim ‘Стандартная ф-я, которая1. Менять сразу номер. а для имени кажется нет.
msgbox x
VB(A), то функция (или 2 января
Функция Weekday
& «Формат даты сказал, что он самом деле! date4 As Date
выводит диалоговое окно
к числовому формату, этого можно использовать,
Автоматическая вставка текущей даты в ячейку при вводе данных
Предположим, у нас имеется таблица заказов, куда пользователь вводит номер заказа, имя клиента, сумму и т.д. Необходимо сделать так, чтобы при внесении номера заказа в столбец А — в столбце B напротив введенного заказа автоматически появлялись дата и время его занесения:
Чтобы реализовать такой ввод даты, нам потребуется простой макрос, который надо добавить в модуль рабочего листа. Для этого щелкните правой кнопкой мыши по ярлычку листа с таблицей и выберите в контекстном меню команду Исходный текст (View code).
В открывшееся окно редактора Visual Basic скопируйте этот текст этого макроса:
Private Sub Worksheet_Change(ByVal Target As Range) For Each cell In Target 'проходим по всем измененным ячейкам If Not Intersect(cell, Range("A2:A100")) Is Nothing Then 'если изменененная ячейка попадает в диапазон A2:A100 With cell.Offset(0, 1) 'вводим в соседнюю справа ячейку дату .Value = Now .EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке End With End If Next cell End Sub
При необходимости измените «чувствительный» диапазон «А2:А100» на свой собственный. Если необходимо вставлять дату не в соседний столбец, а правее — подставьте в оператор Offset(0,1) вместо 1 число побольше.
Закройте редактор Visual Basic и попробуйте ввести что-нибудь в диапазон А2:А100. В соседней ячейке тут же появится текущая дата-время!
Ссылки по теме
- Как сделать выпадающий календарь для быстрого ввода любой даты мышью в любую ячейку.
- Как Excel работает с датами
- Что такое макрос, как он работает, куда копировать текст макроса, как запустить макрос?