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, memasukkannya melalui Visual Basic Editor yang terkait dengan Microsoft Excel.
Dalam artikel ini, kita akan mempelajari contoh TARIKH VBA dan bagaimana 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 teks perwakilan hari kerja.
Manfaat fungsi VBA DateValue adalah mengekstrak nilai tarikh dari rentetan dan menukar tarikh dengan masa ke satu-satunya tarikh. Kita boleh 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, pertama-tama 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 lembaran excel. Untuk mendapatkan output yang sah dari program, input yang sah diberikan melalui argumen. Sebagai contoh, kod berikut membantu penciptaan 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.
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; ia akan mengalihkan ke projek VBA dan menulis kod antara butang Sub-arahan Swasta dan sub akhir.
Kod harus dikembangkan seperti di bawah untuk mendapatkan tarikh, bulan, dan tahun.
Kod:
Butang Sub Tarikh Persendirian1_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 tarikh contoh 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 men-debug program langkah demi langkah, memilih pilihan Step Into di bawah menu Debug. Sekiranya kod kami tanpa kesalahan, ia akan memaparkan outputnya.
Langkah 5 : Apabila program dijalankan, pertama kali memaparkan kotak mesej 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.
Contoh # 2 - Menggunakan Bahagian Tarikh untuk Mendapatkan Bahagian Tarikh yang berbeza
Langkah 1: Pergi ke Tab Pembangun Excel, 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.
Langkah 2: Seret butang dan beri kapsyen sebagai DatePart di bawah sifat.
Klik dua kali pada butang ini. Ia mengarahkan ke lembaran Editor Visual Basic dan dipaparkan seperti berikut.
Step 3: Develop the code using the DatePart with DateValue, as shown in the figure.
Code:
Private Sub Datepart1_Click() Dim partdate As Variant partdate = DateValue("8/15/1991") MsgBox partdate MsgBox Datepart("yyyy", partdate) MsgBox Datepart("dd", partdate) MsgBox Datepart("mm", partdate) MsgBox Datepart("q", partdate) End Sub
In this program, DatePart1 is the macro name, and partDate is the argument name with data type ‘variant.’ For displaying year, date, month, and a quarter, the format is applied as “yyyy,” “d,” “m,” and “q.” If we make any mistake in the format, it displays the following error.
Step 4: After successful debugging of the program, run the program by clicking on the run button to use excel shortcut key F5.
The code first displays the full date, and then after clicking every OK from the msgbox, it shows the year value after that Date value, Month Value, Quater Value, respectively.
Things to Remember About the VBA DATEVALUE
The following things must be remembered while using the DateValue function in Excel VBA
- Run time error 13 with message Type Mismatch is displayed when the date provided to the DateValue function is not able to convert into a valid date. We need date is a proper text format
- When we try to get the only date from the string argument with code ‘msgbox date (argument name),’ it displays the type mismatch error.
- We can see the output of the DateValue function without opening the VBA editor. It is done by clicking the command button and select the macro created for the respective program.
- 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.
