如何在vba中使用字符串创建日期？

Question

我希望for-loop从某个特定时间到某个特定时间运行.让我们说从一年的第一天到最后一天:

我得到了一年,我需要添加月份和日期:

我试图连接成一个完整的日期字符串,编译器不断抛出错误:

dim dt as Date 
dim rs as recordset 
set rs = currentdb.openRecordset("select max(date) as dan from Atbl")

for dt = #1/1/year(now)# to #2/2/Year(rs!dan)#
    msgbox dt
Next

任何帮助表示赞赏.或任何暗示都是受欢迎的

Answer 1

DateSerial应该使这更容易.

按顺序给出年,月,日的值,它会将相应的日期作为日期/时间值返回.

for dt = DateSerial(Year(Date), 1, 1) to DateSerial(rs!dan, 2, 2)
    msgbox dt
Next