>PROCEDURE ElapseTime(pdStart, pdEnd) > >LOCAL lnSeconds, lndays, lnhours, lnminutes, lnseconds, lcResult > >lnSeconds = pdEnd - pdStart > >lnDays = INT(lnSeconds/86400) *lnSeconds = lnSeconds - (lnDays*86400) lnSeconds = lnSeconds % 86400 > >lnHours = INT(lnSeconds/3600) *lnSeconds = lnSeconds - (lnHours*3600) lnSeconds = lnSeconds % 3600 > >lnMinutes = INT(lnSeconds/60) *lnSeconds = lnSeconds - (lnMinutes*60) lnSeconds = lnSeconds % 60 > >lcResult = ALLTRIM(STR(lnDays,5,0)) + " Days " + ; > PADL(ALLTRIM(STR(lnHours,5,0)),2,"0") + ":" + ; > PADL(ALLTRIM(STR(lnMinutes,5,0)),2,"0") + ":" + ; > PADL(ALLTRIM(STR(lnSeconds,5,0)),2,"0") > >RETURN lcResult >