Проверить, не находится ли дата между датами
Следующая функция VBA проверяет, находится ли данная дата между двумя другими датами, и если да, она вернет значение ИСТИНА. Если дата не находится между датами, возвращается значение FALSE.
Функция Compare_Dates (Start_Date As Date, End_Date As Date, Other_Date As Date) As Boolean 'Логическая функция для сравнения дат' Возвращает TRUE, только если Other_Date находится между Start_Date и End_Date 'В противном случае вернет FALSE' Установить результат в FALSE - значение по умолчанию Compare_Dates = False 'Сравнить даты, если ((Other_Date> = Start_Date) And (Other_Date <= End_Date)) Then' Если другая дата находится между начальной и конечной датами, установите значение true Compare_Dates = True End If End Function
У функции есть три аргумента:
• Дата начала - наиболее ранняя допустимая дата.
• End_ Date - последняя допустимая дата.
• Other_Date - сравниваемая дата
Функция должна быть в модуле Excel. Его можно запустить из книги Excel, например:
A4 = Compare_Dates (21-06-2003,12-02,2008,15-09-2008)
A3 = Сравнить_Даты (A1, A2.A3)
A1 = Сравнить_Даты (13-03-2005,18-08-2005, A6)
Таким образом, Compare_Dates (25-04-2007,12-07-2008, 23-06-2006) даст значение ИСТИНА, поскольку 23-06-2006 находится между 25-04-2007 и 12-07-2008.
Аналогичным образом Compare_Dates (19-07-2003,12-12-2001,12-08-2008) вернет FALSE, поскольку 12-12-2001 НЕ находится между 19-07-2003 и 12-08-2008.
Загрузите функцию .XLSM здесь
