vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Datum/Zeit und Timer · Datums- und Zeitfunktionen   |   VB-Versionen: VB623.12.00
Zahl nach hh:mm:ss konvertieren

Mit der nachfolgenden Routine kann eine beliebige Ganzzahl in das Format hh:mm:ss konvertiert werden. Die Umrechnung ist immer dann sinnvoll, wenn S...

Autor:   Michael BeckerBewertung:     [ Jetzt bewerten ]Views:  17.946 
ohne HomepageSystem:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 Beispielprojekt auf CD 

Mit der nachfolgenden Routine kann eine beliebige Ganzzahl in das Format hh:mm:ss konvertiert werden. Die Umrechnung ist immer dann sinnvoll, wenn Sie die benötigte Zeit für eine bestimmte Aktion stoppen und dann anzeigen möchten.

Public Function DisplayTime(ByVal Sek As Long, _
  Optional ByVal Ausgabe As String = "hh:nn:ss")
  Dim t As Variant
 
  ' Falls anstelle nn mm im Ausgabeformat
  ' angegeben wurde
  Ausgabe = Replace(Ausgabe, "mm", "nn")
 
  Dim h As Long
  Dim m As Long
  Dim s As Long
 
  m = Int(Sek / 60)
  h = Int(m / 60): m = m Mod 60
  s = Sek - (h * 3600) - (m * 60)
 
  t = TimeSerial(h, m, s)
  DisplayTime = Format$(t, Ausgabe)
End Function

Übergeben Sie der Funktion DisplayTime die Anzahl Sekunden und optional das gewünschte Ausgabeformat. Wird für Ausgabe nichts angegeben, so erfolgt die Ausgabe im Format hh:mm:ss.

Beispiele

' Nur Minuten und Sekunden
Debug.Print DisplayTime(417, "nn:ss")	' 06:57
 
' Nur Stunden und Minuten
Debug.Print DisplayTime(47124, "hh:nn")	' 13:05
 
' Stunden, Minuten und Sekunden
Debug.Print DisplayTime(7259)		' 02:00:59