Проверите да ли је датум између датума
Следећа ВБА функција ће проверити да ли је дати датум између два друга датума и ако је тако, вратиће вредност ТРУЕ. Ако датум није између датума, онда ће вратити вредност ФАЛСЕ.
Функција Цомпаре_Датес (Старт_Дате Ас Дате, Енд_Дате Ас Дате, Отхер_Дате Ас Дате) Као логичка 'Боолеова функција за поређење датума' Вратиће ТРУЕ само ако је Отхер_Дате између Старт_Дате и Енд_Дате 'У супротном ће вратити ФАЛСЕ' Подеси исход на ФАЛСЕ - подразумевана вредност Цомпаре_Датес = Нетачно 'Упореди датуме Иф ((Отхер_Дате> = Старт_Дате) Анд (Отхер_Дате <= Енд_Дате)) тхен' Иф Отхер Дате ис бетвеен Старт анд Енд Дате тхен сет то труе Цомпаре_Датес = Труе Енд Иф Енд функција
Функција има три аргумента:
• Датум_почетка - најранији дозвољени датум
• Енд_ Дате - последњи дозвољени датум
• Отхер_Дате - датум који се упоређује
Функција мора бити у Екцел модулу. Може се покренути из Екцел радне свеске, на пример:
А4 = Упореди_датуме (21-06-2003,12-02,2008,15-09-2008)
А3 = Упореди_датуме (А1, А2.А3)
А1 = Упореди_датуме (13-03-2005,18-08-2005, А6)
Дакле, Цомпаре_Датес (25-04-2007,12-07-2008, 23-06-2006) ће дати вредност ТРУЕ јер је 23-06-2006 између 25-04-2007 и 12-07-2008.
Слично, Цомпаре_Датес (19-07-2003,12-12-2001,12-08-2008) ће вратити ФАЛСЕ јер 12-12-2001 НИЈЕ између 19-07-2003 и 12-08-2008
Преузмите .КСЛСМ функцију овде
