Heute möchten wir Ihnen eine Funktion vorstellen, die eine Zeit-Differenz nicht im normalen Uhrzeit-Format, wie bspw. 01:45 ausgibt, sondern in dezimaler Form, wie bspw. 1,75 Stunden. Die Funktion erwartet als Parameter die Zeitangabe in Minuten. ' Minuten in dezimale Darstellung Stunde, Minuten umwandeln Public Function FormatTimeDez(ByVal nMin As Long) As String Dim nStd As Long ' Ganze Stunden ermitteln nStd = Int(nMin / 60) ' Rest-Minuten nMin = nMin - (nStd * 60) ' formatierter Rückgabewert ' Minuten in dezimaler Schreibweise FormatTimeDez = CStr(nStd) & "," & Format$(Int(nMin / 60 * 100), "00") End Function Beispiel: Dim sTime1 As String Dim sTime2 As String Dim nMin As Long sTime1 = "04:30" sTime2 = "06:15" ' zunächst Zeit-Differenz in Minuten ermitteln nMin = DateDiff("n", CDate(sTime1), CDate(sTime2)) ' Zeit-Differenz in dezimaler Form MsgBox FormatTimeDez(nMin) |