Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Wieviel Wochen hat ein Monat?

Gruppe

DatumUndZeit

Problem

Wie ermittle ich die Wochen eines Monats? Als Woche zählen mindestens 4 Tage am Anfang und am Ende des Monats.

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

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