Vba：如何计算两个日期之间的天数

您可以在 VBA 中使用以下基本语法来计算两个日期之间的天数：

 SubDaysBetweenDates ()

    Dim i As Integer

    For i = 2 To 7
        Range(" C " & i) = DateDiff(" D ", Range(" A " & i), Range(" B " & i))
    Next i
    
End Sub

此特定示例将计算范围A2:A7和B2:B7中相应单元格中的日期之间的天数，并返回范围C2:C7中的结果。

请注意， DateDiff函数中的“D”参数指定我们要以天为单位计算日期差。

有关可用于日期差异的单位的完整列表，请参阅VBA 文档页面。

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

示例：在 VBA 中计算日期之间的天数

假设 Excel 中有以下两列包含日期：

假设我们要计算每行中开始日期和结束日期之间的日期数，并将结果显示在 C 列中。

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

 SubDaysBetweenDates ()

    Dim i As Integer

    For i = 2 To 7
        Range(" C " & i) = DateDiff(" D ", Range(" A " & i), Range(" B " & i))
    Next i
    
End Sub

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

每个开始日期和每个结束日期之间的日期数显示在 C 列中。

其他资源

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

如何在VBA中比较日期
如何使用 VBA 过滤列
如何在VBA中按字母顺序对值进行排序