Kontrollera om datumet är mellan datum
Följande VBA -funktion kontrollerar om ett givet datum är mellan två andra datum och i så fall returnerar det värdet SANT. Om datumet inte ligger mellan datumen returnerar värdet FALSKT.
Function Compare_Dates (Start_Date As Date, End_Date As Date, Other_Date As Date) As Boolean 'Boolean Function to jämför datum' Returnerar SANT endast när Other_Date är mellan Start_Date och End_Date 'Annars återgår FALSE' Ställ utfallet till FALSE - standardvärde Compare_Dates = Falskt 'Jämför datum om ((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
Funktionen har tre argument:
• Start_ date - det tidigaste tillåtna datumet
• Slutdatum - det senaste tillåtna datumet
• Other_Date - datumet som jämförs
Funktionen måste finnas i en Excel -modul. Det kan köras från en Excel -arbetsbok, t.ex.
A4 = Jämför_datum (21-06-2003,12-02,2008,15-09-2008)
A3 = Jämför_datum (A1, A2.A3)
A1 = Jämför_datum (13-03-2005, 18-08-2005, A6)
Så Compare_Dates (25-04-2007,12-07-2008, 23-06-2006) ger värdet SANT då 23-06-2006 är mellan 25-04-2007 och 12-07-2008.
På samma sätt kommer Compare_Dates (19-07-2003,12-12-2001,12-08-2008) att returnera FALSE då 12-12-2001 INTE är mellan 19-07-2003 och 12-08-2008
Ladda ner .XLSM -funktionen här
