Nilai Tarikh VBA | Bagaimana Menggunakan Fungsi DateValue dalam Excel VBA?

Apakah Fungsi DateValue VBA?

Fungsi DateValue adalah fungsi terbina dalam Excel VBA di bawah kategori fungsi Tarikh / masa. Ia berfungsi sebagai fungsi VBA dan fungsi lembaran kerja di vba. Fungsi ini mengembalikan nombor siri atau nilai Tarikh yang disediakan dalam format representasi rentetan mengabaikan maklumat masa yang diberikan oleh rentetan Tarikh. Ia digunakan dalam dua cara yang berbeza di Excel. Fungsi ini digunakan sebagai formula lembaran kerja yang masuk ke dalam sel lembaran kerja. Ini digunakan sebagai kod makro dalam aplikasi VBA yang memasukkannya melalui Visual Basic Editor yang dikaitkan dengan Microsoft Excel.

Dalam artikel ini, kita akan mempelajari contoh TARIKH VBA VBA dan cara menggunakannya dengan penerangan yang jelas.

Penjelasan Fungsi Nilai Tarikh VBA

Dalam VBA, DATEVALUE menggunakan sintaks berikut.

Fungsi ini hanya menggunakan Argumen atau Parameter tunggal

Tarikh : Ia adalah tarikh yang ditunjukkan dalam format rentetan
Returns: Fungsi ini mengembalikan nilai tarikh apabila ia digunakan sebagai fungsi VBA. Ia mengembalikan nilai tarikh apabila ia digunakan sebagai fungsi lembaran kerja

Fungsi VBA DateValue mampu menafsirkan data yang ditunjukkan dalam format teks yang disebutkan dalam format Excel yang sah. Ia tidak dapat mengembalikan nilai tarikh jika rentetan itu merangkumi perwakilan teks pada hari kerja.

Kelebihan fungsi VBA DateValue adalah mengekstrak nilai tarikh dari rentetan dan menukar tarikh dengan masa ke satu-satunya tarikh. Kita dapat dengan mudah bahawa apabila tarikh diberikan dengan waktu, fungsi ini hanya nilai tarikh mengelakkan nilai waktu.

Bagaimana Menggunakan TARIKH NILAI Excel VBA?

Untuk menggunakan fungsi DateValue di Excel terlebih dahulu perlu membuka editor VBA.

Butang arahan perlu diletakkan di lembaran kerja Excel untuk menambahkan baris program VBA ke dalamnya. Untuk melaksanakan baris program, pengguna perlu mengklik butang perintah di lembar excel. Untuk mendapatkan output yang sah dari program, input yang sah diberikan melalui argumen. Sebagai contoh, kod berikut membantu pembuatan makro untuk menjalankan fungsi DateValue untuk mengekstrak nilai tarikh dari teks di VBA.

Program VBA:

 Sub Tombol Date () Dim myDate As Date myDate = DateValue (“August 15, 1991”) MsgBox Date (myDate) End Sub

Kod ini menghasilkan tarikh 15 dari input yang diberikan.

Contoh TARIKH TARIKH VBA Excel

Berikut adalah contoh DateValue dalam Excel VBA.

Anda boleh memuat turun Templat Excel DateValue VBA ini di sini - Templat Excel DateValue VBA

Contoh # 1 - Dapatkan Hari, Bulan, dan Tahun dari Tarikh

Beberapa langkah diikuti untuk membuat dan melaksanakan program di VBA. Itu termasuk

Langkah 1: Pergi ke Tab Pembangun, letakkan kursor pada sel di lembaran Excel dan klik pada pilihan 'Sisipkan' dan pilih 'Butang Perintah' di bawah Kawalan ActiveX seperti yang ditunjukkan dalam gambar.

Seret Butang ke tempat yang anda mahukan dan berikan kapsyen sebagai Butang Tarikh dari tetingkap sifat.

Langkah 2: Klik dua kali pada butang itu akan mengalihkan ke projek VBA dan menulis kod antara butang arahan Sub Sub Swasta dan sub akhir.

Kod harus dikembangkan seperti di bawah untuk mendapatkan tarikh, bulan, dan tahun.

Kod:

 Butang Sub Tarikh Swasta1_Klik () Dim Diperiksa Sebagai Tarikh Diperiksa = DateValue ("April 19,2019") MsgBox Date MsgBox Year (Exampledate) MsgBox Bulan (Exampledate) End Sub

Dalam kod ini, Datebutton1_Click () adalah nama dan contohnya berubah-ubah dengan jenis data Date dan Msgbox untuk memaparkan output.

Langkah 3: Semasa mengembangkan kod, kesalahan ketidakcocokan jenis vba akan berlaku dan perlu mengatasinya.

Langkah 4: Pada langkah ini, jalankan program mengklik pilihan jalankan.

Atau kita boleh menyemak atau menyahpepijat program langkah demi langkah memilih pilihan Langkah Masuk ke bawah menu Debug. Sekiranya kod kami tanpa kesalahan, ia akan memaparkan outputnya.

Langkah 5 : Ketika program dijalankan, pertama kali memaparkan kotak pesan dengan tarikh yang diberikan dalam input teks. Seterusnya, klik OK untuk melihat nilai tahun sekali lagi klik OK pada kotak mesej untuk melihat nilai bulan.

Catatan: Langkah-langkah ini harus diikuti dengan jelas untuk mendapatkan hasil yang tepat.

Contoh # 2 - Menggunakan Bahagian Tarikh untuk Mendapatkan Bahagian Tarikh yang berbeza

Langkah 1: Pergi ke Excel Developer Tab, letakkan kursor pada sel dalam helaian Excel dan klik pada pilihan 'Insert' dan pilih 'Command Button' di bawah ActiveX Control seperti yang ditunjukkan dalam gambar.

Langkah 2: Seret butang dan berikan kapsyen sebagai DatePart di bawah sifat.

Klik dua kali pada butang ini, ia mengarahkan ke lembaran Editor Visual Basic dan dipaparkan seperti berikut.

Langkah 3: Kembangkan kod menggunakan DatePart dengan DateValue seperti yang ditunjukkan dalam gambar.

Kod:

 Subdepart Sub Pribadi1_Klik () Dimd partdate Sebagai Variant partdate = DateValue ("8/15/1991") MsgBox partdate MsgBox Datepart ("yyyy", partdate) MsgBox Datepart ("dd", partdate) MsgBox Datepart ("mm", partdate) Bahagian MsgBox ("q", partdate) Akhir Sub

Dalam program ini, DatePart1 adalah nama makro dan partDate adalah nama argumen dengan jenis data 'varian'. Untuk menampilkan tahun, tanggal, bulan, dan seperempat, format diterapkan sebagai "yyyy", "d", "m", dan "q". Sekiranya kita melakukan kesalahan dalam format, ia akan menunjukkan kesalahan berikut.

Langkah 4: Setelah berjaya melakukan debug program, jalankan program dengan mengklik pada butang jalankan menggunakan tombol pintas excel F5.

Kod pertama kali memaparkan tarikh penuh kemudian setelah mengklik setiap OK dari kotak msg, ia menunjukkan nilai tahun selepas nilai Tarikh, Nilai Bulan, Nilai Kuater masing-masing.

Perkara Yang Perlu Diingati Mengenai TARIKH VBA

Perkara-perkara berikut mesti diingat semasa menggunakan fungsi DateValue di Excel VBA

Kesalahan jangka masa 13 dengan mesej Jenis Ketidakcocokan dipaparkan apabila tarikh yang diberikan ke fungsi DateValue tidak dapat ditukar menjadi tarikh yang sah. Kita memerlukan tarikh adalah format teks yang betul
Apabila kita berusaha mendapatkan satu-satunya tarikh dari rentetan argumen dengan kod 'tarikh msgbox (nama argumen)', ia memaparkan jenis kesalahan ketidakcocokan.
Kita dapat melihat output fungsi DateValue tanpa membuka editor VBA. Ia dilakukan dengan mengklik butang arahan dan pilih makro yang dibuat untuk program masing-masing
Apabila DatePart digunakan untuk mendapatkan nilai, format yang sesuai harus diikuti. Jika tidak, ia membawa 'run time error 5' dengan panggilan atau argumen prosedur tidak sah.