VBA CDATE | Paano Gumamit ng CDATE sa Excel VBA? (na may mga Halimbawa)

Pag-andar ng CDATE sa VBA

Ang VBA CDATE ay isang pagpapaandar ng uri ng data na nagko-convert ng isang uri ng data na alinman sa teksto o string sa isang petsa ng data. Kapag na-convert ang halaga sa uri ng data ng petsa pagkatapos ay maaari tayong maglaro kasama ang mga bagay-bagay sa petsa.

Syntax ng CDATE

Nasa ibaba ang syntax ng pagpapaandar ng CDATE sa VBA.

Pagpapahayag: Ang ekspresyon ay maaaring isang string o halaga ng teksto o isang variable na naglalaman ng isang halaga upang mai-convert sa uri ng data ng petsa.

Kinikilala ng CDATE ang format ng petsa at oras sa computer na pinagtatrabahuhan namin at binabago ang naibigay na halaga sa parehong uri ng data ng petsa. Kung naghahatid ka lamang ng araw at buwan at hindi pinapansin ang taon, kung gayon ang pag-andar ng CDATE ay tumatagal ng mga taon ng system, ipinapakita kasama ang naibigay na araw at buwan.

Makakakita kami ng higit pa at maraming mga halimbawa sa seksyon sa ibaba.

Paano Magamit ang CDATE Function sa Excel VBA?

Mga halimbawa ng CDATE Function sa excel vba.

Maaari mong i-download ang VBA CDATE Excel Template dito - VBA CDATE Excel Template

Halimbawa # 1

Bago ko ipakita sa iyo ang halimbawa ng CDATE tingnan muna ang code sa ibaba.

Code:

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

Sa itaas para sa variable na "k", itinalaga ko ang halaga bilang "25-12". Kapag naisagawa ko ang code na ito makikita namin ang parehong halaga sa kahon ng mensahe sa VBA.

Ngunit maaari itong mai-convert sa petsa sa pamamagitan ng paggamit ng pagpapaandar ng VBA CDATE. Para dito tukuyin ang isa pang variable bilang Petsa.

Code:

 Dim k1 Bilang Petsa 

Para sa variable na "k1" magtalaga ng pagpapaandar ng CDATE at ibigay ang variable na "k" na humahawak sa string na "25-12". At para sa kahon ng mensahe ipakita ang variable na halaga ng "k1" sa halip na "k".

Code:

k1 = CDate (k)

Patakbuhin ngayon ang code at tingnan ang resulta sa isang kahon ng mensahe.

Kaya ang resulta ay "12/25/2019".

Malapit na tingnan ang halagang ibinigay namin, nag-supply kami ng "25-12" na hindi namin naibigay noong taon.

Habang isinusulat ang artikulong ito kasalukuyang taon sa aking system ay 2019, kaya ang VBA CDATE ay na-convert ang halaga ng string na "25-12" hanggang ngayon at idinagdag dito ang system system 2019. Kaya't ang mga huling resulta ay basahin tulad nito 12/25/2019 ibig sabihin, ika-25 ng Disyembre 2019.

Halimbawa # 2

Ngayon, tingnan ang code sa ibaba.

Code:

 Sub CDATE_Example2 () Dim k Bilang Variant Dim kResult Bilang Petsa k = 43889 kResult = CDate (k) MsgBox kResult End Sub 

Sa code sa itaas para sa variable na "k", inilapat ko ang bilang na "43889". Alam nating lahat na ito ay isang serial number ngunit para sa isa pang variable na "KResult" na-convert namin ang halagang ito sa ngayon sa pamamagitan ng paggamit ng "CDATE" na function.

Ang parehong resulta ng variable na "kResult" na ipinapakita sa kahon ng mensahe.

Patakbuhin ang code at tingnan ang mahika ng pagpapaandar na "CDATE".

Ipinapakita nito ang resulta bilang "2/28/2020", kung hindi ka pamilyar sa mga petsa sa excel kung gayon dapat kang magtaka kung paano ito nangyari.

Halimbawa, ipasok ang parehong numero (43889) sa isa sa mga cell sa spreadsheet.

Para sa mga ito ilapat ang format bilang "DD-MM-YYYY".

Ngayon mag-click sa Ok at tingnan ang resulta.

Ngayon ang resulta ay nagbago mula sa isang serial number hanggang sa ngayon. Dahil inilapat namin ang format ng petsa sa tuktok ng serial number na ipinakita nito ang kani-kanilang petsa.

Kaya't nangangahulugan ito na ang serial number na 43889 ay katumbas ng petsa 28-02-2020.

Kaya sa aming function na VBA code CDATE ay naisagawa ang parehong bagay sa pamamagitan ng pag-convert ng halaga ng string sa isang uri ng data ng petsa.

Halimbawa # 3

Para sa halimbawang ito tingnan ang code sa ibaba.

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

Kapag pinatakbo namin ang code na ito makukuha namin ang mga resulta sa ibaba.

Kaya, ang lahat ng mga halaga ay na-convert sa uri ng data ng petsa kasama ang pagpapaandar ng CDATE.

Bagay na dapat alalahanin

  • Ang mga CDATE ang nagko-convert lamang ng mga numero at halaga ng string sa uri ng data ng petsa.
  • Kapaki-pakinabang ito kapag ginamit natin ito sa iba pang mga pagpapaandar.
  • Kung ang maling halaga ng uri ng data ay ibinibigay pagkatapos makakakuha kami ng maling error na hindi magkatugma.
  • Dahil ang petsa at oras ay bahagi ng serial number binabago nito ang oras pati na rin ang tamang oras.