Office: (Office 2016) Arbeitstage aus 2 Datumwerten berechnen (inkl. Freitage)

Hallo zusammen,
im Netz habe ich unten dargestellten Code gefunden.
Zusätzlich möchte ich Urlaubstage in einer Tabelle pflegen
(mit einem Datumfeld und Textfeld)

Leider kenne ich mich in VBA nicht so gut aus.
Wie muß das Skript angepaßt werden, damit evtl. Urlaubstage im Auswertungszeitraum abgezogen werden.

Vielen Dank vorab für Eure Unterstützung!


Public Function CalcDays(dtStart As Date, dtEnd As Date) As Integer
Dim iDiff As Integer
Dim i As Integer
Dim iresult As Integer
Dim dtTemp As Date

iDiff = DateDiff("d", dtStart, dtEnd)
For i = 0 To iDiff
dtTemp = DateAdd("d", i, dtStart)
If Weekday(dtTemp, vbMonday) 6 And _
Weekday(dtTemp, vbMonday) 7 Then
iresult = iresult + 1
End If
Next i
CalcDays = iresult
End Function

:)

 

Hallo
Eventuel findest Du in mein er Doc s. Fusszeile unten rechts
was für Dich
Seite : 293
Anzahl Arbeitstage (ohne SA / SO)
Seite: 319
10.30 Anzahl Arbeistage zwichen zwei Datum (anz. Tage ohne Sa, So, Feiertage)

 

Die Funktion berücksichtigt nur die Wochenendtage Sa & So.

Was heißt "inkl. Freitage"? Incl. oder exclusiv des Wochentags Freitag oder freier Tage?

Nicht zu Arbeitstagen gehören neben dem Wochenende

• Urlaubstage (für welche(n) Arbeitnehmer mit welchem Anspruch?)
• Feiertagen (feste, bewegliche, länder- und konfessionsabhängige)
• Betriebsruhe
• Brückentage
• ...

Einige dieser Tage werden bezahlt, andere nicht.

 

Nutze bitte die Suchfunktion des Forums.
Das hatten wir schon mehrfach:
http://www.ms-office-forum.de/forum/...ohne+Feiertage

Manches muss man sich nur ein wenig anpassen. *wink.gif*

 

Spätestens hier würde man, wenn man Effizienz mag, nicht mehr tageweise zählen und prüfen, sondern man würde auf eine Abfragelösung setzen.

Basis dazu wäre eine Kalendertabelle (einmal erstellt, vielfältig nutzbar). Hier kann man dann gleich die Wochenenden über die Wochentagsnummer herausfiltern und die verbliebenen Tage zählen.

Möchte man nun zusätzlich Urlaub oder/oder Feiertage berücksichtigen (die man jeweils in Tabellen führt), braucht man nur von den Tagen der Kalendertabelle diese Tage abzuziehen (vor dem Zählen) => Inkonsistenzabfrage : Datensätze aus A, die nicht in B sind

 

Hallo,

hier noch 2 Bsp-DB's zum Thema:
Berechnung der Netto-Arbeitstage für Deutschland
und
Berechnung von Feier- und Arbeitstagen

 

Hallo Eberhard,

jetzt hatte ich entlich mal wieder etwas Zeit mich um mein Problem zu kümmern.
Deine Kalendertabelle hat mich auf den richtigen Weg gebracht.
Vielen Dank und Gruß