Sjekk om datoen er mellom datoer
Den følgende VBA -funksjonen vil kontrollere om en gitt dato er mellom to andre datoer, og i så fall vil den returnere verdien TRUE. Hvis datoen ikke er mellom datoene, returnerer den verdien FALSK.
Funksjon Compare_Dates (Start_Date As Date, End_Date As Date, Other_Date As Date) As Boolean 'Boolean Function to Compare dates' Returnerer SANN bare når Other_Date er mellom Start_Date og End_Date 'Ellers returneres FALSE' Sett resultatet til FALSE - standardverdi 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
Funksjonen har tre argumenter:
• Start_ date - den tidligste tillatte datoen
• Sluttdato - den siste tillatte datoen
• Other_Date - datoen som sammenlignes
Funksjonen må være i en Excel -modul. Den kan kjøres fra en Excel -arbeidsbok, for eksempel:
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) vil gi verdien TRUE ettersom 23-06-2006 er mellom 25-04-2007 og 12-07-2008.
På samme måte vil Compare_Dates (19-07-2003,12-12-2001,12-08-2008) returnere FALSE ettersom 12-12-2001 IKKE er mellom 19-07-2003 og 12-08-2008
Last ned .XLSM -funksjon her
