vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten 
Autor: Erichbru
Datum: 10.01.23 11:56

ist es so richtig verstanden?

  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
            'Verbräuche ermitteln
            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 Meldung As String = "Status:"
 
            Meldung = "Erfassungszeitraum: " & firstdate.ToShortDateString & "" & _
              "bis " & lastdate.ToShortDateString & vbCrLf & vbCrLf
 
            'Dann eine Schleife über ein Stringarray das die Zähler-Nummern 
            ' enthält
            'und ein Array, das die ermittelten Verbräuche enthält.
 
            Dim counters(2) As Double  'counters(0)="Zählernummer-22007880" usw 
            Dim consums(2) As Double  'Array mit den Verbräuchen c1, c2, c3
 
            counters = {22007880, 22007881, 22007885}
            consums = {C1, C2, C3}
 
            Dim csum As Double
 
            For i = 0 To counters.Length - 1
                Meldung &= "Zählernummer " & counters(i) & " Verbrauch: " & _
                  consums(i).ToString("0.00") & " m³" & vbCrLf
                csum += consums(i) 'Summe der Verbräuche
            Next i
 
            Meldung &= vbCrLf & "Mittlerer täglicher Verbrauch: "
            Meldung &= (csum * 1000 / (lastdate - _
              firstdate).TotalDays).ToString("0.00") & " L."
 
 
            MessageBox.Show(Meldung, "Auswertung:")
 
        Else
            Meldung_Wassertabelle()
        End If

www google bilder de
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Zählerstände Strom, Wasser, Gas erfassen Auswerten1.315Erichbru29.12.22 11:18
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten571Manfred X29.12.22 13:36
Einfaches Beispiel526Manfred X29.12.22 15:11
Re: Einfaches Beispiel435Erichbru30.12.22 18:03
Re: Einfaches Beispiel358Manfred X30.12.22 18:24
Re: Einfaches Beispiel307Erichbru30.12.22 18:44
Re: Einfaches Beispiel360Manfred X30.12.22 19:13
Re: Einfaches Beispiel352Erichbru05.01.23 11:36
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten372Erichbru05.01.23 11:37
Verbrauchsermittlung in einem Zeitraum / Zählerstands-Interp...380Manfred X06.01.23 06:16
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...326Erichbru07.01.23 11:59
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...331Manfred X07.01.23 18:41
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...286Erichbru09.01.23 16:52
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...314Manfred X09.01.23 22:31
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...288Erichbru10.01.23 10:46
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...364Manfred X10.01.23 11:41
Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In...285Erichbru10.01.23 12:01
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten366Erichbru10.01.23 11:56
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten258Erichbru20.04.23 16:46
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten365Manfred X20.04.23 21:17
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten63Erichbru27.03.24 10:55

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel