CDATE funkcija VBA
VBA CDATE ir datu tipa konvertēšanas funkcija, kas datu veidu, kas ir teksts vai virkne, pārveido par datuma datu tipu. Kad vērtība ir konvertēta uz datuma datu tipu, mēs varam spēlēt ar datumu.
CDATE sintakse
Zemāk ir CDBA funkcijas sintakse VBA.
![](https://cdn.know-base.net/6190076/vba_cdate_how_to_use_cdate_in_excel_vba_with_examples_2.png.webp)
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 to pašu datuma datu tipu. Ja jūs piegādājat tikai dienu un mēnesi un ignorējat gadu, tad funkcija CDATE ņ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.
![](https://cdn.know-base.net/6190076/vba_cdate_how_to_use_cdate_in_excel_vba_with_examples.png.webp)
Kā izmantot funkciju CDATE programmā Excel VBA?
CDATE funkcijas piemēri programmā Excel VBA.
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
![](https://cdn.know-base.net/6190076/vba_cdate_how_to_use_cdate_in_excel_vba_with_examples_3.png.webp)
Iepriekš 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ņā.
![](https://cdn.know-base.net/6190076/vba_cdate_how_to_use_cdate_in_excel_vba_with_examples_4.png.webp)
Bet to var konvertēt uz datumu, izmantojot funkciju VBA CDATE. Tam definējiet vēl vienu mainīgo kā Date.
Kods:
Dim k1 kā datums
![](https://cdn.know-base.net/6190076/vba_cdate_how_to_use_cdate_in_excel_vba_with_examples_5.png.webp)
Šim mainīgajam “k1” piešķir funkciju CDATE un piegādā mainīgo “k”, kas tur virkni “25-12”. Ziņojuma lodziņā mainīgās vērtības vietā norādiet “k1”, nevis “k”.
Kods:
k1 = CDate (k)
![](https://cdn.know-base.net/6190076/vba_cdate_how_to_use_cdate_in_excel_vba_with_examples_6.png.webp)
Tagad palaidiet kodu un redziet rezultātu ziņojumu lodziņā.
![](https://cdn.know-base.net/6190076/vba_cdate_how_to_use_cdate_in_excel_vba_with_examples_7.png.webp)
Tātad rezultāts ir “25.12.2019.”.
Cieši apskatiet mūsu sniegto vērtību. Mēs piegādājām “25–12”, ko 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āpēc galīgie rezultāti izlasīt patīk šī 12/25/2019 ti, 25 th 2019 decembrī.
2. piemērs
Tagad skatieties 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
![](https://cdn.know-base.net/6190076/vba_cdate_how_to_use_cdate_in_excel_vba_with_examples_8.png.webp)
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 par datumu, izmantojot funkciju “CDATE”.
Tas pats mainīgā “KResult” rezultāts tiek parādīts ziņojuma lodziņā.
Palaidiet kodu un skatiet funkcijas “CDATE” burvību.
![](https://cdn.know-base.net/6190076/vba_cdate_how_to_use_cdate_in_excel_vba_with_examples_9.png.webp)
Tas parāda rezultātu kā “2/2/202020”, ja Excel datumi nav pazīstami, tad noteikti jābrīnās, kā tas notika.
Piemēram, vienā no izklājlapas šūnām ievadiet to pašu numuru (43889).
![](https://cdn.know-base.net/6190076/vba_cdate_how_to_use_cdate_in_excel_vba_with_examples_10.png.webp)
Šim nolūkam izmantojiet formātu “DD-MM-GGGG”.
![](https://cdn.know-base.net/6190076/vba_cdate_how_to_use_cdate_in_excel_vba_with_examples_11.png.webp)
Tagad noklikšķiniet uz Labi un skatiet rezultātu.
![](https://cdn.know-base.net/6190076/vba_cdate_how_to_use_cdate_in_excel_vba_with_examples_12.png.webp)
Tagad rezultāts ir mainījies no sērijas numura līdz šim. Tā kā datuma formāts ir izmantots sērijas numura augšdaļā, tajā ir norādīts attiecīgais datums.
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
![](https://cdn.know-base.net/6190076/vba_cdate_how_to_use_cdate_in_excel_vba_with_examples_13.png.webp)
Palaidot šo kodu, mēs iegūsim šādus rezultātus.
![](https://cdn.know-base.net/6190076/vba_cdate_how_to_use_cdate_in_excel_vba_with_examples.gif)
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 ievadī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.