VBA CDATE | Kā izmantot CDATE programmā Excel VBA? (ar piemēriem)

CDATE funkcija VBA

VBA CDATE ir datu veida konvertēšanas funkcija, kas datu veidu, kas ir teksts vai virkne, pārveido par datuma datu tipu. Kad vērtība ir pārveidota par datuma datu tipu, mēs varam spēlēt ar datuma lietām.

CDATE sintakse

Zemāk ir CDBA funkcijas sintakse VBA.

Izteiksme: izteiksme var būt virkne vai teksta vērtība vai mainīgais, kas satur vērtību, kas jāpārvērš datuma datu tipā.

CDATE identificē datuma un laika formātu datorā, pie kura strādājam, un pārveido piegādāto vērtību par tādu pašu datuma datu tipu. Ja jūs piegādājat tikai dienu un mēnesi un ignorējat gadu, tad CDATE funkcija ņem sistēmas gadu, parāda kopā ar piegādāto dienu un mēnesi.

Zemāk esošajā sadaļā mēs redzēsim arvien vairāk piemēru.

Kā izmantot funkciju CDATE programmā Excel VBA?

CDATE funkcijas piemēri excel vba.

Šo VBA CDATE Excel veidni varat lejupielādēt šeit - VBA CDATE Excel veidne

1. piemērs

Pirms parādīšu CDATE piemēru, vispirms apskatiet zemāk redzamo kodu.

Kods:

 Sub CDATE_Example1 () Dim k As String k = "25-12" MsgBox k End Sub 

Iepriekš minētajam mainīgajam “k” vērtību esmu piešķīris kā “25–12”. Kad es izpildīšu šo kodu, mēs redzēsim to pašu vērtību VBA ziņojumu lodziņā.

Bet to var pārveidot par datumu, izmantojot funkciju VBA CDATE. Tam definējiet vēl vienu mainīgo kā Date.

Kods:

 Dim k1 kā datums 

Šim mainīgajam “k1” piešķiriet CDATE funkciju un piegādājiet mainīgo “k”, kas satur virkni “25-12”. Ziņojuma lodziņā mainīgās vērtības vietā norādiet “k1”, nevis “k”.

Kods:

k1 = CDate (k)

Tagad palaidiet kodu un redziet rezultātu ziņojumu lodziņā.

Tātad rezultāts ir “25.12.2019.”.

Cieši aplūkojot mūsu piegādāto vērtību, mēs esam piegādājuši “25–12”, kurus neesam piegādājuši gadā.

Rakstot šo rakstu, kārtējais gads manā sistēmā bija 2019. gads, tāpēc VBA CDATE konvertēja virknes vērtību “25–12” līdz šai dienai un pievienoja tai sistēmas 2019. gadu. Tātad galīgie rezultāti lasāmi šādi 25/12/2019, ti, 2019. gada 25. decembrī.

2. piemērs

Tagad apskatiet zemāk esošo kodu.

Kods:

 Apakšdate CDATE_Example2 () Dim k As Variant Dim kResult As Date k = 43889 kResult = CDate (k) MsgBox kResult End Sub 

Iepriekš minētajā mainīgā “k” kodā esmu lietojis skaitli “43889”. Mēs visi zinām, ka tas ir sērijas numurs, bet citam mainīgajam “KResult” mēs esam pārveidojuši šo vērtību uz dienu, izmantojot funkciju “CDATE”.

Tas pats mainīgā “kResult” rezultāts, kas parādīts ziņojumu lodziņā.

Palaidiet kodu un skatiet funkcijas “CDATE” burvību.

Rezultāts tiek rādīts kā “2/2/202020”. Ja jums nav zināmi datumi programmā Excel, jums jābrīnās, kā tas notika.

Piemēram, vienā no izklājlapas šūnām ievadiet to pašu numuru (43889).

Šim nolūkam izmantojiet formātu “DD-MM-GGGG”.

Tagad noklikšķiniet uz Labi un skatiet rezultātu.

Tagad rezultāts ir mainījies no sērijas numura līdz šim. Tā kā mēs esam lietojuši datuma formātu virs sērijas numura, tas ir parādījis attiecīgo datumu.

Tātad tas nozīmē, ka sērijas numurs 43889 ir vienāds ar datumu 28-02-2020.

Tātad mūsu VBA kodā CDATE funkcija ir izpildījusi to pašu, pārveidojot virknes vērtību datuma datu tipā.

3. piemērs

Šajā piemērā apskatiet zemāk esošo kodu.

 Apakšdate CDATE_Example3 () Dim Value1 Dim Value2 Dim Value3 Value1 = "2019. gada 24. decembris" Value2 = # 6/25/2018 # Value3 = "18:30:48 PM" MsgBox CDate (Value1) MsgBox CDate (Value2) MsgBox CDate ( Vērtība3) Beigu apakšnodaļa 

Kad mēs palaidīsim šo kodu, mēs iegūsim šādus rezultātus.

Tātad visas vērtības tiek konvertētas datuma datu tipā, izmantojot funkciju CDATE.

Atceramās lietas

  • CDATE konvertē datuma datu tipam tikai skaitļus un virkņu vērtības.
  • Tas ir noderīgi, ja to izmantojam kopā ar citām funkcijām.
  • Ja tiek piegādāta nepareiza datu veida vērtība, mēs saņemsim kļūdas veidu neatbilstība.
  • Tā kā datums un laiks ir sērijas numura daļa, tas pārvērš laiku, kā arī pareizo laiku.

$config[zx-auto] not found$config[zx-overlay] not found