No, your code has several typo bugs (you use xHour and XHours as one variable, xElpased and xElapsed as one variable, etc). But even if I fix these, the code still fails if you call it with (0,30), (0,3600), (0,3605), (3610,3615), etc. Because in some cases xHours and xMin are not initialized.

Try for your self... :(

BTW, for your example the xElapsed is 7234 and the functions fails because xMin was not initialized (as I already told you, when the hours or minutes part is/are zero).

Vlad

>The code works fine in all cases. This converts the seconds to hours, mintues, and seconds, so the output will look something like: 2h 0m 34s.
>
>
>>Your code fails if the number of hours or minutes is zero.
>>
>>Vlad
>>
>>>Well, I hate sloppy code, so here is the new code using the SECONDS() function. It is considerably smaller:
>>>
>>>****************************************************************************
>>>Procedure R_TimeElapsed &&@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
>>>****************************************************************************
>>>PARAMETERS pTimeStart,pTimeEnd
>>>
>>>PRIVATE xElapsed,xSec,xMin,xHour,xReturn
>>>
>>>if pTimeStart > pTimeEnd
>>> xElapsed = (24*60*60)-pTimeStart+pTimeEnd
>>>else
>>> xElapsed = pTimeEnd - pTimeStart
>>>endif
>>>
>>>if xElapsed >= 3600
>>> xHours = Int(xElapsed/3600)
>>> xElpased = xElapsed - (3600*xHours)
>>>endif
>>>if xElapsed >= 60
>>> xMin = Int(xTime/60)
>>> xElapsed = xElapsed - (60*xMin)
>>>endif
>>>xSec = xElapsed
>>>xReturn = ALLTRIM(STR(xHour))+"h "+ALLTRIM(STR(xMin))+"m ";
>>> +ALLTRIM(STR(xSec))+"s"
>>>
>>>Return xReturn