将工作日添加到Access 2010中的日期字段

Question

我有一个日期排序字段显示在报告上，如果该日期早于3个工作日，我希望该日期显示为红色。我看到了几个不同的代码，但是它们很长，我不确定如何将它们应用到我的报告甚至查询中。我相信我的数据库将星期日作为一周的第一天。我想了解这一点，因为我还有其他报告也想应用。我没有接受访问的正式培训。非常感谢您的帮助。

Answer 1

没有简短的代码或钝角的代码，实际上如果考虑到假期则不会。

一个例子是我在这里的功能：DateDiffWorkdays。

但是，您所需要做的就是将完整代码复制粘贴到新模块中，进行编译并保存。

然后，要进行检查，请在报告的 Details 部分的 Format 事件中使用与此表达式类似的表达式：

Private Sub Detailsection_Format(Cancel As Integer, FormatCount As Integer)

    Me!YourTextbox.ForeColor = IIf(DateDiffWorkdays([OrderDate],Date()) > 3, vbRed, vbBlack)

End Sub