Funcția CDATE în VBA
VBA CDATE este o funcție de conversie a tipului de date care convertește un tip de date care este fie text, fie șir într-un tip de date de dată. Odată ce valoarea a fost convertită în tipul de date de dată, atunci ne putem juca cu lucruri de dată.
Sintaxa CDATE
Mai jos este sintaxa funcției CDATE în VBA.
Expresie: Expresia poate fi un șir sau o valoare text sau o variabilă care conține o valoare care urmează să fie convertită la tipul de date de dată.
CDATE identifică formatul de dată și oră în computerul la care lucrăm și convertește valoarea furnizată în același tip de date. Dacă furnizați numai zi și lună și ignorați anul, atunci funcția CDATE ia sistemul sistemelor, se afișează împreună cu ziua și luna furnizate.
Vom vedea din ce în ce mai multe exemple în secțiunea de mai jos.
Cum se folosește funcția CDATE în Excel VBA?
Exemple de funcții CDATE în Excel VBA.
Exemplul nr. 1
Înainte să vă arăt exemplul CDATE, uitați-vă mai întâi la codul de mai jos.
Cod:
Sub CDATE_Example1 () Dim k As String k = "25-12" MsgBox k End Sub
În cele de mai sus pentru variabila „k”, am atribuit valoarea ca „25-12”. Când execut acest cod, vom vedea aceeași valoare în caseta de mesaj din VBA.
Dar acest lucru poate fi convertit în dată utilizând funcția VBA CDATE, pentru aceasta definiți încă o variabilă ca Data.
Cod:
Dim k1 ca dată
Pentru această variabilă, „k1” atribuie funcția CDATE și furnizează variabila „k”, care deține șirul „25-12”. Și pentru caseta de mesaje afișați valoarea variabilă „k1” în loc de „k”.
Cod:
k1 = CDate (k)
Acum rulați codul și vedeți rezultatul într-o casetă de mesaje.
Deci, rezultatul este „25.12.2019”.
Uitați-vă cu atenție la valoarea pe care am furnizat-o. Am furnizat „25-12” nu am furnizat anul.
În timp ce scria acest articol anul curent în sistemul meu a fost 2019, deci VBA CDATE a convertit valoarea șirului „25-12” la data respectivă și a adăugat anul sistemului 2019 la acesta. Deci , rezultatele finale citit ca acest 12/25/2019 adică 25 mii decembrie 2019.
Exemplul nr. 2
Acum, uitați-vă la codul de mai jos.
Cod:
Sub CDATE_Example2 () Dim k As Variant Dim kResult As Date k = 43889 kResult = CDate (k) MsgBox kResult End Sub
În codul de mai sus pentru variabila „k”, am aplicat numărul „43889”. Știm cu toții că acesta este un număr de serie, dar pentru o altă variabilă, „KResult”, am convertit această valoare în data utilizând funcția „CDATE”.
Același rezultat al variabilei „KResult” este afișat în caseta de mesaj.
Rulați codul și vedeți magia funcției „CDATE”.
Acesta arată rezultatul ca „28.02.2020” dacă nu sunteți familiarizați cu datele din excel, atunci trebuie să vă întrebați cum s-a întâmplat acest lucru.
De exemplu, introduceți același număr (43889) într-una dintre celulele din foaia de calcul.
Pentru aceasta, aplicați formatul ca „ZZ-LL-AAAA”.
Acum faceți clic pe Ok și vedeți rezultatul.
Acum rezultatul s-a schimbat de la un număr de serie până în prezent. Deoarece am aplicat formatul de dată deasupra numărului de serie, a arătat data respectivă.
Deci, aceasta înseamnă că numărul de serie 43889 este egal cu data de 28-02-2020.
Deci, în codul nostru VBA, funcția CDATE a executat același lucru prin conversia valorii șirului într-un tip de date de dată.
Exemplul nr. 3
Pentru acest exemplu, uitați-vă la codul de mai jos.
Sub CDATE_Example3 () Dim Value1 Dim Value2 Dim Value3 Value1 = "24 decembrie 2019" Value2 = # 6/25/2018 # Value3 = "18:30:48 PM" MsgBox CDate (Value1) MsgBox CDate (Value2) MsgBox CDate ( Valoare3) Sfârșit Sub
Când vom rula acest cod, vom obține rezultatele de mai jos.
Deci, toate valorile sunt convertite la tipul de date date cu funcția CDATE.
Lucruri de amintit
- CDATE convertește numai numerele și valorile șirurilor la tipul de date date.
- Acest lucru este util atunci când îl folosim cu alte funcții.
- Dacă este furnizată o valoare greșită a tipului de date, atunci vom primi o eroare de nepotrivire a tipului.
- Deoarece data și ora fac parte din numărul de serie, acesta convertește ora, precum și ora corectă.
