如何在 vba 中从日期中减去天数（带有示例）

您可以使用 VBA 中的DateAdd函数和负数来从日期中减去特定的天数。

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

 Sub SubtractDays()

    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 列中显示新日期。

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

 Sub SubtractDays()

    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中计算两个日期之间的天数