Elapsed Time

 BBS: Inland Empire Archive
Date: 06-01-92 (19:13)             Number: 148
From: JEAN CREPEAU                 Refer#: NONE
  To: KEITH WATKINS                 Recvd: NO  
Subj: Elapsed Time                   Conf: (2) Quik_Bas

In a message to ALL, KEITH WATKINS wrote:
KW=> I am trying to write a routine that will give me the elapsed time from
    the system clock.   What I have works  fine if you don't  change hours,
    but if the hour changes, my  routine could report that a user  has been
    on for an hour and fifty eight minutes when in fact he has been on  for
    five minutes.  Can anyone help me with this?  Thanks!  -Keith

        Use the following  function that gives  you the difference  between
two times.

DEFINT A-Z

FUNCTION Zero$(x,y)
Zero$=RIGHT$(STRING$(y,48)+LTRIM$(STR$(x)),y)
END FUNCTION

FUNCTION DiffTime$(T1$,T2$)
h=VAL(t2$)-VAL(t1$)
m=VAL(MID$(t2$,4,2))-VAL(MID$(t1$,4,2))
s=VAL(MID$(t2$,7,2))-VAL(MID$(t1$,7,2))
IF s<0 THEN s=s+60:m=m-1
IF m<0 THEN m=m+60:h=h-1
IF h<0 THEN h=h+24
DiffTime$=Zero$(h,2)+":"+Zero$(m,2)+":"+Zero$(s,2)
END FUNCTION

        If you want co calculate the difference between two Time$, you just
have to do DT$=DiffTime$(InitTime$,Time$). The time format is hh:mm:ss.
                Jean
---
 * Origin: INTERACESS Montreal (QC) Canada (514) 528-1415 (1:167/280)