| Rubrik: Datum/Zeit und Timer · Datums- und Zeitfunktionen | VB-Versionen: VB6 | 24.06.04 |
 Zeit-Differenz in dezimaler Darstellung ausgebenMit dieser Funktion lässt sich eine Zeit-Differenz in dezimaler Darstellung ausgeben. | ||
Autor:  Dieter Otter | Bewertung:   | Views: 16.179 |
| https://www.tools4vb.com | 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)
