'letzte Dateneingabe  per Max ermitteln
                Dim letzteDateneingabe As Date = CDate(lastAblesedate) 'oder so 
                ' ähnlich
                Dim Heute As Date = CDate(Now)
                Dim Dauer_TotalMinuten = (Heute - _
                  letzteDateneingabe).TotalMinutes
                Dim Gesamtdauer As TimeSpan
                Gesamtdauer = TimeSpan.FromMinutes(Dauer_TotalMinuten)
 
                Label_letzteEingabeStrom.Text = String.Concat("letzte Eingabe" & _
                  "vor: " & _
                                                              String.Format( _
                                                              "{0:00}", _
                                                              Gesamtdauer.Total_
                                                              Days) & " Tagen")