Re: Time Issue

Posted by Jon Sacks on April 04, 2008 at 08:15:38:

In Reply to: Re: Time Issue posted by Jim Guerber on April 01, 2008 at 13:24:10:

I have also had this problem, I reported back a long time ago, sometimes you just get back a bogus time.

For instance take the following example below:

Here is the result with 100 loops, 3 out of the 100 reported back an end time before the start time:

Time Test Program

Enter Maximum Number of Tests: 100
Test #: 1
Time Problem on Iteration: 70
Start Time:11:13:13.25
End Time: 11:13:13.01
Tab
Time Problem on Iteration: 84
Start Time:11:13:55.24
End Time: 11:13:55.00
Tab
Time Problem on Iteration: 95
Start Time:11:13:56.25
End Time: 11:13:56.01
Tab
Total Iterations: 100
Last Start Time:11:13:59.09
Last End Time: 11:13:59.09
Tab-To Exit

How could we possible get back 18.01 as the end time? I noticed this when logging in my XML application, I have many situations where the end time reported is before the start time on very quick situations. I would expect at the least that if the clock did not update you would get the original time!

Source:

!S TESTTIME.SRC,SRC
!O TESTTIME,EBG
!L TXX,E
!R QMONITOR

LENGTH 1 & LOCAL NUL$
LENGTH 11 & LOCAL StartTime$, EndTime$
LENGTH 5.0 & LOCAL Delay, X
LENGTH 6.0 & LOCAL NoTimes, MaxTimes
LENGTH 2.0 & LOCAL DispNoTimes

BANNER: FORMAT (ET);(CS)

CLEAR
Begin:
PRINT (0, BANNER)
PRINT (0) 'Time Test Program'
PRINT (0) ''
PRINT (0) 'Enter Maximum Number of Tests:'
INPUT (0) MaxTimes

NextTest:
NoTimes = NoTimes + 1
IF DispNotimes = 0 PRINT (0) 'Test #:';NoTimes
DispNoTimes = DispNotimes + 1
IF NoTimes GE MaxTimes GOTO EOJ
NUL$ = DSTAT('CL1')
StartTime$ = Time$
Delay = Delay + 10
FOR X = 1 to Delay
NEXT X
NUL$ = DSTAT('CL1')
EndTime$ = Time$
IF EndTime$ LT StartTime$
PRINT (0) 'Time Problem on Iteration:';NoTimes
PRINT (0) 'Start Time:';(SF);StartTime$;(SB)
PRINT (0) 'End Time: ';(SF);EndTime$;(SB)
PRINT (0) 'Tab' & INPUT (0) ''
ENDIF
GOTO NextTest

EOJ:
PRINT (0) 'Total Iterations:';NoTimes
PRINT (0) 'Last Start Time:';(SF);StartTime$;(SB)
PRINT (0) 'Last End Time: ';(SF);EndTime$;(SB)
PRINT (0) 'Tab-To Exit'
INPUT (0) ''
RUN 'QMONITOR'

Follow Ups:

• Re: Time Issue Greg 07:40:28 04/07/08 (3)
  • Re: Time Issue Jim Guerber 09:50:03 04/07/08 (2)
    • Re: Time Issue Greg 18:38:31 04/07/08 (1)
      • Re: Time Issue Jim Guerber 19:09:32 04/07/08 (0)

Post a Followup

Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.