Private Sub Wasserverbrauch()
        If BS_ZaehlerWasser_Liste.Count > 0 Then
            'firstdate, lastdate ermitteln
            Dim firstdate = (From drv In HB.Wasser Where drv.RowState <> _
              DataRowState.Deleted Select drv.Ablesedatum).Min
            Dim lastdate = (From drv In HB.Wasser Where drv.RowState <> _
            DataRowState.Deleted Select drv.Ablesedatum).Max
            'Zaehler 22007880
            Dim NL As String = Environment.NewLine
 
            Dim C1 As Double = GetConsum(BS_Wasser, firstdate, lastdate, _
              "Ablesedatum", "W22007880")
            Dim C2 As Double = GetConsum(BS_Wasser, firstdate, lastdate, _
            "Ablesedatum", "W22007881")
            Dim C3 As Double = GetConsum(BS_Wasser, firstdate, lastdate, _
            "Ablesedatum", "W22007885")
 
            Dim CWVgesamt As Double = C1 + C2 + C3
 
            Dim VBLiter As Double = Math.Round(CWVgesamt * 1000, 2)
 
            Dim Meldungstext As String = "Status:"
 
            Meldungstext = Meldungstext & NL & _
              "----------------------------------------------------"
            Meldungstext = Meldungstext & NL & _
            "----------------------------------------------------"
            Meldungstext = Meldungstext & NL & Format(Now, "dd.MM.yyyy" & _
            "HH:mm:ss")
            Meldungstext = Meldungstext & NL & _
            "----------------------------------------------------"
            Meldungstext = Meldungstext & NL & _
            "-----------------------------------------------------------------" & _
            "-------------------------"
            Meldungstext = Meldungstext & NL & "Wasserverbrauch gesamt m³:   " _
            & "( " & CWVgesamt & " ) " & "[ " & VBLiter & " Liter " & "]"
            Meldungstext = Meldungstext & NL & _
            "-----------------------------------------------------------------" & _
            "-------------------------"
            Meldungstext = Meldungstext & NL & "im Ablesezeitraum: " & _
            firstdate.ToShortDateString & " <> " & lastdate.ToShortDateString
            Meldungstext = Meldungstext & NL & _
            "-----------------------------------------------------------------" & _
            "-------------------------"
            Meldungstext = Meldungstext & NL & "Zählernummer-22007880 [WV]:    " & _
            "                    " & "( " & C1 & " m³)"
            Meldungstext = Meldungstext & NL & "Zählernummer-22007881 [WV]:    " & _
            "                    " & "( " & C2 & " m³)"
            Meldungstext = Meldungstext & NL & "Zählernummer-22007885 [WV]:    " & _
            "                    " & "( " & C3 & " m³)"
            Meldungstext = Meldungstext & NL & _
            "-----------------------------------------------------------------" & _
            "-------------------------"
            Meldungstext = Meldungstext & NL & "Wasserverbrauch pro Tag" & _
            "[Liter]:   " & "( " & " ) "
            Meldungstext = Meldungstext & NL & _
            "-----------------------------------------------------------------" & _
            "-------------------------"
            Meldungstext = Meldungstext & NL & _
            "-----------------------------------------------------------------" & _
            "-------------------------"
 
            MessageBox.Show(Meldungstext, "Auswertung:")
        Else
            Meldung_Wassertabelle()
        End If
    End Sub