Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Function Weeks(iYear As Integer, iMonth As Integer)
   Dim iDay As Integer, iCounter As Integer, iWeek As Integer, iPart As Integer
   Dim lDay As Long
   Dim bln As Boolean
   For lDay = DateSerial(iYear, iMonth, 1) To DateSerial(iYear, iMonth + 1, 0)
      iPart = iPart + 1
      If WeekDay(lDay) = 1 Then
         If iPart >= 4 Then iWeek = iWeek + 1
         iPart = 0
      End If
   Next lDay
   If iPart >= 4 Then iWeek = iWeek + 1
   Weeks = iWeek
End Function

    

Beiträge aus dem Excel-Forum zu den Themen UDF und DatumUndZeit