Thema: Anzahl eines bestimmten Wochentages im Monat

StandardModule: basMain

Function nDays(dat, iDay As Integer)
   Dim datFirst As Date, datLast As Date
   Dim iCount As Integer
   Dim lDay As Long
   datFirst = DateSerial(Year(dat), Month(dat), 1)
   datLast = DateSerial(Year(dat), Month(dat) + 1, 0)
   For lDay = datFirst To datLast
      If WeekDay(lDay) = iDay Then
         iCount = iCount + 1
      End If
    Next lDay
    nDays = iCount
End Function

Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Wochentag