'日付と時刻を格納するための変数を宣言する（指定日付） Dim dtBirth As DateTime = _ DateTime.Parse("2017/12/21") '日付と時刻を格納するための変数を宣言する（本日の日付） Dim dtBirth As DateTime = DateTime.Parse(Now) '20日加算する dtBirth = dtBirth.AddDays(20) '4日減算する dtBirth = dtBirth.AddDays(-20) '本日の日付の場合 dim dtBirth = Now '結果を表示する MsgBox(dtBirth.ToString("yyyy/MM/dd"))