🚀 go-pugleaf

Witam. Powrócę do dawno poruszanego tematu dni roboczych.Problem polega na poprawności wyliczenia dni roboczych - program którego autorem jest Robert Łowczak znaleziony na stronie access.vis.pl. Uzupełniłem tabelę święta o dwa dni 01-05-2017 i 03-05-2017 - po wprowadzeniu zakresu dat od 28-04-2017 do 04-05-2017 - w wyniku otrzymuję 5 dni roboczych. Sprawdzałem wyliczenia pomiędzy różnymi datami (gdzie nie występują święta) i wtedy dni robocze wyliczane są prawidłowo. Jak może być tego przyczyna ? 
W uzupełnieniu podaję procedurę wyliczającą dni ogółem (z tym nie ma najmniejszego problemu)
 ----------------------------------------------------------------------
 Me.txtDniOgolem = (Me.txtDataDo - Me.txtDataOd) + 1

 i wyliczanie dni robocze :
 ----------------------------------------------------------------------
 Set rstDAO = CurrentDb.OpenRecordset("SELECT * FROM tblSwieta", dbOpenSnapshot)

 dtStartDate = DateValue(Me.txtDataOd)
 dtEndDate = DateValue(Me.txtDataDo)
 dtStartDate = dtStartDate
 intPolicz = 0

 Do While dtStartDate <= dtEndDate

 rstDAO.FindFirst "[Swieto] = #" & dtStartDate & "#"
 If Weekday(dtStartDate) <> vbSunday And Weekday(dtStartDate) <> vbSaturday Then
 If rstDAO.NoMatch Then intPolicz = intPolicz + 1
 End If

 dtStartDate = dtStartDate + 1
 Loop

 Me.txtDniRobocze = intPolicz

 rstDAO.Close
 Set rstDAO = Nothing
 -------------------------------------------------------------------------
 Z góry dziękuje za pomoc.