Überprüfen Sie, ob das Datum zwischen den Daten liegt
Die folgende VBA-Funktion prüft, ob ein bestimmtes Datum zwischen zwei anderen Datumsangaben liegt und gibt in diesem Fall den Wert TRUE zurück. Wenn das Datum nicht zwischen den Datumsangaben liegt, wird der Wert FALSE zurückgegeben.
Funktion Compare_Dates(Start_Date As Date, End_Date As Date, Other_Date As Date) As Boolean ' Boolean Funktion zum Vergleichen von Daten 'Gibt nur TRUE zurück, wenn Other_Date zwischen Start_Date und End_Date liegt 'Andernfalls wird FALSE zurückgegeben 'Ergebnis auf FALSE setzen - Standardwert Compare_Dates = False 'Daten vergleichen, wenn ((Other_Date >= Start_Date) And (Other_Date <= End_Date)) Then 'Wenn Anderes Datum zwischen Start- und Enddatum liegt, dann auf true setzen Compare_Dates = True End If End Function
Die Funktion hat drei Argumente:
• Start_ date - das früheste zulässige Datum
• End_ Date - das späteste zulässige Datum
• Other_Date - das Datum, das verglichen wird
Die Funktion muss sich in einem Excel-Modul befinden. Es kann von einer Excel-Arbeitsmappe ausgeführt werden, z. B.:
A4= Datum vergleichen(21-06-2003,12-02,2008,15-09-2008)
A3 =Vergleiche_Daten(A1,A2.A3)
A1= Datum vergleichen(13.03.2005,18.08.2005,A6)
Compare_Dates(25-04-2007,12-07-2008, 23-06-2006) gibt also den Wert TRUE, da 23-06-2006 zwischen 25-04-2007 und 12-07-2008 liegt.
Ebenso wird Compare_Dates(19-07-2003,12-12-2001,12-08-2008) FALSE zurückgeben, da der 12-12-2001 NICHT zwischen dem 19-07-2003 und dem 12-08-2008 liegt
Laden Sie die .XLSM-Funktion hier herunter
