Mit VB.NET Minuten in Zeit-Format konvertieren

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.