如何求相减后的日期

[crazymanonly]

小弟有一个date型的变量 叫做date1
我想把这个date1减去60年，求一个结果，保存到date2里面去
不知道VB里面有什么函数可以实现这一功能呢？
请大侠们不吝赐教
谢谢

[3q2008Com]

日期运算组
--------------------------------------------------------------------------------
●DateAdd 日期加法得日期
●用法：传回日期 = DateAdd(日期间隔种类, 增加量, 日期)
Private Sub Command1_Click()
Print DateAdd("ww", 6, #2/28/99#)
End Sub
●输出结果：#4/11/99# ，1999-2-28六周后是1999-4-11。
●DateDiff 日期相减得数值
●用法：传回值 = DateDiff(日期间隔种类, 增加量, 日期)

Private Sub Command1_Click()
Print DateAdd("ww", #1/1/99#, #12/31/99#)
End Sub
●输出结果：52 ，1999-1-1至1999-12-31共有52周。
●DatePart 日期部份资讯
●用法：传回值 = DatePart(日期间隔种类, 增加量, 日期)

Private Sub Command1_Click()
Print DateAdd("q", #4/1/99#)
End Sub
●输出结果：2 ，1999-4-1是第2季。
　 日期间隔种类 yyyy 年
q 季
m 月
y 太阳日
d 号
w 星期
ww 周
h 时
n 分
s 秒

[crazymanonly]

您的意思是让我加上负60年，是吗？

[conrad_wan]

date2 = DateAdd("y", -60, date1)

[crazymanonly]

谢谢你了，分全给你

[crazymanonly]

哦,pineapple也有份哦，都给