利用DateDiff函数确定本周数据
sql="select count(*) from news where type='银行' and DateDiff(day,times,getdate())<7 order by id desc"
上面是SQL2000的写法Access用
sql="select count(*) from news where type='银行' and DateDiff(day,times,Now())<7 order by id desc"
dim week,w,t
week=weekday(now())
select case week
case 1:
w=6
case 2:
w=0
case 3:
w=1
case 4:
w=2
case 5:
w=3
case 6:
w=4
case 7:
w=5
end select
t=dateadd("d",-w,date())
t=t&" 00:00:00"
sql="select count(*) from news where type='银行' and times between #"& t &"# and now() order by id desc"