time$ = CurrentTime()
std% = Mid(time$,1,2)
min% = Mid(time$,4,5)
sec% = Mid(time$,7,8)
stund%= std% * 3600
minute%= min% * 60
ziit% = stund%+minute% +sec%
Print ziit%
Print CurrentTime()
Delay 30000

Function MilliSecsToTime$(msecs%)
   Local seconds%,minutes%,hours%
   Local timestring$
   msecs = msecs/1000
   minutes = (msecs - (msecs Mod 60))/60
   msecs = msecs - minutes*60
   seconds = msecs
   If minutes < 10
      timestring$ = timestring$ + "0"+Str$(minutes)+":"
   Else
      timestring$ = timestring$ + Str$(minutes)+":"
   End If
   If seconds < 10
      timestring$ = timestring$ + "0"+Str$(seconds)
   Else
      timestring$ = timestring$ + Str$(seconds)
   End If
   Return timestring$
End Function

Function sek_to_time$(sek)
   Local time$

   h=(sek / 3600)
   m=(sek Mod 3600)/60
   s=(sek Mod 60)
   time=h+":"+m+":"+s
   Return time
End Function

Print sek_to_time$(68087)