CDATE funktsioon VBA-s
VBA CDATE on andmetüübi teisendamise funktsioon, mis teisendab andmetüübiks, mis on tekst või string, kuupäeva andmetüübiks. Kui väärtus on teisendatud kuupäeva andmetüübiks, saame kuupäeva asjadega ringi mängida.
CDATE süntaks
Allpool on VBA funktsiooni CDATE süntaks.
Avaldis: avaldis võib olla string või teksti väärtus või muutuja, mis sisaldab kuupäeva andmetüübiks teisendatavat väärtust.
CDATE tuvastab töötava arvuti kuupäeva ja kellaaja vormingu ning teisendab tarnitud väärtuse samaks kuupäeva andmetüübiks. Kui sisestate ainult päeva ja kuu ning eirate aastat, võtab CDATE funktsioon süsteemide aasta, näitab koos tarnitud päeva ja kuuga.
Näeme allpool jaotises üha uusi näiteid.
Kuidas kasutada funktsiooni CDATE Exceli VBA-s?
Näited CDATE funktsioonist Exceli VBA-s.
Näide 1
Enne kui näitan teile CDATE näidet, vaadake kõigepealt allolevat koodi.
Kood:
Alam CDATE_Näide1 () Dim k As String k = "25-12" MsgBox k End Sub
Eespool muutuja „k” jaoks olen määranud väärtuseks „25–12”. Selle koodi käivitamisel näeme sama väärtust VBA teatekastis.
Kuid selle saab kuupäevaks teisendada funktsiooni VBA CDATE abil, selleks määrake kuupäevana veel üks muutuja.
Kood:
Dim k1 kui kuupäev
Selle muutuja jaoks määrab “k1” funktsiooni CDATE ja edastab muutuja “k”, mis hoiab stringi “25–12”. Ja sõnumikasti puhul kuvage muutuja väärtus k asemel k1.
Kood:
k1 = CDate (k)
Nüüd käivitage kood ja vaadake tulemust sõnumikastis.
Nii et tulemus on “25.12.2019”.
Vaadake hoolikalt meie pakutavat väärtust. Oleme tarninud "25-12", mida me pole tarninud.
Selle artikli kirjutamise ajal oli minu süsteemis käesolev aasta 2019, seega muutis VBA CDATE stringi väärtuse „25–12” kuupäevaks ja lisas sellele süsteemi aasta 2019. Nii lõpptulemused lugeda niimoodi 2019/12/25 st 25 th detsember 2019.
Näide 2
Nüüd vaadake allolevat koodi.
Kood:
Alam CDATE_Eexample2 () Dim k Variant Dim kResult As Date k = 43889 kResult = CDate (k) MsgBox kResult End Sub
In the above code for the variable “k,” I have applied the number “43889”. We all know this is a serial number, but for another variable, “KResult,” we have converted this value to date by using the “CDATE” function.
The same result of the variable “KResult” is shown in the message box.
Run the code and see the magic of the function “CDATE.”
It shows the result as “2/28/2020” if you are not familiar with dates in excel, then you must be wondering how did this happen.
For example, enter the same number (43889) in one of the cells in the spreadsheet.
For this, apply the format as “DD-MM-YYYY.”
Now click on Ok and see the result.
Now the result has changed from a serial number to date. Because we have applied date format top the serial number, it has shown the respective date.
So this means the serial number 43889 is equal to the date 28-02-2020.
Nii et meie VBA-koodis on CDATE funktsioon sama teinud, teisendades stringi väärtuse kuupäeva andmetüübiks.
Näide # 3
Selle näite jaoks vaadake allolevat koodi.
Alam-CDATE_näide3 () Dim-väärtus1 Dim-väärtus2 Dim-väärtus3 Value1 = "24. detsember 2019" Value2 = # 6/25/2018 # Value3 = "18:30:48 PM" MsgBox CDate (Value1) MsgBox CDate (Value2) MsgBox CDate ( Väärtus3) Lõpp alam
Selle koodi käivitamisel saame allpool toodud tulemused.
Niisiis, kõik väärtused teisendatakse kuupäeva andmetüübiks funktsiooniga CDATE.
Asjad, mida meeles pidada
- CDATE teisendab kuupäeva andmetüübiks ainult numbrid ja stringiväärtused.
- See on kasulik, kui kasutame seda koos teiste funktsioonidega.
- Kui esitatakse vale andmetüübi väärtus, siis saame tüübi mittevastavuse tõrke.
- Kuna kuupäev ja kellaaeg on osa seerianumbrist, teisendab see nii kellaaja kui ka õige aja.
