Rubrik: Datum/Zeit und Timer · Datums- und Zeitfunktionen | VB-Versionen: VB6 | 24.06.04 |
Zeit-Differenz in dezimaler Darstellung ausgeben Mit dieser Funktion lässt sich eine Zeit-Differenz in dezimaler Darstellung ausgeben. | ||
Autor: Dieter Otter | Bewertung: | Views: 15.748 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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)