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.DEFINTA-ZFUNCTIONZero$(x,y) Zero$=RIGHT$(STRING$(y,48)+LTRIM$(STR$(x)),y)ENDFUNCTIONFUNCTIONDiffTime$(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))IFs<0THENs=s+60:m=m-1IFm<0THENm=m+60:h=h-1IFh<0THENh=h+24 DiffTime$=Zero$(h,2)+":"+Zero$(m,2)+":"+Zero$(s,2)ENDFUNCTIONIf 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)

Echo Basic Postings

**Books at Amazon:**

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET