''' <summary>
''' Tage eines Monats ohne Wochenendtage oder nur Wochenendtage eines Monats
''' </summary>
''' <param name="datum">ein Referenzdatum des Monats</param>
''' <param name="invert">False.. Tage ohne WE-Tage; TRUE.. nur die WE-Tage</param>
''' <returns>ein Array der Tagesdaten</returns>
Public Function getDaysOfMonthWOWeekends(datum As DateTime, _
  Optional invert As Boolean = False) As Date()
 
  Dim d, j As Short, w, wa As Boolean
  Dim days As Short = TageDesMonats(datum)
  Dim actDat, temp() As Date
 
  d = 1 : j = 0
  For i As Short = 0 To days - 1
    actDat = DateSerial(datum.Year, datum.Month, d)
    w = (actDat.DayOfWeek = DayOfWeek.Saturday OrElse actDat.DayOfWeek = DayOfWeek.Sunday)
    If invert Then wa = w Else wa = Not w
    If wa Then
      ReDim Preserve temp(j)
      temp(j) = actDat
      j += 1
    End If
    d += 1
  Next 
  Return temp
End Function

Die zweite Funktion getAllWeeknumbersOfMonth ermittelt zu dem Monat/Jahr, die im Referenzdatum enthalten sind, alle Kalenderwochennummern. Es werden in einem zweidimensionalen Array der jeweils erste Tag der Kalenderwoche und die Wochennummer ausgegeben.

''' <summary>
''' Alle Wochennummern eines Monats ermitteln
''' </summary>
''' <param name="datum">ein Referenzdatum des Monats</param>
''' <returns>ein zweidim. Array enthält jeweils erster Tag der Woche, Wochennummer</returns>
Public Function getAllWeeknumbersOfMonth(datum As DateTime) As Short(,)
  Dim j, d, dd, lastW, actW As Short, actDat As Date
  Dim days As Short = TageDesMonats(datum)
  Dim temp(1, 0) As Short
 
  j = -1
  For d = 1 To days
    actDat = DateSerial(datum.Year, datum.Month, d)
    actW = DateToWeek(actDat)
    If lastW = 0 OrElse lastW <> actW Then
      j += 1
      dd = d
    End If
    ReDim Preserve temp(1, j)
    temp(0, j) = dd
    temp(1, j) = actW
    lastW = actW
  Next 
  Return temp
End Function

Nun noch die in beiden Funktionen benötigte Hilfsfunktion zur Ermittlung der Anzahl der Tage des Monats:

''' <summary>
''' Ermitteln der Anzahl der Tage eines Monats oder auch letzter Tag des Monats
''' </summary>
''' <param name="datum">ein Referenzdatum des Monats</param>
''' <returns>Anzahl bzw. Tag</returns>
Public Function TageDesMonats(ByVal datum As Date) As Short
  Dim dDate As Date = DateSerial(datum.Year, datum.Month, 1)
  Dim d As Date = DateAdd(DateInterval.Month, 1, dDate)
 
  d = DateAdd(DateInterval.Day, -1, d)
  Return d.Day
End Function