不是有个函数是DateAdd的吗？我写了下面这个代码，为什么会出错呢？
Private Sub Form_Click()
Dim ti As Data
ti = DateAdd("ww", 2, #1/7/1984#)
Print ti
End Sub

写代码不要那么粗心!

Private Sub Form_Click()
Dim ti As Date
ti = DateAdd("ww", 2, #1/7/1984#)
Print ti
End Sub

呵呵，我会吸取教训的

一般我都是
Cdate(Clng(Date)+20)
进行时间判断的时候也是把时间转换为Clng(date)
我在写考勤软件的时候这样用
而且在数据库字段中的有关日期的都使用Clng（Date)

moshen62，可以解释一下Cdate(Clng(Date)+20)这句吗？
看得不是很懂，Date不是返回当前系统的时间的吗？为什么还要调用clng函数呢？+20又是怎么理解呢？

就是转换当前时期为相对数
加20就是20天啊
因为转化后每加1就是一天
这样计算的时候很方便查看

Cdbl(Now)就是就是转换当前 的时间和日期 其中小数点以前是日期小数点以后是时间
用来计算时间差也很直观
Csin(Now)的精度每有Cdbl大 可以计算时间到分位

哈~，谢谢啦，明白了