Tarihin Tarihler Arasında olup olmadığını kontrol edin
Aşağıdaki VBA işlevi, belirli bir tarihin diğer iki tarih arasında olup olmadığını kontrol edecek ve öyleyse, DOĞRU değerini döndürecektir. Tarih tarihler arasında değilse, YANLIŞ değerini döndürür.
İşlev Compare_Date(Start_Date As Date, End_Date As Date, Other_Date As Date) As Boolean ' Boolean Tarihleri karşılaştırma işlevi 'Diğer_Date Start_Date ve End_Date arasında olduğunda DOĞRU döndürür 'Aksi takdirde FALSE döndürür 'Sonucu YANLIŞ olarak ayarla - varsayılan değer Compare_Dates = False 'Tarihleri Karşılaştır If ((Other_Date >= Start_Date) And (Other_Date <= End_Date)) Sonra 'Diğer Tarih Başlangıç ve Bitiş Tarihi arasındaysa, o zaman true olarak ayarlayın Compare_Dates = Bitişse Doğru Bitiş İşlevi
Fonksiyonun üç argümanı vardır:
• Başlangıç_ tarihi - izin verilen en erken tarih
• Bitiş_ Tarihi - izin verilen en son tarih
• Other_Date - karşılaştırılan tarih
İşlev bir Excel modülünde olmalıdır. Bir Excel Çalışma Kitabından çalıştırılabilir, örneğin:
A4= Tarihleri Karşılaştır(21-06-2003,12-02,2008,15-09-2008)
A3 =Tarihleri Karşılaştır(A1,A2.A3)
A1=Tarihleri Karşılaştır(13-03-2005,18-08-2005,A6)
Dolayısıyla, Compare_Dates(25-04-2007,12-07-2008, 23-06-2006), 23-06-2006 25-04-2007 ve 12-07-2008 arasında olduğu için DOĞRU değerini verecektir.
Benzer şekilde, Compare_Dates(19-07-2003,12-12-2001,12-08-2008), 12-12-2001 19-07-2003 ve 12-08-2008 arasında DEĞİL olduğundan YANLIŞ döndürür.
.XLSM işlevini buradan indirin