dim year1,month1,day1
year1=year(date)
month1=month(date)
day1=day(date)
if month1<6 then
year1=year1-1
month1=month1+6
end if
如果是查询access数据库的话用
sql= "select * from 会员消费记录的表格名称 where 记录消费日期的列名<#"&year1&"-"&month1&"-"&day1&"#"
sql数据库的话
sql= "select * from 会员消费记录的表格名称 where 记录消费日期的列名<’"&year1&"-"&month1&"-"&day1&"‘"
然后执行语句就行了。至于放在哪里……你应该会吧
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024