Stunden und Minuten - summieren
03.08.2020 14:12:51
STeve
Müsste Stunden und Minuten - Differenz auslesen.. und mehrere h/min - Blöcke dann summieren.
Hier ein Codeauszug.
Bitte um Hilfe.
Danke und mfg
STeve
Sub Stunden_und_Minutenzusammen()
Dim Endzeit As Date 'Endzeit
Dim Startzeit As Date 'Startzeit
Startzeit = "03.08.2020 06:45:00"
Endzeit = "04.08.2020 06:30:00"
Dim FR_h As String
Dim SA_h As String
Dim SO_h As String
FR_h = DateDiff("h", Startzeit, Endzeit) & ":" & DateDiff("n", Startzeit, Endzeit) Mod 60
''''sind aber nur 23 h und 45 Minuten
SA_h = DateDiff("h", Startzeit, Endzeit) & ":" & DateDiff("n", Startzeit, Endzeit) Mod 60
SO_h = DateDiff("h", Startzeit, Endzeit) & ":" & DateDiff("n", Startzeit, Endzeit) Mod 60
Summe = FR_h + SA_h + SO_h '''korrekt wäre 70:35 Stunden
End Sub
Anzeige