大侠帮忙，请问这句语法提示类型不匹配怎么办？

[冬__雷]

sql="select count(*) as heute from waren where cdate(registertime)>'" & Cdate(year(now())&"-" & month(now()) &"-" & day(now())) & "' and cdate(registertime)<'" & Cdate(year(now())&"-" & month(now()) &"-" & day(now())+1) & "'"

运行时提示：
Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'CDate'

请问是什么原因呢？

[冬__雷]

是不是早晨太早了，怎么没有人回答呢？

[OnlyVB]

day(now())+1
为什么要加1呢？？
如果今天是月末，怎能不出错！！

[OnlyVB]

楼主的代码怎么这么别扭！！！
Cdate(year(now())&"-" & month(now()) &"-" & day(now()))
不就是date()吗？？

[lbd8848]

是什么类型的数据库,registertime是什么类型的呀

[冬__雷]

噢，对了，今天是月末呀，果然如OnlyVB所说，能帮忙给个解决的办法吗？
reqistertime是日期类型的。

[OnlyVB]

Cdate(year(now())&"-" & month(now()) &"-" & day(now())+1)
上面的代码是不是想实现这样的功能呀！
天数加1
DateAdd("d", 1, date())
在sql语句中写成DateAdd('d', 1, date())

[冬__雷]

谢谢OnlyVB，问题已经解决，不知道从哪儿结贴呀？

[OnlyVB]

function getnextdaydate(byval vyear,byval vmonth,byval vday)
dim arrMonth
'定义一个天数的数组
arrMonth =array(31,28,31,30,31,30,31,31,30,31,30,31)
if vmonth = 2 then
if isdate(vyear & "-2-29") then arrMonth(1) = 29
end if
if arrMonth(vmonth)=vday then
vday=1
if vmonth=12 then
vmonth=1
vyear=vyear+1
else
vmonth=vmonth+1
end if
end if
getnextdaydate=vyear & "-" & vmonth &"-" & vday
end function
说明：本函数由大笨狼的函数修改而成。