jak policzyć dni robocze?

[Szczypiorek]

Muszę policzyć liczbę dni roboczych ( od poniedziałku do piątku ) w
podanym okresie.
Funkcja DateDiff() niestety liczy wszystkie dni.
Za wszystkie wskazówki będę zobowiązany.

pozdrawiam

[Jacek]

Function PonPia(DataOd As Date, DataDo As Date) As Integer
Dim Dzien As Date
For i = DataOd To DataDo
Dzien = Weekday(DataOd + i)
If Dzien <> vbSaturday And Dzien <> vbSunday Then PonPia = PonPia + 1
Next i
End Function

[Jacek]

Function PonPia(DataOd As Date, DataDo As Date) As Integer
Dim Dzien As Date
Dim RazemDni As Integer
RazemDni = DataDo - DataOd
For i = 0 To RazemDni
Dzien = Weekday(DataOd + i)
If Dzien <> vbSaturday And Dzien <> vbSunday Then PonPia = PonPia + 1
Next i
End Function

[Maciej Tokarz]

Post by Szczypiorek
Muszę policzyć liczbę dni roboczych ( od poniedziałku do piątku ) w
podanym okresie.
Funkcja DateDiff() niestety liczy wszystkie dni.
Za wszystkie wskazówki będę zobowiązany.
pozdrawiam

Witaj,

Tak właśnie się zastanawiam jak najprościej to uczynić...

http://office.microsoft.com/pl-pl/access/HA012288111045.aspx

Wydaje się właściwym obliczenie ilości dni w zadanym okresie, a
następnie odjęcie wystąpień sobót i niedziel... plus sprawdzenie tabelki
pomocniczej zawierającej święta stałe i ruchome celem uzupełnienia
wyniku. A jak konkretnie? Jak obliczyć ilość niedziel, sobót?

"Jeśli jednak argument interwał zawiera ustawienie Tydzień ("ww"),
funkcja DateDiff zwróci liczbę tygodni kalendarzowych między dwiema
datami. Funkcja oblicza liczbę niedziel między datami data1 a data2.
Funkcja DateDiff uwzględnia datę data2, jeśli wypada w niedzielę, ale
nie uwzględnia daty data1, nawet jeśli wypada w niedzielę."

Jeszcze pytanie czy pierwsza sobota mieści się w sprawdzanym okresie...
Można samemu szukać rozwiązania, można poszukać gotowych:

http://www.access.vis.pl/war311.htm

pozdrawiam

[Szczypiorek]

Dziękuję bardzo za pomoc.
Metodą kompilacji oraz prób i błędów udało mi się to zrobić.

pozdrawiam