Vba'da bugüne günler nasıl eklenir (örneklerle)

Bir tarihe belirli sayıda gün eklemek için VBA’daki DateAdd işlevini kullanabilirsiniz.

Bu işlevi pratikte kullanmanın yaygın bir yolu aşağıda verilmiştir:

 SubAddDays ()

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

Bu özel makro, A2:A10 aralığındaki her tarihe dört gün ekleyecek ve B2:B10 aralığındaki yeni tarihleri görüntüleyecektir.

DateAdd işlevindeki “d” bağımsız değişkeninin, tarihlere başka bir zaman birimi yerine gün eklemek istediğimizi belirttiğini unutmayın.

DateAdd işlevinde kullanabileceğiniz birimlerin tam listesi için VBA dokümantasyon sayfasına bakın.

Aşağıdaki örnek, bu sözdiziminin pratikte nasıl kullanılacağını gösterir.

Örnek: VBA’da bu güne gün ekleme

Excel’de aşağıdaki tarih listesine sahip olduğumuzu varsayalım:

Her tarihe dört gün eklemek ve yeni tarihleri B sütununda görüntülemek istediğimizi varsayalım.

Bunun için aşağıdaki makroyu oluşturabiliriz:

 SubAddDays ()

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

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

B sütununun, A sütunundaki tarihlerin her biri artı dört günü içerdiğini unutmayın.

Her tarihe farklı sayıda gün eklemek için DateAdd işlevindeki sayısal değeri değiştirmekten çekinmeyin.

Not : VBA’daki DateAdd işlevinin tam belgelerini burada bulabilirsiniz.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA’da tarihler nasıl karşılaştırılır
VBA’da dizeyi tarihe dönüştürme
VBA’da iki tarih arasındaki günler nasıl hesaplanır