CDATE funkció a VBA-ban
A VBA CDATE egy adattípus-konverziós függvény, amely a szöveget vagy a karakterláncot tartalmazó adattípust dátum típusúvá alakítja. Miután az érték dátum adattípussá konvertálódott, akkor játszhatunk a dátumokkal.
A CDATE szintaxisa
Az alábbiakban a CDBA függvény szintaxisa található a VBA-ban.
Kifejezés: A kifejezés lehet karakterlánc vagy szövegérték, vagy olyan változó, amely a dátum adattípusává konvertálandó értéket tartalmaz.
A CDATE azonosítja a dátum és az idő formátumát a számítógépen, amelyen dolgozunk, és átalakítja a szállított értéket ugyanarra a dátumra. Ha csak napot és hónapot ad meg, és figyelmen kívül hagyja az évet, akkor a CDATE funkció a rendszert évre veszi, megjeleníti a megadott nappal és hóval együtt.
Az alábbi szakaszban újabb és újabb példákat fogunk látni.
Hogyan használható a CDATE függvény az Excel VBA-ban?
Példák a CDATE funkcióra az Excel VBA-ban.
1. példa
Mielőtt bemutatnám a CDATE példáját, először nézze meg az alábbi kódot.
Kód:
CDATE_Példa1 () Dim k As String k = "25-12" MsgBox k End Sub
A fentiekben a „k” változóhoz az értéket „25-12” -ként adtam meg. Amikor végrehajtom ezt a kódot, ugyanazt az értéket fogjuk látni a VBA üzenetmezőjében.
De ezt a VBA CDATE függvény segítségével lehet dátumra konvertálni, ehhez adjon meg még egy változót Dátumként.
Kód:
Dim k1 As Date
Ehhez a változóhoz a „k1” hozzárendeli a CDATE függvényt, és biztosítja a „k” változót, amely a „25-12” karakterláncot tartja. És az üzenetmezőnél mutassa meg a „k1” változó értékét a „k” helyett.
Kód:
k1 = CDate (k)
Most futtassa a kódot, és nézze meg az eredményt egy üzenetmezőben.
Az eredmény tehát „2019.12.25.”.
Nézze meg szorosan az általunk nyújtott értéket. „25–12” -t szállítottunk, amelyet nem szállítottunk évente.
Miközben ezt a cikket írtam, az én rendszeremben a 2019-es év 2019 volt, így a VBA CDATE a „25-12” karakterláncot a mai napig konvertálta, és hozzáadta a 2019-es rendszerévet. Tehát a végleges eredmények így olvashatók 2019.12.25- én, azaz 2019. december 25- én .
2. példa
Most nézze meg az alábbi kódot.
Kód:
Sub CDATE_Example2 () Dim k As Variant Dim kResult As Date k = 43889 kResult = CDate (k) MsgBox kResult End Sub
A „k” változó fenti kódjában a „43889” számot alkalmaztam. Mindannyian tudjuk, hogy ez egy sorszám, de egy másik változó, a „KResult” esetében ezt az értéket a „CDATE” függvény segítségével alakítottuk át dátumra.
A „KResult” változó ugyanazon eredménye jelenik meg az üzenetmezőben.
Futtassa a kódot, és nézze meg a „CDATE” funkció varázslatát.
Ha nem ismeri a dátumokat az excelben, akkor az eredmény „2020.02.28.” -Ként jelenik meg, akkor biztosan kíváncsi arra, hogyan történt ez.
Például írja be ugyanazt a számot (43889) a táblázat egyik cellájába.
Ehhez használja a „NN-HH-ÉÉÉÉ” formátumot.
Most kattintson az Ok gombra, és nézze meg az eredményt.
Most az eredmény sorozatszámról napjainkra változott. Mivel a dátumformátumot a sorszám tetejére alkalmaztuk, ez megmutatta a megfelelő dátumot.
Tehát ez azt jelenti, hogy a 43889 sorozatszám megegyezik a 2020-02-28 dátummal.
Tehát a VBA kódunkban a CDATE függvény ugyanazt hajtotta végre, a karakterlánc értékének dátum adattípussá konvertálásával.
3. példa
Ebben a példában nézze meg az alábbi kódot.
CDATE_Example3 () Dim Value1 Dim Value2 Dim Value3 Value1 = "2019. december 24." Value2 = # 6/25/2018 # Value3 = "18:30:48 PM" MsgBox CDate (Value1) MsgBox CDate (Value2) MsgBox CDate ( Érték3) Vége al
Amikor futtatjuk ezt a kódot, az alábbi eredményeket kapjuk.
Tehát az összes értéket a dátum adattípusává konvertáljuk a CDATE függvénnyel.
Dolgok, amikre emlékezni kell
- A CDATE csak a számokat és a karakterláncokat alakítja át a dátum adattípusává.
- Ez akkor hasznos, ha más funkciókkal együtt használjuk.
- Ha nem megfelelő adattípus értéket ad meg, akkor egy típushiba-hibát kapunk.
- Mivel a dátum és az idő a sorozatszám része, az időt és a megfelelő időt is átalakítja.
