我开发了一个简单的 vba 函数来计算是否有人在下班后工作。这是我写的原始查询：
Public Function AfterHours(StartTime As Date, EndTime As Date, ActivityDate As Date)
AfterHours = False
If (Weekday(ActivityDate) <> 1 OR Weekday(ActivityDate) <> 7) Then
If Hour(StartTime) >= 19 Or Hour(EndTime) < 7 Then
AfterHours = True
End If
Else
AfterHours = True
End If
End Function
但是，此查询不会选择周末在正常工作时间工作的员工。如果我将其更改为：
Public Function AfterHours(StartTime As Date, EndTime As Date, ActivityDate As Date)
AfterHours = False
If (Weekday(ActivityDate) = 1 Or Weekday(ActivityDate) = 7) Then
AfterHours = True
Else
If Hour(StartTime) >= 19 Or Hour(EndTime) < 7 Then
AfterHours = True
End If
End If
End Function
查询功能正常。两者的逻辑是相同的，只是颠倒了。在第一个函数中，如果不是周末，则应测试是否在营业时间以外，否则应标记为周末。第二个函数检查是否是周末并标记它，否则检查它是否在工作时间之外。
我不明白为什么这些查询会返回不同的结果。