Dim d As Date = "2015-07-28"
msgbox(DateAdd("d", 4, d)) msgbox(DateAdd("m", 4, d)) msgbox(DateAdd("yyyy", 4, d))