Zeitberechnug in Kürze Die Umrechnung von z.B. 72 Minunte in Stunden oder von Sekunden in Minuten
Autor:   Sascha Wolter	Bewertung:     [ Jetzt bewerten ]	Views:  13.186
sascha.dasoberlicht.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 9 Bewertung insgesamt: mittelmäßig Durchschnittliche Bewertung: 1.9 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit Hilfe dieses Tipps sind Sie in der Lage, Werte wie z.B. 72 Minuten in 1 Stunde und 12 Minuten umzuwandeln.

Die Prozedur CheckTime erwartet hierbei drei Parameter: Stunden, Minuten und Sekunden und wandelt falls notwendig "überschüssige" Sekunden in Minuten bzw. "überschüssige" Minuten in Stunden um.

Public Sub CheckTime(nStd As Long, _
  nMin As Long, nSek As Long)
 
  If nSek > 59 Then
    nMin = nMin + Int(nSek / 60)
    nSek = nSek - (Int(nSek / 60) * 60)
  End If
 
  If nMin > 59 Then
    nStd = nStd + Int(nMin / 60)
    nMin = nMin - (Int(nMin / 60) * 60)
  End If
End Sub

Beispiel:

Dim nStd As Long
Dim nMin As Long
Dim nSek As Long
 
nStd = 2: nMin = 87: nSek = 341
CheckTime nStd, nMin, nSek
MsgBox Format$(nStd, "00") & ":" & _
  Format$(nMin, "00") & ":" & Format$(nSek, "00")