Zkontrolujte, zda je datum mezi daty
Následující funkce VBA zkontroluje, zda je dané datum mezi dvěma dalšími daty, a pokud ano, vrátí hodnotu PRAVDA. Pokud se datum mezi daty nenachází, vrátí hodnotu FALSE.
Funkce Compare_Dates (Start_Date as Date, End_Date As Date, Other_Date As Date) As Boolean 'Boolean Function to compare dates' Will return TRUE only when Other_Date is between Start_Date and End_Date 'otherwise will return FALSE' Set result to FALSE - default value Compare_Dates = False 'Compare Dates 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
Funkce má tři argumenty:
• Počáteční datum - nejdříve přípustné datum
• Datum ukončení - poslední povolené datum
• Other_Date - porovnávané datum
Funkce musí být v modulu Excel. Lze jej spustit ze sešitu aplikace Excel, například:
A4 = Porovnat_data (21-06-2003,12-02,2008,15-09-2008)
A3 = Porovnat_data (A1, A2.A3)
A1 = Porovnat_data (13-03-2005,18-08-2005, A6)
Takže Compare_Dates (25-04-2007,12-07-2008, 23-06-2006) bude dávat hodnotu PRAVDA, protože 23-06-2006 je mezi 25-04-2007 a 12-07-2008.
Podobně Compare_Dates (19-07-2003,12-12-2001,12-08-2008) vrátí FALSE, protože 12-12-2001 NENÍ mezi 19-07-2003 a 12-08-2008
Stáhněte si funkci .XLSM zde