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

Access培訓(xùn)群:792054000         Excel免費(fèi)交流群群:686050929          Outlook交流群:221378704    

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

微信交流群(請(qǐng)用微信掃碼)

        

Access函數(shù)計(jì)算多少天前后的日期

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

工作中,我們需要計(jì)算關(guān)于日期的內(nèi)容,如計(jì)算多少天前后的日期。


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



    分享
    文章分類(lèi)
    聯(lián)系我們
    聯(lián)系人: 王先生
    Email: 18449932@qq.com
    QQ: 18449932
    微博: officecn01
    移動(dòng)訪問(wèn)