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

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))

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.