Sprawdź, czy data jest pomiędzy datami
Poniższa funkcja VBA sprawdzi, czy dana data jest pomiędzy dwiema innymi datami i jeśli tak, zwróci wartość TRUE. Jeśli data nie znajduje się pomiędzy datami, zwróci wartość FALSE.
Funkcja Compare_Dates(Start_Date As Date, End_Date As Date, Other_Date As Date) As Boolean ' Boolean Funkcja do porównywania dat 'Zwróci TRUE tylko wtedy, gdy Other_Date znajdzie się między Start_Date i End_Date 'W przeciwnym razie zwróci FALSE 'Ustaw wynik na FALSE - wartość domyślna Compare_Dates = Fałsz „Porównaj daty If ((Other_Date >= Start_Date) And (Other_Date <= End_Date)) Then 'Jeśli inna data jest między datą rozpoczęcia a datą zakończenia, ustaw wartość true Compare_Dates = True End If End Function
Funkcja ma trzy argumenty:
• Data_rozpoczęcia - najwcześniejsza dopuszczalna data
• Data_końcowa - najpóźniejsza dopuszczalna data
• Other_Date - porównywana data
Funkcja musi znajdować się w module Excel. Można go uruchomić ze skoroszytu Excel, np.:
A4= Porównaj_daty (21-06-2003,12-02,2008,15-09-2008)
A3 = Porównaj daty (A1,A2.A3)
A1 = Porównaj_daty (13-03-2005, 18-08-2005, A6)
Zatem Compare_Dates(25-04-2007,12-07-2008, 23-06-2006) da wartość TRUE, ponieważ 23-06-2006 przypada między 25-04-2007 a 12-07-2008.
Podobnie Compare_Dates(19-07-2003,12-12-2001,12-08-2008) zwróci FALSE, ponieważ 12-12-2001 NIE jest między 19-07-2003 a 12-08-2008
Pobierz funkcję .XLSM tutaj
