vb@rchiv · Tipps & Tricks · Zeitberechnug in Kürze

Rubrik: Datum/Zeit und Timer · Datums- und Zeitfunktionen | VB-Versionen: VB4, VB5, VB6

04.05.03

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

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")

Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv

Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.