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