如何求相减后的日期

Question

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

Answer 1

日期运算组
--------------------------------------------------------------------------------
●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  秒  

Answer 2

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