現在の日付から指定の日数等を加算した日付を表示するには、以下の様にします。 Sub Sample70() '3日後を表示 MsgBox "3日後は" & DateAdd("d", 3, Date) '1ヵ月後を表示 MsgBox "1ヵ月後は" & DateAdd("m", 1, Date) '1年後を表示 MsgBox "1年後は" & DateAdd("yyyy", 1, Date) End Sub