如何在 vba 中添加今天的天数（带有示例）

您可以使用 VBA 中的DateAdd函数向日期添加特定天数。

以下是在实践中使用此功能的常见方法：

 SubAddDays ()

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

此特定宏将为A2:A10范围内的每个日期添加四天，并显示B2:B10范围内的新日期。

请注意， DateAdd函数中的“d”参数指定我们要向日期添加天数，而不是其他时间单位。

有关可在DateAdd函数中使用的单位的完整列表，请参阅VBA 文档页面。

以下示例展示了如何在实践中使用此语法。

示例：在 VBA 中将天数添加到这一天

假设我们在 Excel 中有以下日期列表：

假设我们要为每个日期添加四天，并在 B 列中显示新日期。

我们可以创建以下宏来执行此操作：

 SubAddDays ()

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

当我们运行这个宏时，我们会收到以下输出：

请注意，B 列包含 A 列中的每个日期加上四天。

您可以随意更改DateAdd函数中的数值，为每个日期添加不同的天数。

注意：您可以在此处找到 VBA 中DateAdd函数的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

如何在VBA中比较日期
如何在VBA中将字符串转换为日期
如何在VBA中计算两个日期之间的天数