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

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

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