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