关于vb中日期计算问题

Question

我首先从数据库的某一字段中取出:以前的某一日期，再用系统日期减去这个日期,想得到这两个日期相差的天数该怎么做？( 用减法不对）
olddate=rs.fields("tran_date").value
nowdate=format(date,"yyyymmdd")
急盼望好心人指点！

Answer 1

就用减法啊，怎么不可以呢？
试试msgbox cdate(olddate)-cdate(nowdate)就知道了。

Answer 2

天数=abs(datediff("d",olddate,now))

Answer 3

我的olddate 和nowdate应定义为什么类型的？

Answer 4

用datediff来求两个日期相差的天数
 date数据类型可以。
cdate(olddate)-cdate(nowdate)是不完全的。
你可以实验一下。
这是由于由于date类型数据的存储方式造成的

Answer 5

如果我的nowdate是从文本框中得到，即nowdate=text1.text,这样赋值对不对？

Answer 6

dim x as integer
dim olddate as date
text1.text为用户输入的日期如：20030408
x=datediff("d",text1.text,olddate)
还是提示类型不匹配