office交流网--QQ交流群号

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

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

Access函数计算多少天前后的日期

2020-06-09 08:00:00
tmtony8
原创
165

工作中,我们需要计算关于日期的内容,如计算多少天前后的日期。


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 



    分享