vb日期怎么加一个月,

Question

vb日期怎么加一个月,

Answer 1

可以用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
有了这个函数，想加几个月就加几个月，不怕大月、不怕小月、也不怕闰月。

Answer 2

DateAdd("m", 1, now)

Answer 3

DateAdd("m",1,Date1)

Answer 4

加30天好了。