Compararea datelor din VBA

Determinarea tipului

Nu este necesar să convertiți datele la tipul de date "Data" pentru a face comparații dacă sunt deja în acel tip. Puteți afla dacă o variabilă este "Data" utilizând câteva metode. Examinați secțiunea declarații la începutul procedurii VBA. Această secțiune este partea în care declarați toate variabilele utilizând cuvântul cheie "Dim". Variabilele de dată vor fi declarate cu instrucțiuni precum: "Dim d1 as Date". Un alt mod de a ști dacă variabila dvs. este de tip "Date" este de a revizui asignările făcute acelei variabile. Aceste atribuții vor folosi caracterul "#", care denotă un tip "Date". De exemplu, următoarea instrucțiune atribuie data "12/1/2001" variabilei "D1" care este "Data".

D1 = # 12/1/2001 #

Cum se convertește la tipul de date "Data"

Pentru a compara datele din VBA trebuie mai întâi să aveți două date memorate în "Date", care este unul dintre diferitele tipuri de valori din VBA. Tipul "Data" este o instanță specială a întregului tip de date, astfel încât datele de comparare sunt în esență aceleași cu compararea numerelor întregi. Dacă datele dvs. nu sunt încă în "Data", va trebui să le convertiți. Puteți face acest lucru utilizând funcția CDate. De exemplu, executați următoarea instrucțiune pentru a transforma șirul "12/1/2001" într-un tip "Date":

D1 = CDate ("12/1/2001")

Comparația

Dacă doriți să verificați dacă data într-o variabilă "Date" are loc înainte de alta, utilizați simbolul "less than" ("mai puțin decât") după cum se arată în exemplul următor:

Dacă (d1 <d2)

Utilizați simbolul "mai mare decât" pentru a verifica dacă apare o dată după alta și utilizați simbolul "egal" pentru a afla dacă valorile ambelor variabile se referă la aceeași dată.

Proba de program

Scrieți un program de probă care convertește și compară datele, astfel încât să vă puteți referi la acel cod atunci când scrieți programe mai complexe VBA pentru a efectua acea procedură. Deschideți mediul de programare în orice aplicație Office făcând clic pe butonul "Visual Basic" din fila "Developer". Apoi lipiți următorul program în fereastra centrală a mediului. Utilizează funcția "CDate" pentru a converti șiruri de date la date și face trei comparații diferite între două dintre ele. Executați programul apăsând "F5" și observați ieșirea verificând fereastra "Imediat".

(D1 d2) Apoi Debug.Print "Data 1 apare mai târziu de data 2. " Dacă (d1 = d2) Apoi Debug.Print "Data 1 este aceeași cu data 2." End Sub