求一个时间函数
请大大们写一个函数计算当前日期加某一个日期后得到的时间

比如计算出 2天20小时20分20秒后的时间怎么弄啊？

[解决办法]
Dim TempDate As Date
Debug.Print Now
TempDate = DateAdd("d", 2, Now)
TempDate = DateAdd("h", 20, TempDate)
TempDate = DateAdd("n", 20, TempDate)
TempDate = DateAdd("s", 20, TempDate)
Debug.Print TempDate
[解决办法]

VB code

datetime.DateAdd("yyyy",1,now)  年datetime.DateAdd("m",1,now)     月datetime.DateAdd("d",1,now)     日datetime.DateAdd("h",1,now)     小datetime.DateAdd("n",1,now)     分datetime.DateAdd("s",1000,now)  秒
[解决办法]
Dim d as DateTime
d=Now
'计算出 2天20小时20分20秒后的时间
d=d+2#+20#/24#+20#/1440#+20#/86400#
[解决办法]
VB code
now() + timeserial(68,20,20)