Home

Add

Edit

Without Linenumbers

Code in Textfield

Download

  1. #INCLUDE Once
    
  2. Dim XR As Uinteger = Timer()
    
  3. Dim XD As Uinteger = XR \ 86400:    XR = XR Mod 86400
    
  4. Dim XH As Uinteger = XR \ 3600:     XR = XR Mod 3600
    
  5. Dim XM As Uinteger = XR \ 60:       XR = XR Mod 60
    
  6. Print Format(XD, "00") & ":" & Format(XH, "00") & ":" & Format(XM, "00") & ":" & Format(XR, "00")
    
  7. Sleep
    
  8. End 0