Gruppe
UDF
Problem
Wie ermittle ich die Wochen eines Monats? Als Woche zählen mindestens 4 Tage am Anfang und am Ende des Monats.
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