===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 05-10-93 (00:00)             Number: 32
From: DOUG BUNGER                  Refer#: 177
  To: VERNON ROE                    Recvd: NO  
Subj: Date & Time                    Conf: (35) Quick Basi
---------------------------------------------------------------------------
VR>need to know how to use the time and date to determin the
VR>amount of time has passed since last playing.  Any
VR>suggestions?

Use TIMER to return the number of seconds since midnight.
Convert current DATE$ to 'Julian date.'

DIM m(12)
m(1) = 0: m(2) = 31: m(3) = m(2) + 28: m(4) = m(3) + 31: m(5) = m(4) + 30
m(6) = m(5) + 31: m(7) = m(6) + 30: m(8) = m(7) + 31: m(9) = m(8) + 31
m(10) = m(9) + 30: m(11) = m(10) + 31: m(12) = m(11) + 31
Jul.Date = m(VAL(LEFT$(DATE$, 2))) + VAL(MID$(DATE$, 4, 2))
IF LEFT$(DATE$,2) > "02" AND RIGHT$(DATE$,2) > "95" THEN
    Jul.Date = Jul.Date + 1 'compensate for leap year in 1996
END IF

Store the users last logout TIMER and Jul.Date in a file.  When they log
back on execute TIMER and Jul.Date again.  Compare the two and you know
how much time has passed in days and seconds.  You may need to subtract
TIMER from 24*60*60 or Jul.Date from 12*31, depending on your code.
Hope it helps.



___
 X WinQwk 1.10a #0 X Unregistered Evaluation Copy

--- Maximus 2.01wb
 * Origin: UltraTech - Nashville, TN  (615)356-0453 {HST} (1:116/30)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 575 950 203/23 209/209
SEEN-BY: 261/1023 280/1 390/1 396/1 15 397/2 2230/100 2440/5 3603/20