Fungsi CDATE dalam VBA
VBA CDATE adalah fungsi penukaran jenis data yang menukar jenis data yang berupa teks atau rentetan menjadi jenis data tarikh. Setelah nilai ditukar kepada 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 pemboleh ubah yang berisi nilai yang akan ditukar ke 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 memerlukan 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.
Anda boleh memuat turun Templat VBA CDATE Excel ini di sini - Templat VBA CDATE ExcelContoh # 1
Sebelum saya menunjukkan contoh CDATE, lihat dahulu kod di bawah.
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 dapat ditukar hingga kini dengan menggunakan fungsi VBA CDATE. Untuk ini tentukan satu lagi pemboleh ubah sebagai Tarikh.
Kod:
Dim k1 Seperti Tarikh
Untuk pemboleh ubah ini "k1" tetapkan fungsi CDATE dan berikan 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 berikan tahun.
Semasa menulis artikel ini tahun ini dalam sistem saya adalah 2019, jadi VBA CDATE mengubah nilai rentetan "25-12" hingga kini dan menambahkan tahun sistem 2019 ke dalamnya. Jadi keputusan akhir dibaca seperti ini 12/25/2019 iaitu 25 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 pemboleh ubah yang sama "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 telah berubah dari nombor siri hingga kini. Kerana kami telah menggunakan format tarikh di atas nombor siri yang telah ditunjukkan 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 semasa 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 masa dan waktu yang tepat.
