Usporedba datuma u VBA

Usporedba datuma u Microsoft Visual Basicu za aplikacije ne razlikuje se od usporedbe bilo koje druge vrste podataka. Vrijednosti koje uspoređujete moraju biti tipa "Datum". Možete koristiti standardne operatore usporedbe:"<" za "manje od"; "<=" za "manje ili jednako"; ">" za "veće od"; ">=" za "veće od ili jednako"; "=" za "jednako"; i "<>" za "nije jednako." Također možete koristiti dva operatora za usporedbu, "Je" i "Nije."

VBA vrsta datuma

Korisno je zapamtiti kako VBA pohranjuje vrijednosti datuma u memoriju kada uspoređujete datume. Datum se pohranjuje kao broj s pomičnim zarezom dvostruke preciznosti ili Double. Dugi cijeli broj je broj dana, pozitivnih ili negativnih, od 30. prosinca 1899. Decimalni dio je količina vremena koja je protekla od ponoći. Datum bez vremena ima decimalni dio postavljen na nulu. Na primjer, 1. svibnja 1967. pohranjen je kao 24593,0. To znači da kada VBA uspoređuje dva datuma, zapravo uspoređuje dva broja koji predstavljaju dane.

Niz znakova vs. Datum

Kada uspoređujete datume u VBA-u, morate osigurati da vrijednosti koje uspoređujete imaju tip "Datum" i da nisu nizovi znakova. Na primjer, niz znakova "05/01/1999" manji je od niza znakova "12/31/1900" jer "05" dolazi prije "12." Pretvorite niz znakova u vrstu datuma pomoću funkcije "CDate", na primjer, "CDate(TextBox.Value)".

Korisne funkcije

Uz CDate(), postoje i druge korisne funkcije koje biste mogli koristiti pri usporedbi datuma. Funkcija "Date()" daje današnji datum kao vrijednost datuma. Funkcija "Now()" daje današnji datum i vrijeme kao vrijednost datuma. Budući da vrsta podataka Datum također uključuje vremensku komponentu, možete izdvojiti samo datumski dio varijable kada uspoređujete datume pomoću funkcije "DateValue()", na primjer, "If submission> DateValue(deadline) Then..."

Aritmetika datuma

Budući da je datum pohranjen kao broj dana od 30. prosinca 1899., možete uključiti aritmetiku datuma kada uspoređujete datume u VBA. Na primjer, ako karta istječe tri dana nakon što je kupljena, možete provjeriti ima li istekle karte pomoću VBA koda sličnog sljedećem:

Javna funkcija istekla (kupnja kao datum) Kao Booleova istekla =False Ako kupnja+3> Datum() Zatim istekla =Istina Kraj Ako završi funkcija