Mit VB.NET Minuten in Zeit-Format konvertieren
23.02.2009 -
Carsten - Der Softwareentwickler Blog -
5 Kommentare
Mit Uhrzeiten und Zeitangaben zu arbeiten, vorallem in Anbindung mit einer SQL-Datenbank, ist für Softwareentwickler häufig eine kleine Herausforderung.
Zum Schluss kommt man dann als Programmierer häufig an dem Punkt die errechneten Zeiten auch schön leserlich, nach Zeiteinheiten getrennt, darzustellen.
Schließlich ist es häufig komfortabler statt 246 Minuten lieber 4:06:00 zu lesen.
Die folgende kleine Routine demonstriert Euch, wie dies auf einfache Weise geht.
Dieses Code-Snippet formatiert die übergebene Anzahl von Minuten in die standardkonforme Darstellung hh:mm:ss.
Function MinutesToTime(ByVal min As Single) As String Dim seconds As String Dim minutes As String Dim hours As String Dim Time As String 'In Sekunden umrechnen min = min * 60 seconds = CStr(min Mod 60) 'In Minuten umrechnen, Sek abgezogen min = CSng((min - CDbl(seconds)) / 60) minutes = CStr(min Mod 60) 'In Stunden umrechnen, Sek+Min abgezogen min = CSng((min - CDbl(seconds) - CDbl(minutes)) / 60) hours = CStr(min Mod 60) If Len(seconds) < 2 Then seconds = "0" & seconds If Len(minutes) < 2 Then minutes = "0" & minutes If Len(hours) < 2 Then hours = "0" & hours Time = hours & ":" & minutes & ":" & seconds Return Time End Function
Ich hoffe, Euch hilft dieser kleine Codeschnipsel.
