Cara mengurangi hari dari tanggal di vba (dengan contoh)

Anda dapat menggunakan fungsi DateAdd di VBA dengan angka negatif untuk mengurangi jumlah hari tertentu dari suatu tanggal.

Berikut cara umum untuk menggunakan fungsi ini dalam praktik:

 Sub SubtractDays()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = DateAdd(" d ", -4, Range(" A " & i))
    Next i
    
End Sub

Makro khusus ini akan mengurangi empat hari dari setiap tanggal dalam rentang A2:A10 dan menampilkan tanggal baru dalam rentang B2:B10 .

Perhatikan bahwa argumen “d” dalam fungsi DateAdd menetapkan bahwa kita ingin mengurangi hari dari tanggal, bukan satuan waktu lainnya.

Lihat halaman dokumentasi VBA untuk daftar lengkap unit yang dapat Anda gunakan dalam fungsi DateAdd .

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: kurangi hari dari tanggal di VBA

Misalkan kita memiliki daftar tanggal berikut di Excel:

Misalkan kita ingin mengurangi empat hari dari setiap tanggal dan menampilkan tanggal baru di kolom B.

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub SubtractDays()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = DateAdd(" d ", -4, Range(" A " & i))
    Next i
    
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa kolom B berisi setiap tanggal di kolom A dengan dikurangi empat hari.

Jangan ragu untuk mengubah nilai numerik di fungsi DateAdd untuk mengurangi jumlah hari yang berbeda dari setiap tanggal.

Catatan : Anda dapat menemukan dokumentasi lengkap fungsi DateAdd di VBA di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

Bagaimana membandingkan tanggal di VBA
Bagaimana mengkonversi string ke tanggal di VBA
Cara menghitung hari antara dua tanggal di VBA