如何计算距离今天若干天的日期？

如何计算距离今天若干天的日期？ --------------------编程问答-------------------- Private Sub Form_Load()
 Debug.Print Date - 30, Date + 30
End Sub
输出结果 30天前 和 30天后的日期
2007-8-27     2007-6-28 
--------------------编程问答-------------------- 说反了~ --------------------编程问答-------------------- Private Sub Form_Load()
 Debug.Print Date - 30, Date + 30
End Sub
输出结果 30天前 和 30天后的日期
2007-6-28      2007-8-27 --------------------编程问答-------------------- 谢谢！好人哪！

补充：VB ,  基础类