189 8069 5689
可以用DateAdd("m",1,Date1)实现；
网站建设哪家好，找成都创新互联公司！专注于网页设计、网站建设、微信开发、微信小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了泰顺免费建站欢迎大家使用！
具体参考如下：
Private Function 加整月(基准时间 As Date, 月数 As Integer) As Date
y = Year(基准时间)
m = Month(基准时间)
d = Day(基准时间)
m = m + 月数
Do While m 1
m = m + 12
y = y + 1
Loop
加整月 = CDate(y "+" m "+" d)
End Function
Private Sub Command1_Click()
Print 加整月(Now, 1)
End Sub
有了这个函数，想加几个月就加几个月，不怕大月、不怕小月、也不怕闰月。
您好，请调用AddDays函数！
给个小例子：给DateTimePicker1控件的日期的天数加1 。则是这样！
DateTimePicker1.Value = DateTimePicker1.Value.AddDays(1)
有问题HI我！
DateAdd函数 返回
返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。
语法
DateAdd(interval, number, date)
DateAdd 函数语法中有下列命名参数：
部分 描述
interval 必要。字符串表达式，是所要加上去的时间间隔。
number 必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。
date 必要。Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔。
DateDiff函数 返回
返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。
语法
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
DateDiff 函数语法中有下列命名参数：
部分 描述
interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔
Date1□date2 必要；Variant (Date)。计算中要用到的两个日期。
Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。
firstweekofyear 可选。指定一年的第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。