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