Excel VBA CDate funktsioon

Kas olete kuulnud funktsioonist või käsust, mille abil saame midagi kuupäevaks ja kellaajaks teisendada? Jah, koos funktsiooniga Kuupäev on meil VBA-s ka CDate-funktsioon, mis seda teeb. CDate on exceli funktsioon, kuid seda saab teha ka VBA-s. CDate teisendab kõike muud kui standardsesse kuupäevavormingusse. Seda saab kasutada ka kuupäeva teisendamiseks aja teisendamiseks.

CDate süntaks on lihtsaim süntaks, mida me eales näinud oleme. CDate peab sisendiks ainult avaldisi, näiteks kuupäeva ja kellaaega mis tahes vormingus. Allpool on selle süntaks.

Peame lihtsalt sisestama suvalises vormingus numbri, kuupäeva või kellaaja ja CDate teisendab selle automaatselt standardsesse kuupäeva- ja kellaajavormingusse.

Kuidas kasutada Exceli VBA CDate-funktsiooni?

Õpime VBA CDate-funktsiooni kasutama koos mõne näitega Excelis.

Selle VBA CDate Exceli malli saate alla laadida siit - VBA CDate Exceli mall

VBA CDate - näide # 1

Toome kõigepealt lihtsa näite. Selles näites proovime teisendada ühe lihtsa kuupäeva tüübi standardvormingusse, mis on vaikimisi tegelikult Excelisse sisseehitatud.

CDBA-funktsiooni kasutamiseks VBA-s toimige järgmiselt.

1. samm: avage moodul, mis on saadaval vahekaardi Insert menüüs, nagu allpool näidatud.

2. samm: kirjutage nüüd VBA CDate alamprotseduur ükskõik millisesse nime, nagu allpool näidatud. Kuid soovitatakse kirjutada peamiselt tehtud tööde nimeks alamprotseduuri nimi.

Kood:

 Alam VBA_CDate () Lõpeta alam 

3. samm: kuulutage nüüd muutuja, oletame, et see on sisend1 kui string . Andmetüübi käsitamist stringina, kuna tsiteerime sisendit numbrite ja tähestike kombinatsioonis.

Kood:

 Alam VBA_CDate () Tühjenda sisend1 kui stringi lõpp-alam 

4. samm: nüüd kuulutame veel ühe muutuja, mille abil näeme väljundit. Ja seda muutujat kasutatakse kuupäevade nägemiseks.

Kood:

 Alam VBA_CDate () Dim Input1 kui string String Dim FormatDate as Date End Sub 

5. samm. Valige nüüd suvaline kuupäev, mis koosneb numbrite ja tähestike kombinatsioonist, ja pange see ümber pööratud komadega, nagu allpool näidatud.

Kood:

 Alam VBA_CDate () Dim Input1 kui string String Dim FormatDate as Input1 = "1. september 2019" End Sub 

6. samm: sisestuskuupäeva teisendamiseks standardvormingusse kasutame allpool näidatud funktsiooni CDate koos ülal deklareeritud muutujaga FormatDate. Ja kasutage sisendisse1 salvestatud väärtust.

Kood:

 Alam VBA_CDate () Dim Input1 kui string String Dim FormatDate as Date Input1 = "1. september 2019" FormatDate = CDate (Input1) End Sub 

7. samm: ja väljundi nägemiseks kasutame Msgboxi, et määrata sellele kuupäeva funktsioon FormatDate.

Kood:

 Alam VBA_CDate () Dim Input1 kui string String Dim FormatDate As Date Input1 = "1. september 2019" FormatDate = CDate (Input1) MsgBox FormatDate End Sub 

8. samm: käivitage kood, vajutades F5-klahvi või klõpsates nuppu Esita. Saame kuupäevaks, milleks valisime 1. septembri 2019, ja see teisendatakse nüüd standardsesse kuupäevavormingusse, nagu 9.01.2019, nagu allpool näidatud.

Saame proovida erinevaid kuupäevade kombinatsioone, mis tegelikult olemas on, ja vaadata, millise standardväljundi me saame.

VBA CDate - näide # 2

Selles näites näeme erinevat tüüpi kuupäeva ja kellaaega, mis on olemas ja millist väljundit me VBA CDate kasutamise ajal saadaks. Selleks toimige järgmiselt.

1. samm: kirjutage VBA CDate alamprotseduur, nagu allpool näidatud.

Kood:

 Alam VBA_CDate2 () lõpp alam 

2. samm: nüüd deklareerime 3-4 erinevat andmetüübi kuupäeva muutujat. Kuulutame esimese muutuja kuupäevaks1 ja anname sellele andmetüübiks kuupäeva, nagu allpool näidatud.

Kood:

 Alam VBA_CDate2 () Dim Date1 kui kuupäev End Sub 

3. samm: määrake nüüd arv, mille soovite teisendada kuupäevavormingus. Oleme juhuslikuks arvuks valinud 12345.

Kood:

 Alam VBA_CDate2 () Dim Date1 As Date Date1 = "12345" End Sub 

4. samm: määratlege sarnaselt muule kuupäeva muutujale Date2 teine ​​muutuja, nagu allpool näidatud.

Kood:

 Alam VBA_CDate2 () Tühja kuupäeva1 kui kuupäeva kuupäev1 = "12345" Tühja kuupäeva2 kui kuupäeva lõpp Sub 

5. samm: kaaluge nüüd muutuja Date2 uuesti kuupäeva sisestamist mis tahes vormingus. Oleme siin hoidnud kuupäeva sisestamist 12/3/45.

Kood:

 Alam VBA_CDate2 () Tühim kuupäev1 kui kuupäev kuupäev1 = "12345" Tühi kuupäev2 kui kuupäev kuupäev2 = "12/3/45" Lõpp alam 

6. samm: lisaks kuulutame kuupäevaks veel ühe muutuja Date3.

Kood:

 Alam VBA_CDate2 () Tühi kuupäev1 kui kuupäeva kuupäev1 = "12345" Tühi kuupäev2 kui kuupäev kuupäev2 = "12/3/45" Tühja kuupäev3 kui kuupäev lõpp Sub 

7. samm. Siin määrame allpool näidatud aja väärtuseks 24-tunnise formaadi kell 12:10.

Kood:

 Alam VBA_CDate2 () Tühim kuupäev1 kui kuupäev kuupäev1 = "12345" Tühi kuupäev2 kui kuupäev kuupäev2 = "12/3/45" Tühi kuupäev3 kui kuupäev kuupäev3 = "00:10:00" Lõpp-alam 

8. samm: nüüd lõpuks kuulutame kuupäevaks veel ühe muutuja Date4.

Kood:

 Sub VBA_CDate2 () Dim Date1 As Date Date1 = "12345" Dim Date2 as Date Date2 = "12/3/45" Dim Date3 as Date Date3 = "00:10:00" Dim Date4 as Date End Sub Sub 

9. samm. Ja siin anname mõne komakoha, näiteks 0, 123, või võite vastavalt vajadusele valida mis tahes väärtuse.

Kood:

 Sub VBA_CDate2 () Dim Date1 As Date Date1 = "12345" Dim Date2 As Date Date2 = "12/3/45" Dim Date3 as Date Date3 = "00:10:00" Dim Date4 As Date Date4 = "0, 123" End Sub 

Nüüd on erinevatel ülalnimetatud muutujatel salvestatud väärtuste väljundi nägemiseks kaks võimalust. MsgBox võimaldab meil näha kõiki väärtusi ainult üheaegselt, kuid kasutades Debug.print võimaldab meil näha kõiki väljundite väljundeid korraga.

10. samm: nii et siin on parem, kui valime Debug.Print, nagu allpool näidatud. Ja määrake samal real kõik muutujad alates kuupäevast 1 kuni kuupäevani 4.

Kood:

 Sub VBA_CDate2 () Dim Date1 As Date Date1 = "12345" Dim Date2 As Date Date2 = "12/3/45" Dim Date3 As Date Date3 = "00:10:00" Dim Date4 As Date Date4 = "0.123" Silumine. Prindi kuupäev1, kuupäev2, kuupäev3, kuupäev4 lõpp alam 

11. samm: ja väljundi nägemiseks kasutame kohest akent, nagu allpool näidatud. Selle juurde pääsemiseks minge vahekaardile Vaade ja valige kohene aken, nagu allpool näidatud.

12. samm: käivitage kood, vajutades F5-klahvi või klõpsates nuppu Esita. Näeme, kuupäeva andmete tüüp on meile väljundi andnud, kuid see pole standardses andmevormingus.

13. samm: tavaandmete välja saamiseks kasutame siin ka CDate. Seega määrame igaks kuupäevaks ja kellaajaks CDate, mida kasutasime erinevate muutujate jaoks, nagu allpool näidatud.

Kood:

 Alam VBA_CDate2 () Tühja kuupäeva1 kui kuupäeva kuupäev1 = CDate ("12345") Tühja kuupäeva2 kui kuupäeva kuupäev2 = CDate ("12/3/45") Tühja kuupäeva3 kui kuupäeva kuupäev3 = CDate ("00:10:00") Tühja kuupäeva4 Kuna Kuupäev Kuupäev4 = CDate ("0, 123") Silumine.Printeri kuupäev1, Kuupäev2, Kuupäev3, Kuupäev4 Lõpp-alam 

14. samm. Käivitage nüüd kood, vajutades klahvi F5 või klõpsates nuppu Esita.

Näeme, et nii Date kui ka CDate väljund on samad, kuid nende kahe vahel on põhiline ühine erinevus. See tähendab, et CDate suudab teisendada mis tahes tüüpi numbrid standardsesse kuupäevavormingusse.

15. samm: proovime CDate abil mis tahes teksti või tähestikku ja vaatame, mis me saame. Seega oleme muutujasse Date4 sisestanud juhusliku teksti abc- na .

Kood:

 Alam VBA_CDate2 () Tühja kuupäeva1 kui kuupäeva kuupäev1 = CDate ("12345") Tühja kuupäeva2 kui kuupäeva kuupäev2 = CDate ("12/3/45") Tühja kuupäeva3 kui kuupäeva kuupäev3 = CDate ("00:10:00") Tühja kuupäeva4 Kuna Kuupäev Kuupäev4 = CDate ("abc") Silumine.Printeri kuupäev1, Kuupäev2, Kuupäev3, Kuupäev4 Lõpp Sub 

16. samm: käivitage kood uuesti. Saame teadete kasti veateatega Tüüp ebakõla . Selle põhjuseks on asjaolu, et CDate ei saa teksti lugeda ja kuupäeva ja kellaaja vormingusse teisendada.

Excel VBA CDate-funktsiooni plussid ja miinused

  • See võib vajaduse korral teisendada mis tahes kuupäeva või kellaaja standardvormingusse.
  • VBA CDate tõlgendab suvalist arvu kuupäeva väärtusena ja teisendab selle hiljem standardvormingusse.
  • See ei suuda teksti tõlgendada ega teisendada kuupäevavormingusse.

Asjad, mida meeles pidada

  • CDate võib numbreid sisendina pidada ainult numbriteks, kuid need võivad olla mis tahes vormingus.
  • Teksti väärtust ei saa teisendada.
  • Kui sisestame kellaaja või kuupäeva, mis on juba standardses vormingus, tagastab see uuesti sama väärtuse kui väljund.
  • Kuupäev ja CDate funktsioon töötavad samal viisil. Arvestades, et CDate abil saame teisendada nii kellaaega kui ka kuupäeva.

Soovitatavad artiklid

See on VBA CDate-funktsiooni juhend. Siin arutatakse, kuidas kasutada CDate-funktsiooni Excelis, kasutades VBA-koodi, koos praktiliste näidete ja allalaaditava excelimalliga. Võite vaadata ka meie teisi soovitatud artikleid -

  1. VBA kuupäeva vorming
  2. Excel DATEDIF funktsioon
  3. VBA DateSerial
  4. Excel DATEDIF funktsioon

Kategooria: