Zeit-Differenz in dezimaler Darstellung ausgeben Mit dieser Funktion lässt sich eine Zeit-Differenz in dezimaler Darstellung ausgeben.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  16.177
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 12 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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:
Aus den beiden Zeitangaben 04:30 und 06:15 soll die Zeitdifferenz in dezimaler Form berechnet werden.

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)