Question

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 函数不是日期加法运算吗？
可以解释一下怎么做减法吗？请详细点！万分感激！

Answer 1

用 DateAdd 函数
DateAdd(datepart,number,date)

补充:
加负不就是减嘛，例
DateAdd(d,1,now) '明天
DateAdd(d,-1,now) '昨天