home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol130 / 9100.ssb < prev    next >
Encoding:
Text File  |  1984-04-29  |  799 b   |  21 lines
  1. 9105 '    process elapased time
  2. 9110 '    input: LTIME$ start time (hhmmss)
  3. 9115 '    input: STIME$ end time (hhmmss)
  4. 9120 '    output: ELAPMINUTES elapsed time
  5. 9125 ' 1.04    #
  6. 9130 SHOURS = VAL(LEFT$(LTIME$,2))
  7. 9135 SMINUTES = VAL(MID$(LTIME$,3,2))
  8. 9140 SSECONDS = VAL(MID$(LTIME$,5,2))
  9. 9145 IF MID$(STIME$,3,1)=":" THEN ENDTIME$=FNKILLSEP$(STIME$)
  10.     ELSE ENDTIME$=STIME$
  11. 9150 EHOURS = VAL(LEFT$(ENDTIME$,2))
  12. 9155 EMINUTES = VAL(MID$(ENDTIME$,3,2))
  13. 9160 ESECONDS = VAL(MID$(ENDTIME$,5,2))
  14. 9165 STARTIME=SHOURS * 3600 + SMINUTES * 60 + SSECONDS
  15. 9170 ENDTIME=EHOURS * 3600 + EMINUTES * 60 + ESECONDS
  16. 9175 IF STARTIME >= ENDTIME THEN ENDTIME = ENDTIME + 86400
  17. 9180 ELAPTIME=ENDTIME - STARTIME
  18. 9185 ELAPMINUTES=INT(ELAPTIME/60)
  19. 9190 IF ELAPTIME - ELAPMINUTES * 60 > 29 THEN ELAPMINUTES = ELAPMINUTES + 1
  20. 9195 RETURN
  21.