Проверете дали датата е между датите
Следващата функция VBA ще провери дали дадена дата е между две други дати и ако е така, тя ще върне стойността TRUE. Ако датата не е между датите, тя ще върне стойността FALSE.
Функция Compare_Dates (Start_Date As Date, End_Date As Date, Other_Date As Date) Като булева „Булева функция за сравнение на дати“ Ще върне TRUE само когато Other_Date е между Start_Date и End_Date „В противен случай ще върне FALSE“ Задайте резултата на FALSE - стойност по подразбиране Compare_Dates = False „Сравнете датите If ((Other_Date> = Start_Date) And (Other_Date <= End_Date)) then“ If Other Date is between Start and End Date then set to true Compare_Dates = True End If End Function
Функцията има три аргумента:
• Начална_ дата - най -ранната допустима дата
• End_ Date - последната допустима дата
• 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) ще върне FALSE, тъй като 12-12-2001 НЕ е между 19-07-2003 и 12-08-2008
Изтеглете .XLSM функцията тук
