office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

2020-06-12 08:00:00
tmtony8
原创
180

计算两个日期的间隔

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


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


    分享