如何实现让日期+2----在线等待！！！

Question

让“03/01”+2很简单，但要考虑这些情况如：“05/30”+2，以及2月的复杂情况，在线等待阿

Answer 1

DateAdd 函数
      返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。
DateAdd(interval, number, date)DateAdd 函数语法中有下列命名参数：部分 描述 
interval 必要。字符串表达式，是所要加上去的时间间隔。 
number 必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。 
date 必要。Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔。 

Answer 2

Private Sub Command1_Click()
    MsgBox DateAdd("d", 2, Date)
End Sub

Answer 3

interval对应值yyyy Year 
q Quarter 
m Month 
y Day of year 
d Day 
w Weekday 
ww Week 
h Hour 
n Minute 
s Second 

Answer 4

说明DateAdd 函数将不返回有效日期。在以下实例中将 1 月31 日加上一个月：DateAdd(m, 1, 31-Jan-95)上例中，DateAdd 返回 1995 年 2 月 28 日，而不是 1995 年 2 月 31 日。如果 date 是 1996 年 1 月 31 日，则由于 1996 年是闰年，返回值是 1996 年 2 月 29 日。如果计算的日期超前 100 年（减去的年度超过 date 中的年份），就会导致错误发生。

Answer 5

DateAdd("d", 2, data)
d表示天，2表示数量，data是个时间，需要带引号。

Answer 6

日期可以直接加减!!!
    Dim DD As Date
    DD = Date
    Debug.Print DD
    DD = DD + 2
    Debug.Print DD
    DD = DD - 4
    Debug.Print DD
    DD = DD - 50
    Debug.Print DD
    DD = DD - 366
    Debug.Print DD
结果:
2003-10-20 
2003-10-22 
2003-10-18 
2003-8-29 
2002-8-28