Sub test()
'指定した時間を足す(または減らす)
MsgBox DateAdd("s", 1, Now), , "1秒後"
MsgBox DateAdd("n", 1, Now), , "1分後" 'mではないので注意!
MsgBox DateAdd("h", 1, Now), , "1時間後"
MsgBox DateAdd("d", 1, Now), , "1日後"
MsgBox DateAdd("m", 1, Now), , "1ヵ月後"
MsgBox DateAdd("y", 1, Now), , "1年後"
End Sub
