FUNCTION TempoDecorrido
**************************************************
** Recebe número de segundos
** Retorna tempo decorrido formato ____:__:__:__
**                                 dias hh mm ss
**************************************************
LPARAMETERS nSegundos
PRIVATE nCalcSeg, nCalcMin, nCalcHor, nCalcDia
nSegundos = Round(nSegundos,0)
nCalcMin = INT(nSegundos / 60)
nCalcSeg = nSegundos - (nCalcMin * 60)
nCalcHor = INT(nCalcMin / 60)
nCalcMin = nCalcMin - (nCalcHor * 60)
nCalcDia = INT(nCalcHor / 24)
nCalcHor = nCalcHor - (nCalcDia * 24)
return( PADL(nCalcDia,4,"0") + ":" + PADL(nCalcHor,2,"0") + ":" + ;
        PADL(nCalcMin,2,"0") + ":" + PADL(nCalcSeg,2,"0") )