| |
VB.NET - Ein- und UmsteigerRe: 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 | |
Zählerstände Strom, Wasser, Gas erfassen Auswerten | 1.359 | Erichbru | 29.12.22 11:18 | Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten | 596 | Manfred X | 29.12.22 13:36 | Einfaches Beispiel | 549 | Manfred X | 29.12.22 15:11 | Re: Einfaches Beispiel | 460 | Erichbru | 30.12.22 18:03 | Re: Einfaches Beispiel | 380 | Manfred X | 30.12.22 18:24 | Re: Einfaches Beispiel | 331 | Erichbru | 30.12.22 18:44 | Re: Einfaches Beispiel | 380 | Manfred X | 30.12.22 19:13 | Re: Einfaches Beispiel | 376 | Erichbru | 05.01.23 11:36 | Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten | 411 | Erichbru | 05.01.23 11:37 | Verbrauchsermittlung in einem Zeitraum / Zählerstands-Interp... | 400 | Manfred X | 06.01.23 06:16 | Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In... | 348 | Erichbru | 07.01.23 11:59 | Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In... | 353 | Manfred X | 07.01.23 18:41 | Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In... | 308 | Erichbru | 09.01.23 16:52 | Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In... | 335 | Manfred X | 09.01.23 22:31 | Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In... | 311 | Erichbru | 10.01.23 10:46 | Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In... | 385 | Manfred X | 10.01.23 11:41 | Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In... | 305 | Erichbru | 10.01.23 12:01 | Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten | 388 | Erichbru | 10.01.23 11:56 | Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten | 281 | Erichbru | 20.04.23 16:46 | Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten | 388 | Manfred X | 20.04.23 21:17 | Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten | 94 | Erichbru | 27.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 |
|
|
vb@rchiv CD Vol.6 vb@rchiv Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion Entwickler-Vollversionen u.v.m.Jetzt zugreifen Tipp des Monats Neu! sevPopUp 2.0
Dynamische Kontextmenüs!
Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Weitere Infos
|
|
|
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
|
|