Controleer of datum tussen datums ligt
De volgende VBA-functie controleert of een bepaalde datum tussen twee andere datums ligt en als dat zo is, wordt de waarde TRUE geretourneerd. Als de datum niet tussen de datums ligt, wordt de waarde FALSE geretourneerd.
Functie Compare_Dates(Start_Date As Date, End_Date As Date, Other_Date As Date) As Boolean ' Boolean Functie om datums te vergelijken 'Retourneert alleen TRUE wanneer Other_Date tussen Start_Date en End_Date ligt 'Anders wordt FALSE geretourneerd 'Stel uitkomst in op FALSE - standaardwaarde Compare_Dates = False 'Datums vergelijken If ((Other_Date >= Start_Date) And (Other_Date <= End_Date)) Then 'If Other Date is tussen Start- en End Date, stel dan in op true Compare_Dates = True End If End-functie
De functie heeft drie argumenten:
• Startdatum - de vroegst toegestane datum
• Einddatum - de laatste toegestane datum
• Other_Date - de datum die wordt vergeleken
De functie moet in een Excel-module zitten. Het kan worden uitgevoerd vanuit een Excel-werkmap, bijvoorbeeld:
A4= Compare_Dates(21-06-2003,12-02,2008,15-09-2008)
A3 =Vergelijk_Datums(A1,A2.A3)
A1= Compare_Dates(13-03-2005,18-08-2005,A6)
Dus Compare_Dates(25-04-2007,12-07-2008, 23-06-2006) geeft de waarde TRUE aangezien 23-06-2006 tussen 25-04-2007 en 12-07-2008 ligt.
Evenzo zal Compare_Dates (19-07-2003,12-12-2001,12-08-2008) FALSE retourneren aangezien 12-12-2001 NIET tussen 19-07-2003 en 12-08-2008 is
Download de .XLSM-functie hier
