Primerjava datumov v VBA

Primerjava datumov v Microsoft Visual Basic for Applications se ne razlikuje od primerjave katere koli druge vrste podatkov. Vrednosti, ki jih primerjate, morajo biti vrste »Datum«. Uporabite lahko standardne primerjalne operatorje:"<" za "manj kot"; "<=" za "manj kot ali enako"; ">" za "več kot"; ">=" za "večje ali enako"; "=" za "enako"; in "<>" za "ni enako." Uporabite lahko tudi dva primerjalna operatorja, "Je" in "Ni."

Vrsta datuma VBA

Ko primerjate datume, si je koristno zapomniti, kako VBA shranjuje datumske vrednosti v pomnilnik. Datum je shranjen kot število s plavajočo vejico dvojne natančnosti ali dvojnik. Dolgo celo število je število dni, pozitivnih ali negativnih, od 30. decembra 1899. Decimalni del je čas, ki je pretekel od polnoči. Datum brez časa ima decimalni del nastavljen na nič. Na primer, 1. maj 1967 je shranjen kot 24593.0. To pomeni, da ko VBA primerja dva datuma, dejansko primerja dve številki, ki predstavljata dneve.

Znakovni niz vs. Datum

Ko primerjate datume v VBA, morate zagotoviti, da imajo vrednosti, ki jih primerjate, vrsto »Datum« in niso znakovni nizi. Na primer, niz znakov "05/01/1999" je manjši od niza znakov "12/31/1900", ker je "05" pred "12." Pretvorite niz znakov v vrsto datuma s funkcijo "CDate", na primer "CDate(TextBox.Value)".

Koristne funkcije

Poleg CDate() obstajajo še druge koristne funkcije, ki jih lahko uporabite pri primerjavi datumov. Funkcija "Date()" zagotavlja današnji datum kot vrednost datuma. Funkcija "Now()" zagotavlja današnji datum in uro kot vrednost datuma. Ker podatkovni tip Datum vključuje tudi časovno komponento, lahko izvlečete samo datumski del spremenljivke, ko primerjate datume s funkcijo »DateValue()«, na primer »If submission> DateValue(deadline) Then ...«

Datumska aritmetika

Ker je datum shranjen kot število dni od 30. decembra 1899, lahko pri primerjavi datumov v VBA vključite datumsko aritmetiko. Na primer, če vstopnica poteče tri dni po tem, ko je bila kupljena, lahko preverite, ali je potekla vstopnica s kodo VBA, podobno naslednji:

Javna funkcija je potekla (nakup kot datum) Kot logična vrednost je potekla =False Če je nakup+3> Datum() Nato potekla =True Konec Če je končana funkcija