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

[jornet]

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

[strongfisher]

DateAdd 函数


返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。
DateAdd(interval, number, date)

DateAdd 函数语法中有下列命名参数：

部分 描述
interval 必要。字符串表达式，是所要加上去的时间间隔。
number 必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。
date 必要。Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔。

[lxcc]

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

[lxcc]

interval对应值

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

[strongfisher]

说明

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 中的年份），就会导致错误发生。

[txlicenhe]

dateadd

[aiur2000]

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

[mmcgzs]

dateAdd("d", 2, Date)

[NotReady]

dateAdd("d", 2, Date)

[guanchen]

up

[Nev]

日期可以直接加减!!!
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

[rocllllll]

就应该直接加减