如果一个日期型变量包含日期，那么这个变量+1等于增加一天。如果这个日期型变量只包含时间，那么这个变量+1只增加一秒

例如

dim a as Date
a="2007-01-01 12:12:00"
a=a+20
a的值为"2007-01-21 12:12:00"

再比如

dim a as Date
a="12:12:00"
a=a+20
a的值为"12:12:20"

有一个现成的VB函数：DateAdd，返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。例：

本示例先取得一个日期，再用 DateAdd 函数显示未来数月后的日期。 

Dim FirstDate As Date   ' 声明变量。
Dim IntervalType As String
Dim Number As Integer
Dim Msg
IntervalType = "m"   ' "m"指定以“月份”作为间隔。
FirstDate = InputBox("Enter a date")
Number = InputBox("Enter number of months to add")
Msg = "New date: " & DateAdd(IntervalType, Number, FirstDate)
MsgBox Msg