vba两个日期之间的天数怎么算（vba怎么判断日期的大小）

Sub 计算日期()

Dim BegDate, EndDate, Msg

BegDate = InputBox("请输入起始日期：")

EndDate = InputBox("请输入结束日期：")

MsgBox "两者相差天数为: " & DateDiff("d", BegDate, EndDate) & "天"

End Sub