Kontroller, om datoen er mellem datoer
Den følgende VBA -funktion kontrollerer, om en given dato er mellem to andre datoer, og hvis det er tilfældet, returnerer den værdien SAND. Hvis datoen ikke er mellem datoerne, returnerer den værdien FALSK.
Funktion Sammenlign_datoer (Startdato som dato, Slutdato som dato, Andet_dato som dato) Som boolsk 'Boolsk funktion til sammenligning af datoer' Vender kun SAND, når Other_Date er mellem Start_Date og End_Date 'Ellers returneres FALSK' Sæt resultat til FALSK - standardværdi Compare_Dates = Falsk 'Sammenlign datoer, hvis ((Other_Date> = Start_Date) og (Other_Date <= End_Date)) derefter' Hvis anden dato er mellem start- og slutdato, så indstil til true Compare_Dates = True End If End -funktion
Funktionen har tre argumenter:
• Start_ dato - den tidligste tilladte dato
• Slutdato - den seneste tilladte dato
• Andet_dato - den dato, der sammenlignes
Funktionen skal være i et Excel -modul. Det kan køres fra en Excel -projektmappe, f.eks .:
A4 = Sammenlign_datoer (21-06-2003,12-02,2008,15-09-2008)
A3 = Sammenlign_datoer (A1, A2.A3)
A1 = Sammenlign_datoer (13-03-2005, 18-08-2005, A6)
Så Compare_Dates (25-04-2007,12-07-2008, 23-06-2006) giver værdien SAND, da 23-06-2006 er mellem 25-04-2007 og 12-07-2008.
Ligeledes vil Compare_Dates (19-07-2003,12-12-2001,12-08-2008) returnere FALSE da 12-12-2001 IKKE er mellem 19-07-2003 og 12-08-2008
Download .XLSM -funktionen her
