语法:
AddDays(Value)
例如:
Dim d As Date = #2/28/2008#Dim d1 As Date = d.AddDays(40) '加上40天Dim d2 As Date = d.AddDays(-40) '减去40天