Перевірте, чи є дата між датами
Наступна функція VBA перевірить, чи є дана дата між двома іншими датами, і якщо так, вона поверне значення TRUE. Якщо дата не знаходиться між датами, вона поверне значення FALSE.
Функція Compare_Dates (Дата_початку як дата, дата_закінчення як дата, інша_дата як дата) Як логічна "Логічна функція порівняння дат" Поверне ІСТИНУ лише тоді, коли Інша_Дата між початковими_датами та Кінцевою_датою "В іншому випадку поверне FALSE" Встановіть результат на FALSE - значення за замовчуванням Compare_Dates = Неправильно "Порівняти дати, якщо ((Інша_Дата> = Дата_початка) І (Інша_Дата <= Кінцева_Дата)) Тоді" Якщо Інша дата знаходиться між датою початку та закінчення, то встановіть значення true Порівняти_Дати = Істинне закінчення, якщо функція завершення
Функція має три аргументи:
• Дата початку_ - найраніша допустима дата
• Дата_завершення - остання допустима дата
• Other_Date - дата порівняння
Функція повинна бути в модулі Excel. Його можна запускати з робочої книги Excel, наприклад:
A4 = Порівняти_дати (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) дасть значення TRUE, оскільки 23-06-2006 знаходиться між 25-04-2007 та 12-07-2008.
Подібним чином Compare_Dates (19-07-2003,12-12-2001,12-08-2008) поверне ЛОЖЬ, оскільки 12-12-2001 НЕ між 19-07-2003 та 12-08-2008
Завантажте функцію .XLSM тут
