CDATE funkcija u VBA
VBA CDATE je funkcija pretvorbe tipa podataka koja pretvara tip podataka koji je tekst ili niz u tip podataka datuma. Jednom kada se vrijednost pretvori u datumski tip podataka, možemo se poigrati s datumskim stvarima.
Sintaksa CDATE
Ispod je sintaksa funkcije CDATE u VBA.
Izraz: Izraz može biti vrijednost niza ili teksta ili varijabla koja sadrži vrijednost koju treba pretvoriti u tip podataka datuma.
CDATE identificira format datuma i vremena u računalu na kojem radimo i pretvara isporučenu vrijednost u isti tip podataka datuma. Ako navedete samo dan i mjesec, a zanemarite godinu, tada funkcija CDATE uzima sustavu godinu, prikazuje zajedno s danom i mjesecom.
U nastavku ćemo vidjeti sve više primjera.
Kako se koristi funkcija CDATE u programu Excel VBA?
Primjeri funkcije CDATE u programu Excel VBA.
Primjer # 1
Prije nego što vam pokažem primjer CDATE-a, prvo pogledajte donji kod.
Kodirati:
Sub CDATE_Example1 () Dim k As String k = "25-12" MsgBox k End Sub
U gore navedenom za varijablu "k" dodijelio sam vrijednost kao "25-12". Kad izvršim ovaj kôd, vidjet ćemo istu vrijednost u okviru za poruke u VBA.
Ali to se može pretvoriti u datum upotrebom funkcije VBA CDATE, za to definirajte još jednu varijablu kao Datum.
Kodirati:
Dim k1 Kao datum
Za ovu varijablu "k1" dodjeljuje funkciju CDATE i isporučuje varijablu "k" koja sadrži niz "25-12". A za okvir s porukama umjesto "k" prikažite vrijednost varijable "k1"
Kodirati:
k1 = CDate (k)
Sada pokrenite kod i pogledajte rezultat u okviru za poruku.
Dakle, rezultat je "25.12.2019".
Pažljivo pogledajte vrijednost koju smo dali. Isporučili smo „25-12“, nismo isporučili godinu.
Tijekom pisanja ovog članka tekuća godina u mom sustavu bila je 2019., pa je VBA CDATE pretvorio vrijednost niza "25-12" u datum i dodao mu sistemsku 2019. godinu. Dakle, konačni rezultati čitati ovako 12/25/2019 odnosno, 25. -og prosinca 2019.
Primjer # 2
Sada pogledajte kod u nastavku.
Kodirati:
Sub CDATE_Example2 () Dim k kao varijanta Dim kResult As Date k = 43889 kResult = CDate (k) MsgBox kResult End Sub
U gornjem kodu za varijablu "k" primijenio sam broj "43889". Svi znamo da je ovo serijski broj, ali za drugu varijablu, "KResult", pretvorili smo ovu vrijednost do danas pomoću funkcije "CDATE".
Isti rezultat varijable “KResult” prikazan je u okviru za poruku.
Pokrenite kôd i pogledajte čaroliju funkcije "CDATE".
Rezultat prikazuje kao "28.2.2020." Ako niste upoznati s datumima u Excelu, onda se sigurno pitate kako se to dogodilo.
Na primjer, unesite isti broj (43889) u jednu od ćelija proračunske tablice.
Za to primijenite format "DD-MM-GGGG".
Sada kliknite U redu i pogledajte rezultat.
Sada se rezultat promijenio iz serijskog broja u datum. Budući da smo primijenili format datuma na vrh serijskog broja, on je prikazivao odgovarajući datum.
To znači da je serijski broj 43889 jednak datumu 28. veljače 2020.
Dakle, u našem VBA kodu funkcija CDATE izvršila je istu stvar pretvarajući vrijednost niza u tip podataka datuma.
Primjer # 3
Za ovaj primjer pogledajte donji kod.
Pod CDATE_Example3 () Dim Value1 Dim Value2 Dim Value3 Value1 = "24. prosinca 2019" Value2 = # 6/25/2018 # Value3 = "18:30:48 PM" MsgBox CDate (Value1) MsgBox CDate (Value2) MsgBox CDate ( Vrijednost3) Kraj Sub
Kada pokrenemo ovaj kod, dobit ćemo dolje navedene rezultate.
Dakle, sve vrijednosti se konvertiraju u tip podataka datuma s funkcijom CDATE.
Stvari koje treba zapamtiti
- CDATE pretvara samo brojeve i vrijednosti niza u tip podataka datuma.
- To je korisno kada ga koristimo s drugim funkcijama.
- Ako se navede pogrešna vrijednost tipa podataka, dobit ćemo pogrešku nepodudaranja tipa.
- Budući da su datum i vrijeme dio serijskog broja, to pretvara vrijeme kao i pravo vrijeme.
