",1,"01-Jan-2013 12:00:00"))

13.

msgbox("Line 10 : "&DateAdd("s",1,"01-Jan-2013 12:00:00"))

14.

15.

' Negative Interval

16.

msgbox("Line 11 : " &DateAdd("yyyy",-1,date1))

17.

msgbox("Line 12 : " &DateAdd("q",-1,date1))

18.

msgbox("Line 13 : " &DateAdd("m",-1,date1))

19.

msgbox("Line 14 : " &DateAdd("y",-1,date1))

20.

msgbox("Line 15 : " &DateAdd("d",-1,date1))

21.

msgbox("Line 16 : " &DateAdd("w",-1,date1))

22.

msgbox("Line 17 : " &DateAdd("ww",-1,date1))

23.

msgbox("Line 18 : " &DateAdd("h",-1,"01-Jan-2013 1