Cara menambahkan hari ke hari ini di vba (dengan contoh)

Anda dapat menggunakan fungsi DateAdd di VBA untuk menambahkan jumlah hari tertentu ke suatu tanggal.

Berikut cara umum untuk menggunakan fungsi ini dalam praktik:

 SubAddDays ()

    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 menambahkan empat hari ke 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 menambahkan hari ke 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: Tambahkan hari ke hari ini di VBA

Misalkan kita memiliki daftar tanggal berikut di Excel:

Misalkan kita ingin menambahkan empat hari ke setiap tanggal dan menampilkan tanggal baru di kolom B.

Kita dapat membuat makro berikut untuk melakukan ini:

 SubAddDays ()

    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 masing-masing tanggal di kolom A ditambah empat hari.

Jangan ragu untuk mengubah nilai numerik di fungsi DateAdd untuk menambahkan jumlah hari yang berbeda pada 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