LiveCode Forums.

Code: Select all

on mouseUp
   put "00:03:25" into tDate1
   put "00:02:15" into tDate2
   
   ## We need to subtract the whole day from the seconds or we will get something like: 
   ## 81289:05:40 instead of the desired result: 00:05:40
   put the date into tDatum
   convert tDatum to seconds
   convert tDate1 to seconds
   convert tDate2 to seconds
   
   ## remove all days etc. and just leave HH:MM:SS
   subtract tDatum from tDate1
   subtract tDatum from tDate2
   
   ## Now do the math:
   put tDate1 + tDate2 into tDate3
   
   ## Format as desired as SMPTE-lite:
   put smpt_lite(tDate3) 
end mouseUp

function smpt_lite tSecs
   return format("%02d:%02d:%02d", tSecs div 3600, (tSecs mod 3600) div 60, tSecs mod 60)
end smpt_lite

Code: Select all

on mouseUp
   answer addSongLength(fld 1)
end mouseUp

function addSongLength var
   set the itemDel to ":"
   add item 3 of  line 1 of var + item 3 of line 2 of var to totSeconds
   add (item 2 of  line 1 of var + item 2 of line 2 of var) * 60 to totSeconds
   add (item 1 of  line 1 of var + item 1 of line 2 of var) * 3600  to totSeconds
   return totSeconds 
end addSongLength