Dátum-összehasonlítás VBA-ban

A dátumok összehasonlítása a Microsoft Visual Basic for Applications programban nem különbözik bármely más adattípus összehasonlításától. Az összehasonlítandó értékeknek „Dátum” típusúnak kell lenniük. Használhatja a szabványos összehasonlító operátorokat:"<" a "kevesebb, mint"; "<=" a "kisebb vagy egyenlő"; ">" a "nagyobb, mint"; ">=" a "nagyobb vagy egyenlő"; "=" az "egyenlő"; és "<>" a "nem egyenlő." Két összehasonlító operátort is használhat, az "Is" és az "IsNot".

VBA dátumtípus

A dátumok összehasonlításakor hasznos megjegyezni, hogy a VBA hogyan tárolja a dátumértékeket a memóriában. A dátum dupla pontosságú lebegőpontos számként vagy kettősként kerül tárolásra. A hosszú egész rész az 1899. december 30. óta eltelt napok száma, legyen az pozitív vagy negatív. A tizedes rész az éjfél óta eltelt idő. Az idő nélküli dátum tizedes része nullára van állítva. Például 1967. május 1-je 24593.0 néven van tárolva. Ez azt jelenti, hogy amikor a VBA két dátumot hasonlít össze, akkor valójában két olyan számot hasonlít össze, amelyek napokat jelentenek.

Karakterlánc vs. Dátum

Amikor dátumokat hasonlít össze VBA-ban, gondoskodnia kell arról, hogy az összehasonlított értékek „Dátum” típusúak legyenek, és ne legyenek karakterláncok. Például a "05/01/1999" karakterlánc kisebb, mint a "12/31/1900" karakterlánc, mivel a "05" a "12" előtt áll. Konvertálja a karakterláncot dátumtípussá a "CDate" függvény segítségével, például "CDate(TextBox.Value)".

Hasznos funkciók

A CDate() mellett további hasznos funkciók is használhatók a dátumok összehasonlításakor. A "Date()" függvény a mai dátumot adja meg Dátum értékként. A "Now()" függvény a mai dátumot és időt adja meg Dátum értékként. Mivel a Dátum adattípus időösszetevőt is tartalmaz, a dátumok összehasonlításakor a "Dátumérték()" függvény használatával csak a változó dátumrészét bonthatja ki, például:"Ha beküldés> Dátumérték(határidő) Akkor..."

Dátum aritmetika

Mivel a dátum az 1899. december 30. óta eltelt napok számaként kerül tárolásra, a VBA-ban a dátumok összehasonlításakor megadhat dátumszámítást. Például, ha egy jegy a vásárlás után három nappal lejár, a következőhöz hasonló VBA-kóddal ellenőrizheti a lejárt jegyet:

Nyilvános funkció lejárt (vásárlás dátumaként) Logikai értékként lejárt =hamis, ha vásárlás +3> dátum () Akkor lejárt =igaz vége, ha vége függvény