在Excel VBA中的DateDiff函数可用来获取两个日期之间的天数。

将工作表上的一个命令按钮并添加以下代码行:

Dim firstDate As Date, secondDate As Date, n As Integer

firstDate = DateValue("Jan 19, 2020")

secondDate = DateValue("Feb 25, 2020")

n = DateDiff("d", firstDate, secondDate)

MsgBox n

说明:第一,我们声明两个日期。接下来,我们初始化使用DATEVALUE函数的两个日期。 DateDiff函数有三个参数。在“d”为第一个参数填写,因为我们希望日的两个日期之间的数字。最后,我们使用一个MsgBox来显示两个日期之间的天数。

结果当您单击工作表上的命令按钮:

Days between two Dates in Excel VBA

更改“d”为“WW”来获得两个日期之间的周数。请将您的DateDiff的光标在Visual Basic编辑器,然后点击F1有关其他间隔符的帮助。