Private Declare Function GetTickCount Lib "kernel32.dll" () As Long
 
Private Function RunTime() As String
    Dim Ticks&, Zeit$, Zeitfelder() As String
    Dim Tage$, Stunden$, Minuten$, Sekunden$
 
    Ticks = Val(GetTickCount / 1000)
    Zeit = VBEX_TimeInterval(Ticks)
    [color=green]' VBEX_TimeInterval stellt Zeit im Format hh:mm:ss dar
 
    Zeitfelder = Split(Zeit, ":")
 
    Tage = Zeitfelder(0) \ 24
    If Tage = 1 Then
        Tage = Tage & " Tag, "
    Else
        Tage = Tage & " Tage, "
    End If
 
    Stunden = Zeitfelder(0) Mod 24 & ":"
    Minuten = Zeitfelder(1) & ":"
    Sekunden = Zeitfelder(2)
 
    RunTime = Tage & Stunden & Minuten & Sekunden
End Function

Gruß
Marcus