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