>>Hi all,
>>I have a form with 2 text boxes: one for time of start th process and the other for the elapsed time. Also, I have a command button to start the process
>>
>>At the cmdStart.click() method I put the fllow code:
>>

nStartTime = Seconds()
>>dStartDate = Date()
>>thisform.txtStartTime.Value = ssTohh( nStartTime )
>>thisform.txtElapsed.Value = ssTohh( 0 )
>>...
>>*** Process Begin
>>...
>>Do While <I>main condition</i>
>>    ...
>>    nDiff = Date() - dStartDate
>>    nSeconds = Seconds()
>>    nElapsed = (nDiff*86400) + nSeconds - nStartTime
>>    thisform.txtElapsed.Value = ssTohh( nElapsed )
>>    ...
>>EndDo

>>
>>ssTohh is a function that convert seconds to hh:mm:ss
>>This code work Fine if run in the same day, but...
>>If I run the process before midnight, when the day change, VFP crash.
>>
>>Is this a VFP 5.0 bug ????
>>Please try to test this code and help me! I need to run a process at 23:00 every day and it take 1 or 2 hours and the client want to know the elapsed time.
>>
>>Thaks in advance for your time!!!!!!!
>
>Hello Bruno!
>
>I guess the problem is in ssTohh function. What does your function do, when get negativ number as parameter?
>The problem is the following: To program lines could work on different days!!!
>
>> nDiff = Date() - dStartDate && this line works on the original day
>> nSeconds = Seconds() && this line works on the day after
>
>So nDiff gets zero, and nSeconds is very small nunber.
>
>> nElapsed = (nDiff*86400) + nSeconds - nStartTime
>So, nElapsed is a negativ number!!!
>
>I suggest you, to change the code to:
>Make a variable, holding the last value of Seconds(), and compare to its actual value: (nLastSeconds)
>if nLastSeconds>nSeconds
> nDiff = Date() - dStartDate
>endif
>nLastSeconds=nSeconds
>nElapsed = (nDiff*86400) + nSeconds - nStartTime
>This program structure guarantees, that nDiff can change if seconds has changed!!
>
>BB

SORRY, My previous answer was "corrupted" by html.

BB