ms-access - 如何在 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