Nettoarbeitstage Ermittelt für zwei Daten die Anzahl der dazwischen liegenden Arbeitstage
Autor:   Holger Plath	Bewertung:     [ Jetzt bewerten ]	Views:  19.199
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 45 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Nachfolgende Funktion liefert die Anzahl der Arbeitstage (Mo - Fr), die zwischen dem Datum vDate1 und dem Datum vDate2 liegen.

' Nettoarbeitstage ermitteln (Mo-Fr)
Public Function NettoArbeitstage(vDate1 As Date, _
  vDate2 As Date) As Long
 
  Dim nDays As Long
 
  nDays = DateDiff("d", vDate1, vDate2) + 1
 
  NettoArbeitstage = IIf(nDays \ 7 > 0, _
    nDays - (nDays \ 7) * 2, nDays) - _
    IIf(Weekday(vDate1, vbMonday) - 1 + nDays Mod 7 < 6, 0, _
    IIf(Weekday(vDate1, vbMonday) - 1 + nDays Mod 7 = 6, 1, 2))
End Function

Beispiel:
Sie möchten wissen, wieviele Arbeitstage der November hat:

Dim nWorkingDays As Long
 
nWorkingDays = NettoArbeitstage(CDate("1/11/02"), _
  CDate("30/11/02"))
 
MsgBox "Arbeitstage im November: " & _
  CStr(nWorkingDays))