Ελέγξτε εάν η ημερομηνία είναι μεταξύ των ημερομηνιών
Η ακόλουθη συνάρτηση VBA θα ελέγξει εάν μια δεδομένη ημερομηνία είναι μεταξύ δύο άλλων ημερομηνιών και αν ναι, θα επιστρέψει την τιμή TRUE. Εάν η ημερομηνία δεν είναι μεταξύ των ημερομηνιών, τότε θα επιστρέψει την τιμή FALSE.
Λειτουργία Compare_Dates (Έναρξη_Ημερομηνία ως Ημερομηνία, Τέλος_Ημερομηνία Ως Ημερομηνία, Άλλη_Ημερομηνία Ως Ημερομηνία) Ως Boolean 'Boolean Function to σύγκριση ημερομηνιών' Θα επιστρέψει TRUE μόνο όταν η Other_Date είναι μεταξύ Start_Date και End_Date 'Διαφορετικά θα επιστρέψει FALSE' Ορίστε το αποτέλεσμα σε FALSE - προεπιλεγμένη τιμή Compare_Dates = Λάθος "Συγκρίνετε ημερομηνίες αν ((Άλλη_ ημερομηνία> = Ημερομηνία έναρξης) Και (Άλλη_ ημερομηνία <= Ημερομηνία λήξης)) Στη συνέχεια" Εάν η άλλη ημερομηνία είναι μεταξύ Ημερομηνία έναρξης και λήξης, τότε ορίστε την τιμή true Compare_Dates = True End If End Function
Η συνάρτηση έχει τρία ορίσματα:
• Ημερομηνία έναρξης - η αρχική επιτρεπόμενη ημερομηνία
• Ημερομηνία λήξης - η πιο πρόσφατη επιτρεπόμενη ημερομηνία
• Other_Date - η ημερομηνία που συγκρίνεται
Η συνάρτηση πρέπει να βρίσκεται σε μονάδα Excel. Μπορεί να εκτελεστεί από ένα βιβλίο εργασίας του Excel, π.χ.
A4 = Compare_Dates (21-06-2003,12-02,2008,15-09-2008)
A3 = Compare_Dates (A1, A2.A3)
A1 = Compare_Dates (13-03-2005,18-08-2005, A6)
Έτσι, το Compare_Dates (25-04-2007,12-07-2008, 23-06-2006) θα δώσει την τιμή TRUE, καθώς 23-06-2006 είναι μεταξύ 25-04-2007 και 12-07-2008.
Ομοίως το Compare_Dates (19-07-2003,12-12-2001,12-08-2008) θα επιστρέψει ΛΑΘΟΣ καθώς η 12-12-2001 ΔΕΝ είναι μεταξύ 19-07-2003 και 12-08-2008
Κατεβάστε τη λειτουργία .XLSM εδώ
