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) Dieser Tipp wurde bereits 15.752 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 sevAniGif (VB/VBA) Anzeigen von animierten GIF-Dateien Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |