關于時間問題﹗請各位幫忙!!

Question

我有一時間表A﹐里面只有一條記錄,字段是:
天﹐時﹐分
1  ,2 ,20我要在當前時間加上此表的數據.例:
當前時間是2005-08-09 07:47我要得到:2005-08-10 10:17

Answer 1

假设3个变量nDay、nHour、nMin分别是你从表A中读出的天、时、分的数值：
dim dtNow as Date,dtAdd as Date
dtNow = Now()
dtAdd = DateAdd(d,nDay,dtNow)
dtAdd = DateAdd(h,nHour,dtAdd)
dtAdd = DateAdd(n,nMin,dtAdd)

Answer 2

dim dtAdd as Date,dDay as long ,dHour as long ,dMinute as longRs.Open Select * From A,Connection,adOpenDynamic, adLockOptimistic
dDay = Rs.Fields("天")
dHour = Rs.Fields("时")
dMinute = Rs.Fields("分")dtAdd = DateAdd("d",dDay ,Now())
dtAdd = DateAdd("h",dHour ,dtAdd)
dtAdd = DateAdd("n",dMinute ,dtAdd)