在 Access 中创建自任意开始日期以来的动态业务日期列表

Question

使用 MS Access 2010，我需要生成一个完整的日期列表，从任意开始日期，比如 #1/1/2015#，到现在，Date()。我希望这个列表存在于它自己的 table 中，尽管查询也可以。我也宁愿只抢业务 days/week 天。有人可以帮忙吗？

我正在按日期跟踪业务流程错误。为每个错误创建一个新的错误记录，并且每个记录都标有日期。但是，每个日期都没有错误。因此随着时间的推移报告并不能提供正确的可视化，因为没有显示没有错误的日期。

感谢帮助在 Access 中生成此列表，以及表示此信息的任何替代想法。

干杯，伯吉斯

更新 - 我已经能够从开始日期开始列出日期。这是我的代码：

Sub createDatesTable()

    'Declare variables'
    Dim startDate As Date
    Dim endDate As Date
    Dim countDate As Date
    Dim length As Long
    Dim i As Long
    Dim dates() As Date

    'Initialize'
    startDate = #6/23/2015#
    endDate = #9/1/2015#
    countDate = startDate
    length = endDate - startDate

    'Define date array length'
    ReDim dates(1 To length)

    'Generate date list in array'
    For i = 1 To (length)
        dates(i) = countDate
        countDate = countDate + 1
    Next i

    'Print array to Immediate Window'
    For i = 1 To length
        Debug.Print dates(i)
    Next i


    Dim db As DAO.Database
    Dim rs As DAO.Recordset


    Set db = CurrentDb
    Set rs = db.OpenRecordset("tblDateList", dbOpenDynaset)

    'Add array data to existing table'
    For i = 1 To length
        rs.AddNew
        rs!DateList = dates(i)
        rs.Update
    Next i

    rs.Close
    db.Close

End Sub

现在，我是 VBA 的新手，所以这很可能包含基本错误。感谢反馈。

-伯吉斯

Answer 1

你的 table 可以有这样的结构：

Column name    | Data type
---------------+----------
dt             | DateTime
isBusinessDay  | Yes/No

至于馅料，是这样的：

public sub fillDates(startDate as date, endDate as date)
    dim db as DAO.database, rs as DAO.Recordset
    dim strSQL as string
    dim d as date

    strSQL = "delete from tbl_dates"
    docmd.runsql strSQL

    set db = currentdb()
    set rs = db.openRecordset("tbl_dates", dbOpenDynaset, dbAppendOnly)

    for d = startDate to endDate
        with rs
            .addNew
            ![dt] = d
            ![isBusinessDay] = (format(d, "w", vbMonday) <= 5)
            .update
        end with
    next d
    rs.close
    db.close
end sub

在 Access 中创建自任意开始日期以来的动态业务日期列表

Create Dynamic List of Business Dates Since Arbitrary Start Date in Access

ms-access

vba

date

ms-access-2010