Fungsi DATEDIFF di VBA adalah fungsi inbuilt di VBA yang juga dikategorikan di bawah fungsi tanggal dan waktu di VBA, fungsi ini digunakan untuk mendapatkan perbedaan antara dua tanggal, fungsi ini mengambil tiga argumen argumen pertama adalah bagian mana dari perbedaan yang kita inginkan yang bisa berupa tahun hari atau bulan atau detik dan dua tanggal dan hasilnya adalah bilangan bulat.
Fungsi DATEDIFF di VBA
Fungsi DATEDIFF di VBA menghitung perbedaan 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.
Misalnya, lihat gambar di bawah ini.
Jika kita ingin menghitung selisih antara kedua tanggal ini, kita cukup mengurangkan tanggal 1 dari tanggal 2.
Itu telah memberi kita perbedaan antara dua tanggal dalam beberapa hari. Inilah masalah dengan rumus umum ini. Jika kita membutuhkan perbedaan dalam bulan, tahun, kuartal, dll … itu tidak dapat memberi.
Di artikel ini, kami akan menunjukkan kepada Anda bagaimana menggunakan fungsi DateDiff ini di VBA.
Apa Fungsi DATEDIFF di Excel VBA?
DATEDIFF dalam VBA adalah singkatan dari "Perbedaan Tanggal antara dua tanggal".
Fungsi ini dapat memberi kita jumlah interval waktu antara dua tanggal. Saat kami ingin menemukan perbedaan antara dua tanggal, kami dapat menemukannya dalam hari, minggu, bulan, kuartal, dll…
Untuk memahami fungsinya, lihat sintaks fungsi di bawah ini.
Interval: Ini tidak lain adalah dengan cara apa Anda ingin menghitung perbedaan tanggal. Baik itu dalam hari, bulan, minggu, kuartal, dll.… Di bawah ini adalah daftarnya.
Tanggal 1: Tanggal berapa pertama Anda ingin menemukan perbedaannya.
Tanggal 2: Tanggal kedua Anda ingin mencari perbedaan dari Tanggal 1. Tanggal 1: Tanggal pertama apa Anda ingin mencari perbedaan.
Berikut 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 dalam setahun. Kita bisa memasukkan argumen berikut.
Contoh Fungsi DATEDIFF di Excel VBA
Berikut ini adalah contoh dari excel VBA DateDiff.
Contoh # 1 - Menemukan Perbedaan dalam Hari
Asumsikan Anda memiliki dua tanggal, "15-01-2018" dan "15-01-2019". Mari kita temukan semua jenis perbedaan antara kedua tanggal ini.
Langkah 1: Buat nama makro terlebih dahulu.
Kode:
Sub DateDiff_Example1 () End Sub
Langkah 2: Tentukan Dua Variabel sebagai Tanggal.
Kode:
Sub DateDiff_Example1 () Redup Tanggal1 Sebagai Tanggal Redup Tanggal2 Sebagai Tanggal Akhir Sub
Langkah 3: Sekarang, untuk variabel Date1, tetapkan "15-01-2018" dan untuk variabel Date2, tetapkan "15-01-2019".
Kode:
Sub DateDiff_Example1 () Redup Tanggal1 Sebagai Tanggal Redup Tanggal2 Sebagai Tanggal Tanggal1 = "15-01-2018" Date2 = "15-01-2019" End Sub
Langkah 4: Sekarang, untuk menyimpan hasil, tentukan satu variabel lagi sebagai Long.
Kode:
Sub DateDiff_Example1 () Redup Tanggal1 Sebagai Tanggal Redup Tanggal2 Sebagai Tanggal Redup Hasil As Long 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 () Redup Tanggal1 Sebagai Tanggal Redup Tanggal2 Sebagai Tanggal Dim Hasil Sebagai Long Date1 = "15-01-2018" Date2 = "15-01-2019" Hasil = DateDiff (End Sub
Langkah 6: Argumen pertama adalah perbedaan macam apa yang kita butuhkan antara kedua tanggal ini. Misalkan kita perlu mencari jumlah hari, jadi berikan argumen 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
Step 7: What is the first date to find the difference. Our first date is “15-01-2018” that we have already assigned to the variable “Date1”. So supply the variable name here.
Code:
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
Step 8: What is the second date to find the difference. The second date is “15-01-2019,” which holds the value through variable “Date2”.
Code:
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
Step 9: Ignore the last two parameters. Now assign the value of variable “Result” through the VBA message box.
Code:
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) MsgBox Result End Sub
Now run the code using the F5 key or manually, we will get the difference between these two dates in a number of days.
So, from “15-01-2018” to 15-01-2019,” the exact difference is one year, so we got 365 days as a result.
Like this, we can find the difference between two dates in time intervals.
Example #2 - To Find Difference in Months
Code:
Sub DateDiff_Example2() Dim Date1 As Date Dim Date2 As Date Dim Result As Long Date1 = "15-01-2018" Date2 = "15-01-2019" Result = DateDiff("M", Date1, Date2) MsgBox Result End Sub
Run this code Using the F5 key, or you can run manually to show the result as given below.
Example #3 - To Find Difference in Years
Code:
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 Result End Sub
Run this code using the F5 key or manually to see the result.
Assignment as a Practice
I hope you have understood the function of VBA DATEDIFF. Take a look at the below homework for you. Find the difference between the below dates in “Months.”
Jika Anda belum menemukan caranya, di bawah ini adalah kode yang sudah jadi untuk Anda.
Kode:
Sub Tugas () Dim k Selama Untuk k = 2 Sampai 8 Sel (k, 3) Nilai = DateDiff ("M", Sel (k, 1), Sel (k, 2)) Berikutnya k Akhir Sub
Anda dapat menjalankan kode ini secara manual atau menekan tombol F5 untuk melihat hasilnya.
