VBA DATEVALUE

Apa itu Fungsi VBA DateValue?

Fungsi DateValue adalah fungsi bawaan di Excel VBA di bawah kategori fungsi Tanggal / waktu. Ia bekerja sebagai fungsi VBA dan fungsi lembar kerja di vba. Fungsi ini mengembalikan nomor seri atau nilai Tanggal yang diberikan dalam format representasi string mengabaikan informasi waktu yang disediakan oleh string Tanggal. Ini digunakan dalam dua cara berbeda di Excel. Fungsi ini digunakan sebagai rumus lembar kerja yang dimasukkan ke dalam sel lembar kerja. Ini digunakan sebagai kode makro dalam aplikasi VBA yang memasukkannya melalui Editor Visual Basic yang terkait dengan Microsoft Excel.

Pada artikel ini, kita akan mempelajari contoh VBA DATEVALUE dan cara menggunakannya dengan penjelasan yang jelas.

Penjelasan Fungsi Nilai Tanggal VBA

Di VBA, DATEVALUE menggunakan sintaks berikut.

Fungsi ini hanya menggunakan satu Argumen atau Parameter

  • Tanggal : Ini adalah tanggal yang direpresentasikan dalam format string
  • Pengembalian: Fungsi ini mengembalikan nilai tanggal saat digunakan sebagai fungsi VBA. Ini mengembalikan nilai tanggal saat digunakan sebagai fungsi lembar kerja

Fungsi VBA DateValue mampu menafsirkan data yang direpresentasikan dalam format teks yang disebutkan dalam format Excel yang valid. Itu tidak dapat mengembalikan nilai tanggal jika string menyertakan representasi teks hari kerja.

Manfaat dari fungsi VBA DateValue adalah mengekstrak nilai tanggal dari string dan mengubah tanggal dengan waktu menjadi satu-satunya tanggal. Kita dapat dengan mudahnya bahwa ketika tanggal diberikan dengan waktu, fungsi ini hanya nilai tanggal yang menghindari nilai waktu.

Bagaimana Cara Menggunakan Excel VBA DATEVALUE?

Untuk menggunakan fungsi DateValue di Excel, pertama-tama perlu membuka editor VBA.

Tombol perintah harus ditempatkan di lembar kerja Excel untuk menambahkan baris program VBA ke dalamnya. Untuk mengimplementasikan baris program, pengguna harus mengklik tombol perintah di lembar excel. Untuk mendapatkan output yang valid dari program, input yang valid diberikan melalui argumen. Misalnya, kode berikut membantu pembuatan makro untuk menjalankan fungsi DateValue untuk mengekstrak nilai tanggal dari teks di VBA.

Program VBA:  

 Sub Datebutton () Dim myDate As Date myDate = DateValue (“15 Agustus 1991”) Tanggal MsgBox (myDate) End Sub

Kode ini menghasilkan tanggal sebagai 15 dari input yang diberikan.

Contoh Excel VBA DATEVALUE

Di bawah ini adalah contoh DateValue di Excel VBA.

Anda dapat mengunduh Template Excel DateValue VBA ini di sini - Template Excel VBA DateValue

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

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

Langkah 1: Buka Tab Pengembang, letakkan kursor pada sel di lembar Excel dan klik opsi 'Sisipkan' dan pilih 'Tombol Perintah' di bawah Kontrol ActiveX seperti yang ditunjukkan pada gambar.

Seret Tombol ke tempat yang Anda inginkan dan berikan keterangan sebagai tombol Data dari jendela properti.

Langkah 2: Klik dua kali pada tombol itu akan mengarahkan ke proyek VBA dan menulis kode antara tombol perintah Sub Pribadi dan sub akhir.

Kode tersebut harus dikembangkan seperti di bawah ini untuk mendapatkan tanggal, bulan, dan tahun.

Kode:

 Private Sub Datebutton1_Click () Dim Exampledate As Date Exampledate = DateValue ("April 19,2019") Tanggal MsgBox MsgBox Tahun (Contoh) Bulan MsgBox (Contoh) End Sub

Pada kode ini Datebutton1_Click () adalah namanya dan contoh adalah variabel dengan tipe data Date dan Msgbox untuk menampilkan outputnya.

Langkah 3: Saat mengembangkan kode, kesalahan ketidakcocokan jenis vba akan terjadi dan perlu menanganinya.

Langkah 4: Pada langkah ini, jalankan program dengan mengklik opsi run.

Atau kita dapat memeriksa atau men-debug program selangkah demi selangkah dengan memilih opsi Langkah Ke di bawah menu Debug. Jika kode kami tanpa kesalahan, itu akan menampilkan output.

Langkah 5 : Ketika program dijalankan, ini pertama kali menampilkan kotak pesan dengan tanggal yang diberikan dalam input teks. Selanjutnya, klik OK untuk melihat nilai tahun lagi klik OK pada kotak pesan untuk melihat nilai bulan.

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

Contoh # 2 - Menggunakan DatePart untuk Mendapatkan Bagian Tanggal yang Berbeda

Langkah 1: Buka Tab Pengembang Excel, letakkan kursor pada sel di lembar Excel dan klik opsi 'Sisipkan' dan pilih 'Tombol Perintah' di bawah Kontrol ActiveX seperti yang ditunjukkan pada gambar.

Langkah 2: Seret tombol dan beri keterangan sebagai DatePart di bawah properti.

Klik dua kali pada tombol ini, itu mengarahkan ke lembar Editor Visual Basic dan ditampilkan sebagai berikut.

Langkah 3: Kembangkan kode menggunakan DatePart dengan DateValue seperti yang ditunjukkan pada gambar.

Kode:

 Private Sub Datepart1_Click () Redupkan 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

Dalam program ini, DatePart1 adalah nama makro dan partDate adalah nama argumen dengan tipe data 'varian'. Untuk menampilkan tahun, tanggal, bulan, dan seperempat, format diterapkan sebagai “yyyy”, “d”, “m”, dan “q”. Jika kami melakukan kesalahan dalam format itu akan menampilkan kesalahan berikut.

Langkah 4: Setelah berhasil men-debug program, jalankan program dengan mengklik tombol run menggunakan tombol pintas excel F5.

Kode pertama menampilkan tanggal lengkap kemudian setelah mengklik setiap OK dari kotak pesan, ini menunjukkan nilai tahun setelah nilai Tanggal, Nilai Bulan, Nilai Quater masing-masing.

Hal yang Perlu Diingat Tentang VBA DATEVALUE

Hal-hal berikut harus diingat saat menggunakan fungsi DateValue di Excel VBA

  • Run time error 13 dengan pesan Type Mismatch ditampilkan ketika tanggal yang diberikan ke fungsi DateValue tidak dapat diubah menjadi tanggal yang valid. Kami membutuhkan tanggal adalah format teks yang tepat
  • Ketika kami mencoba untuk mendapatkan satu-satunya tanggal dari argumen string dengan kode 'tanggal kotak pesan (nama argumen)', ini akan menampilkan kesalahan tipe mismatch.
  • Kita bisa melihat output dari fungsi DateValue tanpa membuka editor VBA. Ini dilakukan dengan mengklik tombol perintah dan memilih makro yang dibuat untuk program terkait
  • When DatePart is used to get the values, the appropriate format should be followed. Otherwise, it leads ‘run time error 5’ with message invalid procedure call or argument.