Fungsi DateDiff VBA

Fungsi DateDiff di VBA adalah fungsi bawaan di VBA, dikategorikan di bawah fungsi Tanggal dan Waktu di VBA. Kita dapat menggunakan fungsi ini untuk mendapatkan perbedaan antara dua tanggal. Fungsi ini membutuhkan tiga argumen. Argumen pertama adalah bagian mana dari perbedaan yang kita inginkan, bisa berupa tahun, hari atau bulan, atau detik dan dua tanggal, dan hasilnya adalah bilangan bulat.

Anda bebas menggunakan gambar ini di situs web Anda, templat, dll., Harap berikan kami tautan atribusiBagaimana Memberikan Atribusi? Tautan Artikel untuk Dihiperlink
Misalnya: Sumber: Fungsi VBA DateDiff (wallstreetmojo.com)

Fungsi DATEDIFF di VBA

Fungsi DateDiff di VBA menghitung selisih antara dua tanggal dalam hari, bulan, kuartal, dan tahun.

Di Excel, menemukan perbedaan antara dua tanggal memiliki banyak cara. Anda tidak memerlukan rumus khusus untuk menghitung selisih antara dua tanggal.

Sebagai contoh, lihat gambar di bawah ini.

Jika kita ingin menghitung selisih antara kedua tanggal ini, kita dapat mengurangkan tanggal 1 dari tanggal 2.

Itu telah memberi kami perbedaan antara dua tanggal dalam beberapa hari. Namun, ini merupakan masalah dengan rumus umum ini. Jika kita membutuhkan perbedaan dalam bulan, tahun, kuartal, dll., Itu tidak dapat diberikan.

Artikel ini akan menunjukkan cara menggunakan fungsi DateDiff ini di VBA.

Apa Fungsi DATEDIFF di Excel VBA?

Datediff dalam VBA berarti “Perbedaan Tanggal antara dua tanggal”.

Fungsi ini dapat memberi kita jumlah interval waktu antara dua tanggal. Saat kita ingin menemukan perbedaan antara dua tanggal, kita bisa menemukannya dalam hari, minggu, bulan, kuartal, dll.

Untuk memahami fungsinya, lihat sintaks fungsi di bawah ini.

Interval: Ini tidak lain adalah bagaimana Anda ingin menghitung perbedaan tanggal. Daftar yang sama ada di bawah, baik dalam hari, bulan, minggu, kuartal, dll.

Tanggal 1: Tanggal berapa Anda ingin mencari perbedaannya?

Tanggal 2: Apa tanggal kedua yang ingin Anda cari selisihnya dari Tanggal 1?

Di sini, rumusnya adalah Tanggal 2 – Tanggal 1.

[Hari Pertama dalam Seminggu]: Apa hari pertama dalam seminggu? Kami setuju dengan argumen berikut.

[Minggu Pertama Tahun Ini]: Apa minggu pertama tahun ini?

[Minggu Pertama Tahun Ini]: Apa minggu pertama tahun ini? Kita bisa memasukkan argumen berikut.

Contoh Fungsi DATEDIFF di Excel VBA

Berikut ini adalah contoh DateDiff VBA Excel.

Contoh #1 – Untuk Menemukan Perbedaan dalam Hari

Asumsikan Anda memiliki dua tanggal, ’15-01-2018′ dan ’15-01-2019′. Mari kita temukan segala macam perbedaan antara kedua tanggal ini.

Langkah 1: Buat nama makro terlebih dahulu.

Kode:

Sub DateDiff_Example1() Akhir Sub

Langkah 2: Tetapkan Dua Variabel sebagai Tanggal.

Kode:

Sub DateDiff_Example1() Dim Date1 As Date Dim Date2 As Date End Sub

Langkah 3: Sekarang, untuk variabel Date1, tetapkan “15-01-2018,” dan untuk variabel Date2, tetapkan “15-01-2019.”

Kode:

Sub DateDiff_Example1() Dim Date1 As Date Dim Date2 As Date Date1 = “15-01-2018” Date2 = “15-01-2019” End Sub

Langkah 4: Sekarang, tentukan satu variabel lagi, ‘Selama’, untuk menyimpan hasil.

Kode:

Sub DateDiff_Example1() Dim Date1 As Date Redup Date2 As Date Redup Hasil Selama Date1 = “15-01-2018” Date2 = “15-01-2019” End Sub

Langkah 5: Sekarang, tetapkan nilai untuk variabel ini melalui fungsi DateDiff di VBA.

Kode:

Sub DateDiff_Example1() Redupkan Date1 As Date Redup Date2 As Date Redup Hasil Sepanjang Date1 = “15-01-2018” Date2 = “15-01-2019” Result =DateDiff( End Sub

Langkah 6: Argumen pertama adalah perbedaan apa yang kita butuhkan di antara tanggal-tanggal ini. Kita perlu menemukan jumlah hari, jadi berikan argumennya sebagai “D”.

Kode:

Sub DateDiff_Example1() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = “15-01-2018” Date2 = “15-01-2019” Result =DateDiff(“D”, End Sub

Langkah 7: Apa tanggal pertama untuk menemukan perbedaannya? Tanggal pertama kita adalah “15-01-2018”, yang telah kita tetapkan ke variabel “Date1”. Jadi, berikan nama variabel di sini.

Kode:

Sub DateDiff_Example1() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = “15-01-2018” Date2 = “15-01-2019” Result =DateDiff(“D”,Date1, End Sub

Langkah 8: Apa tanggal kedua untuk mencari perbedaannya? Tanggal kedua adalah “15-01-2019,” yang memegang nilai melalui variabel “Date2.”.

Kode:

Sub DateDiff_Example1() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = “15-01-2018” Date2 = “15-01-2019” Result = DateDiff(“D”, Date1, Date2) End Sub

Langkah 9: Abaikan dua parameter terakhir. Sekarang, tetapkan nilai variabel “Hasil” melalui kotak pesan VBAKotak Pesan VBAFungsi VBA MsgBox adalah fungsi keluaran yang menampilkan pesan umum yang disediakan oleh pengembang. Pernyataan ini tidak memiliki argumen dan pesan yang dipersonalisasi dalam fungsi ini ditulis di bawah tanda kutip ganda sedangkan untuk nilai referensi variabel disediakan.baca lebih lanjut.

Kode:

Sub DateDiff_Example1() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = “15-01-2018” Date2 = “15-01-2019” Hasil = DateDiff(“D”, Date1, Date2) MsgBox Hasil End Sub

Sekarang, jalankan kode menggunakan tombol F5 atau secara manual. Kami akan mendapatkan perbedaan antara dua tanggal ini dalam angka.

Jadi, dari ’15-01-2018′ ke ’15-01-2019,’ selisih persisnya adalah satu tahun, jadi kita mendapat 365 hari.

Seperti ini, kita dapat menemukan perbedaan antara dua tanggal dalam selang waktu.

Contoh #2 – Untuk Menemukan Perbedaan dalam Bulan

Kode:

Sub DateDiff_Example2() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = “15-01-2018” Date2 = “15-01-2019” Hasil = DateDiff(“M”, Date1, Date2) MsgBox Hasil End Sub

Jalankan kode ini menggunakan tombol F5. Anda dapat menjalankannya secara manual untuk menampilkan hasil seperti yang diberikan di bawah ini.

Contoh #3 – Untuk Menemukan Selisih Tahun

Kode:

Sub DateDiff_Example3() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = “15-01-2018” Date2 = “15-01-2019” Result = DateDiff(“YYYY”, Date1, Date2) MsgBox Hasil End Sub

Jalankan kode ini menggunakan tombol F5 atau secara manual untuk melihat hasilnya.

Tugas sebagai Praktek

Kami harap Anda telah memahami fungsi VBA DateDiff. Lihatlah pekerjaan rumah di bawah ini untuk Anda. Temukan perbedaan antara tanggal di bawah ini di “Bulan”.

Jika Anda belum menemukan caranya, di bawah ini adalah kode readymade.

Kode:

Sub Assignment() Dim k Selama k = 2 To 8 Cells(k, 3).Value = DateDiff(“M”, Cells(k, 1), Cells(k, 2)) Next k End Sub

Anda dapat menjalankan kode ini secara manual atau tekan tombol F5 untuk melihat hasilnya.

Artikel yang Direkomendasikan

Artikel ini adalah panduan untuk Fungsi DateDiff VBA. Di sini kita belajar bagaimana menggunakan Fungsi DateDiff untuk menemukan perbedaan hari, bulan, dan tahun di Excel VBA, contoh praktis, dan template yang dapat diunduh. Di bawah ini Anda dapat menemukan beberapa artikel Excel VBA yang berguna: –