是这样，我要把时间当做条件来查询语句，所以我想到用for循环来做，其他方法也可以，
，循环出来是这样就可以，大侠们帮帮忙啊

还有月份呢，月份也不能写成死的，就是从当年的一月份开始到当天这段时间，这样循环

忘了一点，2011年 改成函数 year(now) 就更完美了

太谢谢啦！呵呵
可是当月份和日都是个位数时，在前面加0，例如2011-07-06这样时，应该显示到7月5日当天，但它循环出来的7月份所有的天数。我是用
monthinsert = i
select case monthinsert
case 1
i = "01"
case 2
i = "02"
case 3
i = "03"
case 4
i = "04"
case 5
i = "05"
case 6
i = "06"
case 7
i = "07"
case 8
i = "08"
case 9
i = "09"
end select
来判断的，我把它放在if j>day(Now) and i=month(now) then Exit For这句话的后面或者前面都是一样，没有截止到当天，而是把当月的天数全循环出来了,怎么解决？

哈哈，厉害，恩，解决了
不过现在又遇到一个问题，希望能得到你的帮助，就是怎么能月月的分页啊，当前页第一页，之后依次往下，例如七月，在第一页，六月就在第二页。。。。。

恩的，不好意思，老是麻烦你，新手请谅解，你是凌晨3点回复的，打扰你休息啦，抱歉！
谢谢你！！！不连续问你了，哈哈，都把你弄烦了
下次请你帮忙的时候，不连续，你要帮我哈，嘿嘿。。。

判断月天数不累吗？
用DateDiff函数转化为秒单位再减去一天的秒数用DateAdd转化回时间格式就可以了。

看得晕头

这么蛋疼的问题·～

我去，直接网上复制一份万年历程序不就ok了吗，这么悲催。