VB日期加减法运算求救

各位高手啊！俺想请教一个VB加减的运算

Private Sub Command1_Click()

Dim a As Date

Dim b As Date

Dim c As Date

b = Text1.Text '取值

b = Format(b, "short date") '是否格式化都可

a = Date '取值

a = Format(a, "short date") '是否格式化都可

If a >= b Then '判断输入日期是否小于系统日期

a = a - b '进行两个日期加减运算

Text2.Text = a '输出答案

Else: Text2.Text = "输入日期不正确"

End If

End Sub

上面是自己写的，但是算出来的日期有点问题~

比如当前的系统日期减去你输入的日期2006-11-24（发帖时间是25日）

得到的答案居然是1899-12-31

如果我输入2006-11-25居然得到是"上午 12:00:00"

请问怎么会是这样呀？本人想要的结果是过去了 0年0月1天

可他却是1899-12-31

请问应该怎么去做呀？

用 DateAdd 函数

DateAdd(datepart,number,date)

补充:

加负不就是减嘛，例

DateAdd(d,1,now) '明天

DateAdd(d,-1,now) '昨天