home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxcls.zip / DIFFTIME.CMD < prev    next >
OS/2 REXX Batch file  |  1995-12-20  |  776b  |  27 lines
  1. /*
  2. ** Rexx Program
  3. */
  4. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  5. call SysLoadFuncs
  6.  
  7. PARSE VALUE ARG(1) WITH StartHours ':' StartMins ':' StartSecs ' ' EndHours ':' EndMins ':' EndSecs ' '
  8.  
  9. if StartHours = '' | StartMins = '' | StartSecs = '' | ,
  10.    EndHours = '' | EndMins = '' | EndSecs = '' then do
  11.    say 'USAGE: DIFFTIME hh:mm:ss hh:mm:ss'
  12.    return
  13. end
  14.  
  15.  
  16. StartTotal = ( StartHours * 3600 ) + ( StartMins * 60 ) + StartSecs
  17. EndTotal   = ( EndHours * 3600   ) + ( EndMins * 60 )   + EndSecs
  18. DiffTotal = EndTotal - StartTotal
  19.  
  20. EndHours = DiffTotal % 3600
  21. DiffTotal = DiffTotal - ( EndHours * 3600 )
  22. EndMins  = DiffTotal % 60
  23. EndSecs  = DiffTotal - ( EndMins * 60 )
  24.  
  25. Say 'Duration: ' EndHours 'hrs. ' EndMins 'mins.' EndSecs 'secs.'
  26.  
  27.