Private Function Stoerdauer2(ByVal mnth As Integer, year As Integer, masch As _
    Integer) As DataTable
        Dim Text As String = "Kein Stör-Ereignis"
        Dim dt As DataTable = Schichtbuch
        Dim cal As Globalization.Calendar = _
          Globalization.CultureInfo.CurrentCulture.Calendar
        Me.Cursor = Cursors.WaitCursor
 
        Dim q = From row As DataRow In dt
       Let Minuten = row.Field(Of Integer)("Stoerdauer")
       Let Instandhaltung = row.Field(Of String)("Eintrag-Instandhaltung")
            Where year = row.Field(Of Date)("Eintrag").Year _
             AndAlso mnth = Month(row.Field(Of Date)("Eintrag")) _
             AndAlso row.Field(Of Integer)("MaschID") = masch _
             AndAlso row.Field(Of String)("Eintrag-Instandhaltung") <> Text
            Group By art = Instandhaltung Into Sum(Minuten), Count()
 
 
        Dim df As New DataTable
        With df.Columns
            .Add("Instandhaltung", GetType(String))
            .Add("Count", GetType(Integer))
            .Add("Minuten", GetType(Integer))
        End With
        For Each el In q
            df.Rows.Add(el.art, el.Count, el.Sum)
        Next el
 
        Dim bs As New BindingSource With {.DataSource = df}
        bs.Sort = "Count DESC"
 
        Dim _Sum As Integer
        _Sum = df.AsEnumerable().Sum(Function(row) row.Field(Of Integer)( _
          "Minuten"))
 
        If bs.Count <> 1 Then
            FirefoxH29.Text = String.Concat(_Sum.ToString & " [Min]")
 
        Else
            FirefoxH29.Text = String.Concat(_Sum.ToString & " [Min]")
 
        End If