Office: (Office 2019) Anzahl Wochentag zwischen zwei Daten

Hallo zusammen!!!

Brauche ich den Anzahl Wochentags zwischen zwei Daten finden
z.B. wie viele Montag wischen 01.11.2023 und 10.11.2023

Vielen Dank im voraus

 

Funktion in ein allgemeines Modul legen.

Code:

Public Function anzwotag(Suchtag As Integer, Startdat As Date, Endedat As Date) As Integer
  Dim i As Long
  Dim workdat As Date
   If Suchtag < 1 Or Suchtag > 7 Then
      MsgBox ("Parameter Suchtag muß von 1 = Sonntag, 2 = Montag bis 7 = Samstag sein!")
   End If
   workdat = Startdat
   Do Until workdat > Endedat
      If Weekday(workdat) = Suchtag Then
         i = i + 1
      End If
      workdat = DateAdd("d", 1, workdat)
   Loop
   anzwotag = i
End Function

Aufruf mit z.B.: Anzahl Freitage zwischen 10.11.2023 bis 17.11.2023 (Ergebnis ist 2)

Code:

anzwotag(6,#11/10/2023#,#11/17/2023#)