Do While oRdr.Read
                If Not oRdr("AvnVon") Is DBNull.Value And Not oRdr("AvnVon") Is _
                  String.Empty Then oDates.Add(oRdr("AvnVon"))
                If Not oRdr("AvnBis") Is DBNull.Value And Not oRdr("AvnBis") Is _
                String.Empty Then oDates.Add(oRdr("AvnBis"))
            Loop
 
            'Datumswerte welche kleiner als 12.12. + aktuelles Jahr sind löschen
            For i As Integer = 0 To oDates.Count - 1
 
                'Datum in Variabel zwischenspeichern
                dDateToGetYear = oDates.Item(i)
 
                'Jahr des Datums prüfen
                If Not dDateToGetYear.Year() >= "12.12" & iCurrentYear Then
                    oDates.RemoveAt(i)
                End If
 
            Next i
 
            'Datumswerte sortieren
            oDates.Sort()
 
            'Arbeitstage ausrechnen
 
 
            'Arbeitstage zurückgeben
            Return lDays