Supportnet / Forum / Datenbanken
Arbeitstage berechnen
Frage
Ich arbeite mit Windows 98 und Access 2000 und suche eine Möglichkeit die Arbeitstage (d.h. ohne Samstage und Sonntage) in einer Access-Abfrage zu berechnen. Wer kann mir helfen.
Danke.
Antwort 1 von Koebi
Hallo hallo
Mit folgender Funktion (stammt zwar aus Access97):
Function AnzWochenTage(ByVal datBeginn As Date, ByVal DatEnde As Date) As Long
'von Urs Villiger
'Anzahl der Werktage ohne Samstag und ohne Sonntag (ohne Feiertagsberücksichtigung)
AnzWochenTage = DateDiff("d", datBeginn, DatEnde) - DateDiff("ww", datBeginn, DatEnde) _
* 2 + 1 + (WeekDay(datBeginn) = 1) + (WeekDay(DatEnde) = 7)
End Function
Gruss
Köbi
Mit folgender Funktion (stammt zwar aus Access97):
Function AnzWochenTage(ByVal datBeginn As Date, ByVal DatEnde As Date) As Long
'von Urs Villiger
'Anzahl der Werktage ohne Samstag und ohne Sonntag (ohne Feiertagsberücksichtigung)
AnzWochenTage = DateDiff("d", datBeginn, DatEnde) - DateDiff("ww", datBeginn, DatEnde) _
* 2 + 1 + (WeekDay(datBeginn) = 1) + (WeekDay(DatEnde) = 7)
End Function
Gruss
Köbi