Vba: cara menghitung hari antara dua tanggal

Anda dapat menggunakan sintaks dasar berikut di VBA untuk menghitung jumlah hari antara dua tanggal:

 SubDaysBetweenDates ()

    Dim i As Integer

    For i = 2 To 7
        Range(" C " & i) = DateDiff(" D ", Range(" A " & i), Range(" B " & i))
    Next i
    
End Sub

Contoh khusus ini akan menghitung jumlah hari antara tanggal di sel terkait dalam rentang A2:A7 dan B2:B7 dan mengembalikan hasilnya dalam rentang C2:C7 .

Perhatikan bahwa argumen “D” dalam fungsi DateDiff menetapkan bahwa kita ingin menghitung perbedaan tanggal dalam satuan hari.

Lihat halaman dokumentasi VBA untuk daftar lengkap unit yang dapat Anda gunakan untuk perbedaan tanggal.

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Hitung hari antar tanggal di VBA

Misalkan kita memiliki dua kolom berikut dengan tanggal di Excel:

Misalkan kita ingin menghitung jumlah tanggal antara tanggal mulai dan tanggal akhir pada setiap baris dan menampilkan hasilnya di kolom C.

Kita dapat membuat makro berikut untuk melakukan ini:

 SubDaysBetweenDates ()

    Dim i As Integer

    For i = 2 To 7
        Range(" C " & i) = DateDiff(" D ", Range(" A " & i), Range(" B " & i))
    Next i
    
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Jumlah tanggal antara setiap tanggal mulai dan setiap tanggal akhir ditunjukkan pada kolom C.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

Bagaimana membandingkan tanggal di VBA
Cara memfilter kolom menggunakan VBA
Cara mengurutkan nilai berdasarkan abjad di VBA