vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 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: 20.04.23 16:46

Hallo Manfred X,

wichtige Rückfrage Bitte

warum passt das nicht mehr ? habe die Spalte Ablesedatum umgestellt auf DateTime ist das der Grund ?




   If BS_Stromdetails_Liste.Count > 0 Then
            'firstdate, lastdate ermitteln
            Dim firstdate = (From drv In HBDatenbankDS.tblStrom Where _
              drv.RowState <> DataRowState.Deleted Select drv.Ablesedatum).Min
            Dim lastdate = (From drv In HBDatenbankDS.tblStrom Where _
            drv.RowState <> DataRowState.Deleted Select drv.Ablesedatum).Max
 
            Dim C1 As Double = GetConsum(BS_Strom, firstdate, lastdate, _
              "Ablesedatum", "S1258882")
 
            Dim Meldung As String = "Status:"
            Dim x As Double = DateDiff(DateInterval.Day, firstdate, lastdate)
 
            Meldung = "Zeitraum: " & firstdate & " bis " & lastdate & " ~ ( " & _
              x.ToString & " ) Tage" & vbCrLf & vbCrLf
 
            'Die Nummern der Zähler in ein Array schreiben
            Dim counters(2) As Integer
 
            counters(0) = 1258882
 
            'Den Verbrauch gemäß des Strom-Zähler in ein Array schreiben:
            Dim consums(2) As Double
            Dim csum As Double
 
            For i As Integer = 0 To counters.Length - 3
                consums(i) = GetConsum(BS_Strom, firstdate, lastdate,
                       "Ablesedatum", "S" & counters(i).ToString)
            Next i
 
            'Schleife für  Meldung
            For i = 0 To counters.Length - 3
                Meldung &= "Zähler " & counters(i).ToString &
                 " Stromverbrauch: " & consums(i).ToString("0.00") & " kwh" & _
                   vbCrLf
                csum += consums(i) 'Summe der Verbräuche
            Next i
 
            Meldung &= vbCrLf & "Mittlerer täglicher Verbrauch: "
            Meldung &= (csum * 1 / (lastdate - firstdate).TotalDays).ToString( _
              "0.00") & " kwh"
 
            MessageBox.Show(Meldung, "Auswertung:")
Else
 
        End If
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 Beispiel306Erichbru30.12.22 18:44
Re: Einfaches Beispiel360Manfred X30.12.22 19:13
Re: Einfaches Beispiel351Erichbru05.01.23 11:36
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten371Erichbru05.01.23 11:37
Verbrauchsermittlung in einem Zeitraum / Zählerstands-Interp...379Manfred 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...284Erichbru10.01.23 12:01
Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten365Erichbru10.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