FiveTech Software tech support forums

Code: Select all

FUNCTION DEMO()
LOCAL dStart, dEnd, cTimeStart, cTimeEnd, n, aDataTest := {}

dStart := CTOD('11/28/90')
dEnd   := CTOD('11/30/90')
cTimeStart := "08:00:00"
cTimeEnd   := "12:10:30"
 
aDataTest := FT_ELAPSED(dStart,dEnd,cTimeStart,cTimeEnd)
FOR n = 1 to 4
    IF n = 1
           MsgAlert( STR( aDataTest[n,1] ),  + CRLF + ;
                          "Days" )
   ENDIF  
   IF n = 2
          MsgAlert( STR( aDataTest[n,2] ),  + CRLF + ;
                          'Hours" ) 
   ENDIF  
   IF n = 3
          MsgAlert( STR( aDataTest[n,3] ),  + CRLF + ;
                          'Minutes" ) 
   ENDIF  
   IF n = 4
          MsgAlert( STR( aDataTest[n,4] ),  + CRLF + ;
                          'Seconds" ) 
   ENDIF   
NEXT

RETURN NIL
 
 
/*  DOC
 *  FUNCNAME
 *     FT_ELAPSED()
 *  CATEGORY
 *     Date/Time
 *  ONELINER
 *     Return elapsed time between two days and/or times
 *
 *  SYNTAX
 *  FT_ELAPSED([ <dStart> ], [ <dEnd> ], ;
 *                <cTimeStart>, <cTimeEnd>) -> aTimedata
 * 
 *  ARGUMENTS
 *     <dStart> is any valid date in any date format. Defaults to DATE().
 *
 *     <dEnd> is any valid date in any date format. Defaults to DATE().
 *
 *     <cTimeStart> is a valid Time string of the format 'hh:mm:ss' where
 *     hh is hours in 24-hour format.
 *
 *     <cTimeEnd> is a valid Time string of the format 'hh:mm:ss' where
 *     hh is hours in 24-hour format.
 *
 *  RETURNS
 *     A two-dimensional array containing elapsed time data.
 *
 *  DESCRIPTION
 *     FT_ELAPSED() calculates 
 *     the elapsed time between two Date/Time events.
 *
 *     It returns an array which contains the following data:
 *
 *     aRetVal[1,1]  Integer Days      aRetVal[1,2] Total Days    (nn.nnnn)
 *     aRetVal[2,1]  Integer Hours     aRetVal[2,2] Total Hours   (nn.nnnn)
 *     aRetVal[3,1]  Integer Minutes   aRetVal[3,2] Total Minutes (nn.nnnn)
 *     aRetVal[4,1]  Integer Seconds   aRetVal[4,2] Total Seconds (nn)
 *
 *  EXAMPLES
 *    
 *  FT_ELAPSED(CTOD('11/28/90'), CTOD('11/30/90'), ;
 *                     '08:00:00', '12:10:30')
 *     will return:
 *
 *     aRetVal[1,1] ->  2 (Days)        aRetVal[1,2] ->    2.1740  Days
 *     aRetVal[2,1] ->  4 (Hours)       aRetVal[2,2] ->   52.1750  Hours
 *     aRetVal[3,1] -> 10 (Minutes)     aRetVal[3,2] -> 3130.5000  Minutes
 *     aRetVal[4,1] -> 30 (Seconds)     aRetVal[4,2] -> 187830     Seconds
 *
 *  END
 */
 
FUNCTION FT_ELAPSED(dStart, dEnd, cTimeStart, cTimeEnd)
LOCAL nTotalSec, nCtr, nConstant, nTemp, aRetVal[4,2]
 
IF ! ( VALTYPE(dStart) $ 'DC' )
     dStart := DATE()
ELSEIF VALTYPE(dStart) == 'C'
     cTimeStart := dStart
     dStart     := DATE()
ENDIF
 
IF ! ( VALTYPE(dEnd) $ 'DC' )
     dEnd := DATE()
ELSEIF VALTYPE(dEnd) == 'C'
     cTimeEnd := dEnd
     dEnd := DATE()
ENDIF
 
IF( VALTYPE(cTimeStart) != 'C', cTimeStart := '00:00:00', )
IF( VALTYPE(cTimeEnd)   != 'C', cTimeEnd   := '00:00:00', )
 
nTotalSec  := (dEnd - dStart) * 86400 + ;
                    VAL(cTimeEnd)   *  3600 + ;
                    VAL(SUBSTR(cTimeEnd,AT(':', cTimeEnd)+1,2)) * 60 + ;
                    IF(RAT(':', cTimeEnd) == AT(':', cTimeEnd), 0, ;
                        VAL(SUBSTR(cTimeEnd,RAT(':', cTimeEnd)+1))) - ;
                        VAL(cTimeStart) * 3600 - ;
                        VAL(SUBSTR(cTimeStart,AT(':', ;
                               cTimeStart)+1,2)) * 60 - ;
                    IF(RAT(':', cTimeStart) == AT(':', cTimeStart), 0, ;
                        VAL(SUBSTR(cTimeStart,RAT(':', cTimeStart)+1)))
 
nTemp := nTotalSec
 
FOR nCtr = 1 to 4
     nConstant := IF(nCtr == 1, 86400, IF(nCtr == 2, 3600, ;
                         IF( nCtr == 3, 60, 1)))
     aRetVal[nCtr,1] := INT(nTemp/nConstant)
     aRetval[nCtr,2] := nTotalSec / nConstant
     nTemp -= aRetVal[nCtr,1] * nConstant
NEXT
 
RETURN aRetVal