Fungsi CDATE dalam VBA
VBA CDATE adalah fungsi penukaran jenis data yang menukar jenis data yang sama ada teks atau rentetan ke jenis data tarikh. Setelah nilai ditukar menjadi jenis data tarikh maka kita boleh bermain-main dengan perkara tarikh.
Sintaks CDATE
Berikut adalah sintaks fungsi CDATE di VBA.
Ekspresi: Ekspresi dapat berupa string atau nilai teks atau variabel yang berisi nilai yang akan ditukar menjadi jenis data tanggal.
CDATE mengenal pasti format tarikh dan waktu di komputer yang sedang kami jalankan dan menukar nilai yang dibekalkan ke jenis data tarikh yang sama. Sekiranya anda membekalkan hanya hari dan bulan dan mengabaikan tahun, maka fungsi CDATE mengambil tahun sistem, ditunjukkan bersama dengan hari dan bulan yang dibekalkan.
Kita akan melihat lebih banyak contoh di bahagian bawah.
Bagaimana Menggunakan Fungsi CDATE di Excel VBA?
Contoh Fungsi CDATE dalam Excel VBA.
Contoh # 1
Sebelum saya menunjukkan contoh CDATE, lihat kod di bawah terlebih dahulu.
Kod:
Sub CDATE_Contoh1 () Dim k As String k = "25-12" MsgBox k End Sub
Di atas untuk pemboleh ubah "k", saya telah menetapkan nilai sebagai "25-12". Apabila saya melaksanakan kod ini, kita akan melihat nilai yang sama di kotak mesej di VBA.
Tetapi ini boleh ditukar menjadi tarikh dengan menggunakan fungsi VBA CDATE, kerana ini menentukan satu lagi pemboleh ubah sebagai Tarikh.
Kod:
Dim k1 Seperti Tarikh
Untuk pemboleh ubah ini, "k1" memberikan fungsi CDATE dan membekalkan pemboleh ubah "k," yang memegang rentetan "25-12". Dan untuk kotak mesej menunjukkan nilai pemboleh ubah "k1" dan bukan "k."
Kod:
k1 = CDate (k)
Sekarang jalankan kod dan lihat hasilnya di kotak mesej.
Jadi hasilnya adalah "12/25/2019".
Perhatikan dengan teliti nilai yang telah kami berikan. Kami telah membekalkan "25-12" yang belum kami bekalkan tahun.
Semasa menulis artikel ini tahun ini dalam sistem saya adalah 2019, jadi VBA CDATE menukar nilai rentetan "25-12" hingga kini dan menambahkan tahun sistem 2019 ke dalamnya. Jadi keputusan akhir membaca seperti 2019/12/25 ini iaitu, 25 th Disember 2019.
Contoh # 2
Sekarang, lihat kod di bawah.
Kod:
Sub CDATE_Contoh2 () Dim k Sebagai Varian Dim kResult As Date T = 43889 kResult = CDate (k) MsgBox kResult End Sub
Dalam kod di atas untuk pemboleh ubah "k," saya telah menggunakan nombor "43889". Kita semua tahu ini adalah nombor siri, tetapi untuk pemboleh ubah lain, "KResult," kita telah menukar nilai ini hingga kini dengan menggunakan fungsi "CDATE".
Hasil yang sama dari pemboleh ubah "KResult" ditunjukkan dalam kotak mesej.
Jalankan kod dan lihat keajaiban fungsi "CDATE."
Ini menunjukkan hasilnya sebagai "28/2/2020" jika Anda tidak biasa dengan tarikh di excel, maka anda pasti tertanya-tanya bagaimana ini berlaku.
Contohnya, masukkan nombor yang sama (43889) di salah satu sel dalam hamparan.
Untuk ini, gunakan format sebagai "DD-MM-YYYY."
Sekarang klik Ok dan lihat hasilnya.
Kini hasilnya berubah dari nombor siri hingga kini. Oleh kerana kami telah menggunakan format tarikh di atas nombor siri, kami telah menunjukkan tarikhnya.
Jadi ini bermaksud nombor siri 43889 sama dengan tarikh 28-02-2020.
Oleh itu, fungsi CDATE kod VBA kami telah melaksanakan perkara yang sama dengan menukar nilai rentetan menjadi jenis data tarikh.
Contoh # 3
Untuk contoh ini, lihat kod di bawah.
Sub CDATE_Contoh3 () Nilai Dim1 Dim Nilai2 Nilai Dim 3 Nilai1 = "24 Disember 2019" Nilai2 = # 6/25/2018 # Nilai3 = "18:30:48 PM" MsgBox CDate (Nilai1) MsgBox CDate (Nilai2) MsgBox CDate ( Nilai3) Sub Akhir
Apabila kita menjalankan kod ini, kita akan mendapat hasil di bawah.
Jadi, semua nilai ditukar kepada jenis data tarikh dengan fungsi CDATE.
Perkara yang Perlu Diingat
- CDATE hanya menukar nombor dan nilai rentetan kepada jenis data tarikh.
- Ini berguna apabila kita menggunakannya dengan fungsi lain.
- Sekiranya nilai jenis data yang salah diberikan, maka kita akan mendapat ralat ketidakcocokan jenis.
- Oleh kerana tarikh dan waktu adalah sebahagian daripada nombor siri, ia mengubah waktu dan juga waktu yang tepat.
