VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Wieviel Wochen hat ein Monat?

Gruppe

UDF

Bereich

DatumUndZeit

Thema

Wieviel Wochen hat ein Monat?

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

    


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