| |
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.358 | Erichbru | 29.12.22 11:18 | Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten | 595 | Manfred X | 29.12.22 13:36 | Einfaches Beispiel | 548 | Manfred X | 29.12.22 15:11 | Re: Einfaches Beispiel | 459 | Erichbru | 30.12.22 18:03 | Re: Einfaches Beispiel | 379 | Manfred X | 30.12.22 18:24 | Re: Einfaches Beispiel | 330 | Erichbru | 30.12.22 18:44 | Re: Einfaches Beispiel | 378 | 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 | 409 | Erichbru | 05.01.23 11:37 | Verbrauchsermittlung in einem Zeitraum / Zählerstands-Interp... | 399 | Manfred X | 06.01.23 06:16 | Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In... | 347 | Erichbru | 07.01.23 11:59 | Re: Verbrauchsermittlung in einem Zeitraum / Zählerstands-In... | 352 | 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... | 384 | 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 | 387 | Erichbru | 10.01.23 11:56 | Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten | 280 | Erichbru | 20.04.23 16:46 | Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten | 387 | Manfred X | 20.04.23 21:17 | Re: Zählerstände Strom, Wasser, Gas erfassen Auswerten | 93 | 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 |
|
|
sevISDN 1.0
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats sevOutBar 4.0
Vertikale Menüleisten á la Outlook
Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. 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
|
|