office交流網(wǎng)--QQ交流群號及微信交流群

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

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

微信交流群(請用微信掃碼)

        

Access函數(shù)計祘多少天前後的日期

2020-06-09 08:00:00
tmtony8
原創(chuàng)
3493

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


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



    分享
    聯(lián)繫我們
    聯(lián)繫人: 王先生
    Email: 18449932@qq.com
    QQ: 18449932
    微博: officecn01
    移動訪問