EnableExplicit

Procedure.s GetRunningTime()
  Protected Time
  Protected H
  Protected M
  Protected s
  
  Time=timeGetTime_()
  H=Time/3600000
  M=Time/60000-(H*60)
  s=Time/1000-(H*3600+M*60)
  ProcedureReturn Str(H)+" Stunden, "+Str(M)+" Minuten, "+Str(s)+" Sekunden"
EndProcedure

MessageRequester("","PC-Laufzeit: "+GetRunningTime(),0)