Jak dodać dni do dnia dzisiejszego w vba (z przykładami)

Możesz użyć funkcji DateAdd w VBA, aby dodać określoną liczbę dni do daty.

Oto typowy sposób wykorzystania tej funkcji w praktyce:

 SubAddDays ()

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

To konkretne makro doda cztery dni do każdej daty w zakresie A2:A10 i wyświetli nowe daty w zakresie B2:B10 .

Należy zauważyć, że argument „d” w funkcji DateAdd określa, że do dat chcemy dodać dni , a nie inną jednostkę czasu.

Pełną listę jednostek, których można używać w funkcji DateAdd , można znaleźć na stronie dokumentacji VBA .

Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.

Przykład: Dodaj dni do tego dnia w VBA

Załóżmy, że mamy następującą listę dat w Excelu:

Załóżmy, że chcemy dodać cztery dni do każdej daty i wyświetlić nowe daty w kolumnie B.

W tym celu możemy utworzyć następujące makro:

 SubAddDays ()

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

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Należy pamiętać, że kolumna B zawiera każdą datę z kolumny A plus cztery dni.

Możesz zmienić wartość liczbową w funkcji DateAdd , aby dodać inną liczbę dni do każdej daty.

Uwaga : Pełną dokumentację funkcji DateAdd w VBA znajdziesz tutaj .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

Jak porównać daty w VBA
Jak przekonwertować ciąg znaków na bieżąco w VBA
Jak obliczyć dni między dwiema datami w VBA