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

Answer 2

没

关系，我很快就找到了解决方案：这工作正常

dim dt as Date 
dim rs as recordset 
set rs = currentdb.openRecordset("select max(date) as dan from Atbl")
'save the first day as string first
Dim firstDay As String
firstDay = "1/1/" & Year(Now)
'convert to date
Dim firstDate As Date
firstDate = CDate(firstDay)
'save as string
Dim lastDay as string 
lastDay = "2/2/" & Year(rs!dan)
'convert to date
Dim lastDate As Date
lastDate = CDate(lastDay)
'works fine in here
for dt = firstDate to lastDate
    msgbox dt
next