Vba excel сравнение дат

Обновлено: 22.01.2025

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

Функция возвращает текущую системную дату.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете функцию, она производит следующий вывод.

The Value of a : 19/07/2014

Функция, которая возвращает текущую системную дату.

CDate

Функция преобразует действительное выражение даты и времени для ввода даты.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете функцию, она производит следующий вывод.

The Value of a : 1/01/2020
The Value of b : 31/12/2050

Функция, которая преобразует данный вход в дату.

DateAdd

Функция, которая возвращает дату, к которой был добавлен указанный временной интервал.

Синтаксис

Параметр/Описание

Интервал - требуемый параметр. Он может принимать следующие значения.
d - день года
м - месяц года
y - год года
yyyy - year
w - день недели
ww - неделя
q - квартал
час - час
м - минута
s - секунда
Номер - требуемый параметр. Он может принимать как положительные, так и отрицательные параметры.
Дата - требуемый параметр. Вариант или литерал, представляющий дату добавления интервала.

пример

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1 : 27/06/1895
Line 2 : 27/09/1894
Line 3 : 27/07/1894
Line 4 : 28/06/1894
Line 5 : 28/06/1894
Line 6 : 28/06/1894
Line 7 : 4/07/1894
Line 8 : 1/01/2013 1:00:00 PM
Line 9 : 1/01/2013 12:01:00 PM
Line 10 : 1/01/2013 12:00:01 PM
Line 11 : 27/06/1893
Line 12 : 27/03/1894
Line 13 : 27/05/1894
Line 14 : 26/06/1894
Line 15 : 26/06/1894
Line 16 : 26/06/1894
Line 17 : 20/06/1894
Line 18 : 1/01/2013 11:00:00 AM
Line 19 : 1/01/2013 11:59:00 AM
Line 20 : 1/01/2013 11:59:59 AM

Функция, которая возвращает дату, к которой был добавлен указанный временной интервал.

DateDiff

Функция, которая возвращает разницу между двумя заданными временными интервалами.

Синтаксис

DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])

Параметр/Описание

Интервал - требуемый параметр. Он может принимать следующие значения.
d - день года
м - месяц года
y - год года
yyyy - year
w - день недели
ww - неделя
q - квартал
час - час
м - минута
s - секунда
Date1 и Date2 - Необходимые параметры.
Firstdayofweek - необязательный параметр. Задает первый день недели. Он может принимать следующие значения.
0 = vbUseSystemDayOfWeek - настройка API поддержки национальных языков (NLS)
1 = vbSunday - воскресенье
2 = vbMonday - понедельник
3 = vbTuesday - вторник
4 = vbWednesday - среда
5 = vbThursday - четверг
6 = vbFriday - пятница
7 = vbSaturday - суббота
Firstdayofyear - необязательный параметр. Указывает на первый день года. Он может принимать следующие значения.
0 = vbUseSystem - настройка API поддержки национальных языков (NLS)
1 = vbFirstJan1 - начать с недели, в которой происходит 1 января (по умолчанию)
2 = vbFirstFourDays - Начните с недели, которая имеет не менее четырех дней в новом году
3 = vbFirstFullWeek - начните с первой полной недели нового года

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1 : 1
Line 2 : 4
Line 3 : 12
Line 4 : 365
Line 5 : 365
Line 6 : 52
Line 7 : 52
Line 8 : 8783
Line 9 : 527039
Line 10 : 31622340

Функция, которая возвращает разницу между двумя периодами времени.

DatePart

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

Синтаксис

Параметр/Описание

Интервал - требуемый параметр. Он может принимать следующие значения.
d - день года
м - месяц года
y - год года
yyyy - year
w - день недели
ww - неделя
q - квартал
час - час
м - минута
s - секунда
Date1 - обязательный параметр.
Firstdayofweek - необязательный параметр. Задает первый день недели. Он может принимать следующие значения.
0 = vbUseSystemDayOfWeek - настройка API поддержки национальных языков (NLS)
1 = vbSunday - воскресенье
2 = vbMonday - понедельник
3 = vbTuesday - вторник
4 = vbWednesday - среда
5 = vbThursday - четверг
6 = vbFriday - пятница
7 = vbSaturday - суббота
Firstdayofyear - необязательный параметр. Указывает на первый день года. Он может принимать следующие значения.
0 = vbUseSystem - настройка API поддержки национальных языков (NLS)
1 = vbFirstJan1 - начать с недели, в которой происходит 1 января (по умолчанию)
2 = vbFirstFourDays - Начните с недели, которая имеет не менее четырех дней в новом году
3 = vbFirstFullWeek - начните с первой полной недели нового года

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1 : 1
Line 2 : 15
Line 3 : 3
Line 4 : 1

Функция, возвращающая указанную часть заданного значения даты ввода.

DateSerial

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

Синтаксис

Параметр/Описание

Год - требуемый параметр. Число от 100 до 9999 или числовое выражение. Значения от 0 до 99 интерпретируются как годы с 1900 по 1999 год. Для всех аргументов за другой год используйте полный четырехзначный год.
Месяц - требуемый параметр. Он также может быть в форме выражения, которое должно варьироваться от 1 до 12.
День - требуемый параметр. Он также может быть в форме выражения, которое должно варьироваться от 1 до 31.

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

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

FormatDateTime

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

Синтаксис

Параметр/Описание

Дата - требуемый параметр.
Формат - необязательный параметр. Значение, определяющее формат даты или времени, который будет использоваться. Он может принимать следующие значения.
0 = vbGeneralDate - Default
1 = vbLongDate - дата возврата
2 = vbShortDate - Дата возврата
3 = vbLongTime - возвращает время
4 = vbShortTime - возвращает время

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1 : 15/08/2013 8:25:00 PM
Line 2 : Thursday, 15 August 2013
Line 3 : 15/08/2013
Line 4 : 8:25:00 PM
Line 5 : 20:25

Функция, которая форматирует дату на основе поставляемых параметров.

IsDate

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

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1 : True
Line 2 : True
Line 3 : True

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

Функция «День» возвращает число от 1 до 31, которое представляет день указанной даты.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Функция, которая возвращает целое число от 1 до 31, которое представляет день указанной даты.

Month

Функция Month возвращает число от 1 до 12, которое представляет месяц указанной даты.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Функция, которая возвращает целое число от 1 до 12, которое представляет месяц указанной даты.

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

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

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

MonthName

Функция MonthName возвращает имя месяца для указанной даты.

Синтаксис

Параметр Описание

Месяц - требуемый параметр. Он определяет номер месяца.
Toabbreviate - необязательный параметр. Булевское значение, указывающее, следует ли сокращать имя месяца. Если оставить пустым, значение по умолчанию будет считаться False.

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1 : Jan
Line 2 : January
Line 3 : Jul
Line 4 : July

Функция, которая возвращает имя определенного месяца за указанную дату.

WeekDay

Функция WeekDay возвращает целое число от 1 до 7, которое представляет день недели для указанной даты.

Синтаксис

Параметр/Описание

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1: 5 Line 2: 4 Line 3: 4 Line 4: 3 Line 5: 4 Line 6: 5

Функция, которая возвращает целое число (от 1 до 7), которое представляет день недели в течение указанного дня.

WeekDayName

Функция WeekDayName возвращает имя дня недели за указанный день.

Синтаксис WeekdayName(weekday[,abbreviate[,firstdayofweek]])

Weekday - требуемый параметр. Номер дня недели.
Toabbreviate - необязательный параметр. Булевское значение, указывающее, следует ли сокращать имя месяца. Если оставить пустым, значение по умолчанию будет считаться False.
Firstdayofweek - необязательный параметр. Задает первый день недели.
0 = vbUseSystemDayOfWeek - настройка API поддержки национальных языков (NLS)
1 = vbSunday - воскресенье
2 = vbMonday - понедельник
3 = vbTuesday - вторник
4 = vbWednesday - среда
5 = vbThursday - четверг
6 = vbFriday - пятница
7 = vbSaturday - суббота

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1 : Tuesday
Line 2 : Mon
Line 3 : Sunday
Line 4 : Tue
Line 5 : Sunday

Функция, которая возвращает имя дня недели для указанного дня.

Функция Now возвращает текущую системную дату и время.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод. The Value of a : 19/07/2013 3:04:09 PM

Функция, которая возвращает текущую системную дату и время.

Функция Hour возвращает число от 0 до 23, которое представляет час дня для указанной отметки времени.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1: 15
Line 2: 23
Line 3: 14

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

Minute

Функция Minute возвращает число от 0 до 59, которое представляет минуту часа для указанной отметки времени.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1: 13
Line 2: 43
Line 3: 20

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

Second

Функция возвращает число от 0 до 59, которое представляет вторую часть часа для указанной отметки времени.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод. Line 1: 25
Line 2: 45
Line 3: 0

Функция, возвращающая целое число от 0 до 59, которое представляет собой секундную часть данного времени.

Функция времени возвращает текущее системное время.

Синтаксис

пример

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1: 3:29:15 PM

Функция, которая возвращает текущее системное время.

Timer

Функция таймера возвращает число секунд и миллисекунд с 12:00.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Time is : 19/07/2013 3:45:53 PM
Timer is: 56753.4

Функция, которая возвращает число секунд и миллисекунд с 12:00.

TimeSerial

Функция TimeSerial возвращает время для указанных часов, минут и вторых значений.

Синтаксис

Параметр/Описание

Hour - обязательный параметр, который представляет собой целое число от 0 до 23 или любое числовое выражение.
Minute - обязательный параметр, который представляет собой целое число от 0 до 59 или любое числовое выражение.
Second - обязательный параметр, который представляет собой целое число от 0 до 59 или любое числовое выражение.

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

8:01:02 PM
12:59:59 AM
2:20:18 PM

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

TimeValue

Функция TimeValue преобразует заданную входную строку в допустимое время.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Таблицу аргументов (значений) параметра interval смотрите в параграфе «Приложение 1».

Примечание к таблице аргументов: три символа – y, d, w – указывают функции DateAdd на один день, который необходимо прибавить к исходной дате number раз.

Пример

MsgBox "31.01.2021 + 1 месяц crayon-h"> & DateAdd ( "m" , 1 , "31.01.2021" ) 'Результат: 28.02.2021 MsgBox "Сегодня + 3 года crayon-h"> & DateAdd ( "yyyy" , 3 , Date ) MsgBox "Сегодня - 2 недели crayon-h"> & DateAdd ( "ww" , - 2 , Date ) MsgBox "10:22:14 + 10 минут crayon-h"> & DateAdd ( "n" , 10 , "10:22:14" ) 'Результат: 10:32:14

Функция 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».

Разность двух дат
Добрый день! Есть такая строчка: If CDate(TextBox1.Text) = CDate(excel_sheet.Cells(row, 1)) Then.

Сравнение двух дат и вывод дат находящихся между ними
Здравствуйте! Тут такое дело, вводятся две определенные ДАТЫ в Edit1 и Edit2 в формате.

Сравнение двух дат
Всем Доброго времени суток. Подскажите, пожалуйста, как сравнить 2 даты в формате "ДД.ММ.ГГГГ.

Сравнение двух дат
Пишу форум и надо новые постинги помечать гифом типа new . Так вот если постинг больше двух часов.

Перечитал задачу несколько раз во всех направлениях и ничего не понял -
как надо объединять дату, породу и капусту?
Перечитал задачу несколько раз во всех направлениях и ничего не понял Ребята. я вчера тоже разов 20 перечитал и понял что я ничего не понял ))))
Хотел уточнить что имел ввиду автор, но не решился. не хотел показывать что я тугодум ))))))))))))))
Автор. уточни пожалуйста что надо с чем сравнивать.
OR - ИЛИ ------ должно выполниться одно из условий
AND - И ------- должно выполниться оба условия и одно и второе.

на всякий случай я отделался дежурной фразой что это *чудо* нашли в капусте.. это если входные значения окажуться неверными

итак код этого решения:

и ниже архив с предпологаемым рискованным решением )) Тоесть в моём примере при получении кролика если отец чёрный а мать белая
то градация увеличивается до 4-х значений кролик может быть от черного до белого
а если отец пятнистый а мать чёрная то кролик не получится белым, тоже самое и с размерами
тоесть вычисляется чтото среднее от цвета и роста отца и матери.. ну както так.. Название * Сравнение двух дат* слишком тривиальное для этой темы, больше бы подошло .
*как кролики кроликов делали* ))

Сравнивайте, как дату, а не как текст:

крольчонок должен быть серым или белым великаном но не например черно белым

По-разному можно. Псевдокодом:

Условие1 OR Условие2 AND NOT Условие3

IF Условие3 then
else
IF Условие1 OR Условие2 then

или через Select Case

что это *чудо* нашли в капусте.. это если входные значения окажуться неверными
итак код этого решения:

А я тоже ничего не понял, но зато рискнул выполнить эту задачу
наверное предпологаются какието характеристики родителей этого кролика
а затем нужно чтото сравнить и получить некий результат
так как исходных данных очень мало я предположил сделать по градациям цвета и роста матери и оца получив среднее
от этих характеристик, получить-то можно только куда прикручивать сравнение ? )))
на всякий случай я отделался дежурной фразой что это *чудо* нашли в капусте.. это если входные значения окажуться неверными
итак код этого решения:
Visual BasicВыделить код

Я использовал этот вариант
If Text1.Text = Text3.Text Or Text2.Text = Text3.Text Then
MsgBox "Все правильно"
Else
MsgBox "Не правильно"
End If

Но твой по лучше))) Спасибо

Мне нужно было что бы он из двух вариантов текста начал сравнивать с третим и выводит решение.

VBA хранит дату как количество дней с 30 декабря 1899 года. Кредит: Сергей Гнатюк / iStock / Getty Images

Тип даты VBA

Полезно помнить, как VBA хранит значения даты в памяти при сравнении дат. Дата хранится в виде числа с плавающей запятой двойной точности или двойного числа. Длинная целая часть - это количество дней, положительных или отрицательных, начиная с 30 декабря 1899 года. Десятичная часть - это количество времени, прошедшее с полуночи. У даты без времени ее десятичная часть установлена в ноль. Например, 1 мая 1967 года хранится как 24593.0. Это означает, что когда VBA сравнивает две даты, фактически сравниваются два числа, которые представляют дни.

Строка символов Vs. Дата

Полезные функции

Дата Арифметика

Поскольку дата хранится как число дней с 30 декабря 1899 года, вы можете включить арифметику дат при сравнении дат в VBA. Например, если срок действия билета истекает через три дня после его приобретения, вы можете проверить билет с истекшим сроком действия с кодом VBA, аналогичным следующему:

Открытая функция истекла (покупка как Дата), как логическое значение истекло = Ложь, если покупка + 3> Дата () Затем истек = Истина Конец, Если Завершить функцию

Я носил 3 разных фитнес-группы в течение месяца, чтобы увидеть их сравнение

Хотите знать, какая фитнес-группа подходит для вас? Мы носили три на 30 дней, чтобы посмотреть, как они отслеживают шаги, сон и многое другое.

Сравнение строк в Python

Чтобы сравнить два или более строковых значения в Python, вы используете операторы сравнения. В Python нет встроенных функций для сравнения строк. При сравнении значений Python .

Сравнение: какой лучший антивирус для Windows-устройств в 2018 году?

Как сравнить лучшие продукты безопасности для Windows в 2018 году? Какая компания имеет лучший антивирус? Какой пакет безопасности предлагает полную защиту?

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

Синтаксис

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

Синтаксис функции DateDiff использует следующие именованные аргументы:

Часть	Описание
интервал	Обязательный аргумент. Строковое выражение, которое обозначает интервал времени, используемый для вычисления разницы значений дата1 и дата2.
дата1, дата2	Обязательный элемент; Variant (Date). Две даты, которые требуется использовать в расчете.
первый_день_недели	Необязательный аргумент. Константа, задающая первый день недели. Если она не указана, им является воскресенье.
первая_неделя_года	Необязательно. Константа, задающая первую неделю года. Если она не указана, первой неделею является неделя, начинающаяся 1 января.

Параметры

Аргумент интервал имеет следующие параметры:

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

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

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

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

Примечания

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

Для вычисления числа дней между аргументами дата1 и дата2 используется значение "День года" ("y") или "День" ("d"). Если интервал задан как "День недели" ("w"), DateDiff возвращает число недель между двумя датами. Если день дата1 приходится на понедельник, DateDiff считает число понедельников до дня дата2. День, соответствующий значению аргумента дата2, учитывается, а дата1 — нет.

Однако если интервал задан как "Неделя" ("ww"), функция DateDiff возвращает число календарных недель между двумя датами. Для этого рассчитывается число воскресений между днями дата1 и дата2. DateDiff учитывает день дата2, если он приходится на воскресенье; день дата1 не учитывается, даже если он приходится на воскресенье.

Если значение дата1 соответствует более поздней дате, чем значение дата2, функция DateDiff возвращает отрицательное число. Аргумент первый_день_недели влияет на вычисления, если заданы значения "w" и "ww".

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

При сравнении 31 декабря с 1 января следующего года функция DateDiff для года ("yyyy") возвращает значение 1, не смотря на то, что разница составляет всего один день.

Если в свойстве Calendar задан григорианский календарь, аргументы дата1 и дата2 следует указывать соответствующим образом. Если используется календарь Хиджра, дата должна соответствовать ему.

Пример

В данном примере функция DateDiff отображает число дней между указанной датой и сегодняшним днем.

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Читайте также: