Access计算两个日期之间的时间间隔

计算两个日期的间隔

包括两个日期的相隔多少天，相隔多少月，相隔多少季度，相隔多少年

Sub 时间间隔()
    Dim Dat1, Dat2, Dat3 As String
    Dat1 = InputBox("请输入起始日期")
    Dat2 = InputBox("请输入结束日期")
    MsgBox Dat1 & "与" & Dat2 & "的时间间隔为：" & vbCrLf _
    & DateDiff("D", Dat1, Dat2) & " 日" & vbCrLf _
    & DateDiff("M", Dat1, Dat2) & " 月" & vbCrLf _
    & DateDiff("Q", Dat1, Dat2) & " 季度" & vbCrLf _
    & DateDiff("YYYY", Dat1, Dat2) & " 年"
End Sub