AddDays
给日期值加上指定的天数。
语法：
AddDays(Value)
Value: 要加上的天数，可以是负数也可以是正数。
例如：
Dim d As Date = #2/28/2008#Dim d1 As Date = d.AddDays(40) '加上40天Dim d2 As Date = d.AddDays(-40) '减去40天Output.Show("40天后的日期：" & d1)Output.Show("40天前的日期：" & d2)
加好友 
发短信
Post By：2011/10/26 7:36:00 [显示全部帖子]
