VBA两个日期间隔多少天怎么计算（vba怎么判断日期的大小）

Sub 计算日期() Dim BegDate, EndDate, Msg BegDate = InputBox("请输入起始日期：") EndDate = InputBox("请输入结束日期：") MsgBox "两者相差天数为: " & DateDiff("d", BegDate, EndDate) & "天" End Sub