Access計(jì)算兩個(gè)日期之間的時(shí)間間隔

計(jì)算兩個(gè)日期的間隔

包括兩個(gè)日期的相隔多少天，相隔多少月，相隔多少季度，相隔多少年

Sub 時(shí)間間隔()
    Dim Dat1, Dat2, Dat3 As String
    Dat1 = InputBox("請(qǐng)輸入起始日期")
    Dat2 = InputBox("請(qǐng)輸入結(jié)束日期")
    MsgBox Dat1 & "與" & Dat2 & "的時(shí)間間隔為：" & vbCrLf _
    & DateDiff("D", Dat1, Dat2) & " 日" & vbCrLf _
    & DateDiff("M", Dat1, Dat2) & " 月" & vbCrLf _
    & DateDiff("Q", Dat1, Dat2) & " 季度" & vbCrLf _
    & DateDiff("YYYY", Dat1, Dat2) & " 年"
End Sub