Moin zusammen,
ich bin gerade dabei daten aus einer Datenbank für eine Auswertung aufzubereiten. Wie ich die Daten in das DGV bekommen habe ich soweit geschafft. Auch wie ich die werte entsprechend des Dropshipper anzeigen lassen kann.
Nun aber zu meinem Problem dabei:
Die Zeiten von Anfordern des Paketlabel bis zum druck sind in der Datenbank ebenfalls erfasst als wert im Format hh:mm:ss
Bei dem aufrufen der Daten soll nun automatisch diese werde addiert werden und in einer TextBox ausgegeben werden. Bei mir hapert es in dem Falle mit der Berechnung der Gesamtzeit per schleife und die abschließende Berechnung der Durchschnittszeit.
Anbei der Quellcode von dem abschnitt wo die Berechnung stattfinden soll. Ich weis hier nicht ob das so möglich / richtig ist. Vielleicht könnt ihr mal bitte einen blick drüber werfen und mir ggf. sagen / hinweise geben wo der Fehler liegt?
ich bin gerade dabei daten aus einer Datenbank für eine Auswertung aufzubereiten. Wie ich die Daten in das DGV bekommen habe ich soweit geschafft. Auch wie ich die werte entsprechend des Dropshipper anzeigen lassen kann.
Nun aber zu meinem Problem dabei:
Die Zeiten von Anfordern des Paketlabel bis zum druck sind in der Datenbank ebenfalls erfasst als wert im Format hh:mm:ss
Bei dem aufrufen der Daten soll nun automatisch diese werde addiert werden und in einer TextBox ausgegeben werden. Bei mir hapert es in dem Falle mit der Berechnung der Gesamtzeit per schleife und die abschließende Berechnung der Durchschnittszeit.
Anbei der Quellcode von dem abschnitt wo die Berechnung stattfinden soll. Ich weis hier nicht ob das so möglich / richtig ist. Vielleicht könnt ihr mal bitte einen blick drüber werfen und mir ggf. sagen / hinweise geben wo der Fehler liegt?
VB.NET-Quellcode
- 'Wartezeit gesamt
- Dim z1 As Date
- Dim wertgesamt As String
- Dim anzahl As Integer = DataGridView1.Rows.Count - 1
- For i = 0 To anzahl
- If CBool(DataGridView1.Rows(i).Cells(5).Value) Then
- z1 = CDate(CType(z1, String) + CType(DataGridView1.Rows(i).Cells(5).Value, String))
- End If
- Next
- wertgesamt = Format(TimeValue(CType(z1, String)), "hh:mm:ss")
- waitingtime1.Text = wertgesamt