*----------------------------- * FUNCTION Dif_DHMS(ttIni,ttFin) *----------------------------- * Developer: Luis María Guayán, 03 Apr 2001 * Calculate Difference betwen DateTime * variables, and Returns Formated: * ### Days, ## Hour, ## Minutes, ## Seconds *----------------------------- FUNCTION Dif_DHMS(ttIni,ttFin) LOCAL ln, lnDia, lnHor, lnMin, lnSeg IF EMPTY(ttFin) ttFin = DATETIME() ENDIF ln = ttFin - ttIni lnSeg = MOD(ln,60) ln = INT(ln/60) lnMin = MOD(ln,60) ln = INT(ln/60) lnHor = MOD(ln,24) lnDia = INT(ln/24) RETURN ALLTRIM(STR(lnDia))+ " Days, "+ ; TRAN(lnHor, "@L 99")+ " Hours, "+ ; TRAN(lnMin, "@L 99")+ " Minutes, "+ ; TRAN(lnSeg, "@L 99")+ " Seconds" ENDFUNC