office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

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

Access函數計祘多少天前後的日期

2020-06-09 08:00:00
tmtony8
原創
178

工作中,我們需要計祘關於日期的內容,如計祘多少天前後的日期。


Sub 間隔日期()
    Dim Dat, YN As String
    Dat = InputBox("請輸入今天之前之後的天數,日期前用負數錶示")
    If Dat < 0 Then YN = "前" Else YN = "後" End If MsgBox "今天之" & YN & "【" & Abs(Dat) & "天】的日期是【" & DateAdd("D", Dat, Date) & "】" End Sub 



    分享