VBA CDATE | Kako koristiti CDATE u programu Excel VBA? (s primjerima)

CDATE funkcija u VBA

VBA CDATE je funkcija pretvorbe tipa podataka koja pretvara tip podataka koji je tekst ili niz u tip podataka datuma. Kad se vrijednost pretvori u datumski tip podataka, možemo se poigrati 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 i 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 excelu vba.

Ovaj VBA CDATE Excel predložak možete preuzeti ovdje - VBA CDATE Excel Predložak

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". Kada izvršim ovaj kod, vidjet ćemo istu vrijednost u okviru za poruke u VBA.

Ali to se može pretvoriti u datum pomoću funkcije VBA CDATE. Za to definirajte još jednu varijablu kao Datum.

Kodirati:

 Dim k1 Kao datum 

Za ovu varijablu "k1" dodijelite funkciju CDATE i navedite 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 isporučili, isporučili smo „25-12“ koju 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 čitaju se ovako 25.12.2019, odnosno 25. 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 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, prikazao je 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.

 Sub CDATE_Example3() Dim Value1 Dim Value2 Dim Value3 Value1 = "December 24, 2019" Value2 = #6/25/2018# Value3 = "18:30:48 PM" MsgBox CDate(Value1) MsgBox CDate(Value2) MsgBox CDate(Value3) End Sub 

When we run this code we will get the below results.

So, all the values are converted to the date data type with the CDATE function.

Things to Remember

  • CDATE converts only numbers and string values to the date data type.
  • This is useful when we use it with other functions.
  • If the wrong data type value is supplied then we will get type mismatch error.
  • Since date and time are part of serial number it converts time as well as proper time.