LiveCode Forums.

Code: Select all

convert tElapsed from seconds to long time

Code: Select all

convert tElapsed from milliseconds to long time

Code: Select all

local sRunning = false
local sStart

on mouseUp
   if not sRunning then
      put true into sRunning
      put the seconds into sStart
      set the twelveHourTime to false -- eliminates AM/PM from display
      send timer to me in 0 milliseconds
   else
      put false into sRunning
      set the twelveHourTime to true
   end if
   
end mouseUp

on timer
   if not sRunning then exit timer
   put the seconds  - sStart into tElapsed
   convert tElapsed to long time
   set the itemDelimiter to ":" 
   subtract 1 from char 2 of item 1 of tElapsed -- needed because it always starts at 01:00:00 instead of 00:00:00

   -- char - 3 of the milliseconds is the tenth of a second
   put ":" & char - 3 of the milliseconds after tElapsed
   put tElapsed into field 1
   send timer to me in 100 milliseconds
end timer

Code: Select all

    put the seconds into tels
    put the milliseconds into telm
    put tels*1000 into tels2
    put telm-tels2 into teld
    convert tels from seconds to long time
    put tels & " : " & teld & cr into fld "foo"

Code: Select all

subtract 1 from char 2 of item 1 of tElapsed -- needed because it always starts at 01:00:00 instead of 00:00:00

Code: Select all

...
## !!!
set numberformat to 00

## startmillisecs = the time when the counting started
## I used a "send.. in 100 millisecs" to update the display
## As I said "early project" where I used german names for variables ;-)

  put the millisecs - startmillisecs into aktuellezeit
## current tme
  
  ## Calculate hours
  put aktuellezeit div(60*60*1000) into stunden
## stunden = hours
  
  ## Calculate remainig time - hours
  put aktuellezeit mod(60*60*1000) into restzeit
## restzeit = remaining time
  
  ## Calculate minutes
  put restzeit div (60*1000) into minuten
  
  ## Calculate remainig time - minutes
  put restzeit mod (60*1000) into restzeit
## restzeit = remaining time

  ## Calculate seconds
  put restzeit div(1000) into sekunden

## I only displayed 1/10 seconds, so I dropped the 1/100 and 1/1000
  put char -3 to -2 of aktuellezeit into the10th_secs
...

Code: Select all

local sRunning = false
local sStart

on mouseUp
   if not sRunning then
      put true into sRunning
      put the milliseconds into sStart
      send timer to me in 0 milliseconds
   else
      put false into sRunning
   end if
end mouseUp

on timer
   if not sRunning then exit timer
   set the numberformat to "00"
   put the millisecs - sStart into tElapsed
   ## current tme
     
     ## Calculate hours
     put tElapsed div(60*60*1000) into tHour
   ## stunden = hours
     
     ## Calculate remainig time - hours
     put tElapsed mod(60*60*1000) into tRemaining
   ## restzeit = remaining time
     
     ## Calculate minutes
     put tRemaining div (60*1000) into tMinutes
     
     ## Calculate remainig time - minutes
     put tRemaining mod (60*1000) into tRemaining
   ## restzeit = remaining time
   
     ## Calculate seconds
     put tRemaining div(1000) into tSeconds
   
   ## I only displayed 1/10 seconds, so I dropped the 1/100 and 1/1000
     put char -3  of tElapsed into the10the_secs
   put tHour & ":" & tMinutes & ":" & tSeconds & ":" & the10the_secs into field 1
   send timer to me in 100 milliseconds
end timer