Public Function GenerateStatistic(ByVal StartDate As TimeSpan, ByVal _
      EndDate As TimeSpan, ByVal Print As Boolean)
 
        ' Ermitteln von den Tagen
        Dim Files As New List(Of String)
        Dim TSpan As New TimeSpan
 
        TSpan = EndDate.Subtract(StartDate)
 
        Dim Tage As Long = TSpan.TotalDays()
 
 
    End Function