Tip of the moment is: DateDiff does not work with W
DateAdd í vinnudögum virkar ekki í Access en lausnin felst í:
See also my article number 12607 for DateAdd
Function DateDiffW(BegDate, EndDate)
'DateDiff function virkar ekki
'Heimild: Q207795
Const SUNDAY = 1
Const SATURDAY = 7
Dim NumWeeks As Integer
If BegDate > EndDate Then
DateDiffW = 0
Else
Select Case Weekday(BegDate)
Case SUNDAY: BegDate =
BegDate + 1
Case SATURDAY: BegDate =
BegDate + 2
End Select
Select Case Weekday(EndDate)
Case SUNDAY: EndDate =
EndDate - 2
Case SATURDAY: EndDate =
EndDate - 1
End Select
NumWeeks = DateDiff("ww", BegDate,
EndDate)
DateDiffW = NumWeeks * 5 + Weekday(EndDate)
- Weekday(BegDate)
End If
End Function