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.