日期转换的问题 请给解决下

Elliott_love

dt1 = format(date,"yyyymmdd")
dt2 = format(activesheet.cells(1,3).value,"yyyymmdd")
datediff("d",dt1,dt2)

我想把C1的值（如：20101102）和当前的系统时间比较看差几天   dt2那老报错  请给帮个忙指正下

[ 本帖最后由 Elliott_love 于 2010-11-3 16:09 编辑 ]

alzeng

MsgBox Date - CDate(Format([C1], "0000-00-00"))

fayzhong

dt1 = format(date,"yyyy-mm-dd")
dt2 = format(activesheet.cells(1,3).value,"yyyy-mm-dd")
[c1].value=dt1-dt2

Elliott_love

谢谢 但我想做个循环查询  所以 不止是C1而是 cells(1,i)的值(值类型都是 yyyymmdd) 又该怎么做

HadesBoss

检查一下C1的数据是否是数值或日期型数据

Elliott_love

你误解我的意思了  看四楼

Elliott_love

就是   20101129  这些  我之前有cdate 但还是有错

alzeng

原帖由 Elliott_love 于 2010-11-2 16:51 发表
谢谢 但我想做个循环查询  所以 不止是C1而是 cells(1,i)的值(值类型都是 yyyymmdd) 又该怎么做

你的循环该怎样写就还是怎样写，跟比较没什么关系……
For i=1 to *
    Debug.Print Date - CDate(Format([C1], "0000-00-00"))
Next

Elliott_love

我的意思是 循环是  每个cells(1,i) 也就是第一行第i列的值都要和 系统时间做比较
Debug.Print Date - CDate(Format([ activesheet.cells(1,i).value], "0000-00-00"))
我的意思是上面的代码的意思 但是类型不符 怎么解决？

alzeng

原帖由 Elliott_love 于 2010-11-2 17:02 发表
我的意思是 循环是  每个cells(1,i) 也就是第一行第i列的值都要和 系统时间做比较
Debug.Print Date - CDate(Format([ activesheet.cells(1,i).value], "0000-00-00"))
我的意思是上面的代码的意思 但是类型不符 怎 ...

提供一个附件：不清楚你的数据类型是怎样的。