FiveTech Software tech support forums

Code: Select all  Expand view

Date out             Time Out           military time
06\18\2017         11:00pm           23:00

Date back            Time Back
06\19\2017         12:30am           12:30
 

Code: Select all  Expand view

/*
 *     Return elapsed time between two days and/or times
 *  SYNTAX
 *     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
 *     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
 *     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 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
 

Code: Select all  Expand view

//  dStart = 03/11/2017
//  dEnd   = 03/12/2017    ... notice dENd was incremented below
 
   tStart := strzero( c->Mil_Out,4,0 )           //
   tEnd   := strzero( c->Mil_In, 4,0 )

   tStart := substr(tStart,1,2)+":"+substr(tStart,3,2)+":00"     // 23:00:00
   tEnd   := substr(tEnd,1,2)  +":"+substr(tEnd,3,2)+":00"      // 12:30:00

   If Val( substr( tEnd, 1, 2 ) ) < Val( substr( tStart, 1, 2 ) )
      dEnd++    // 03/13/2017
   Endif
   aDiff := _Elapsed( dStart, dEnd, tStart, tEnd )

   xBrowse( aDiff )

   xTime := aDiff[3,1]  // minutes .. for spanned days may have to add hours

   msginfo( "xTime" )
   msginfo( xTime )

   c->Min := xTime

   msginfo(aDiff[1,1])// -> Days
   msginfo(aDiff[2,1]) // -> Hours
   msginfo(aDiff[3,1]) // -> Minutes
   msginfo(aDiff[4,1]) // -> Seconds

 

The answer is 90 minutes ... I have no problem calculating time on the same date .. but spanning days ( midnight ) is giving me a headache .. any advice or algorithm would be appreciated.

Code: Select all  Expand view

? ( CTOT( DTOC( dEnd ) + " " + tEnd ) - CTOT( DTOC( dStart ) + " " + tStart ) ) * 24 * 60, "minutes"
 

Code: Select all  Expand view

  // Starting Values
   local dStart, dEnd, tStart, tEnd


   SET DATE AMERICAN
   SET CENTURY ON
   SET TIME FORMAT TO "HH:MM:SS"

   // Starting Values
   dStart   := CTOD( "03/11/2017" )
   tStart   := "23:00:00"
   dEnd     := CTOD( "03/12/2017" )
   tEnd     := "12:30:00"

   // Calculation
   ? ElapDTime( dStart, tStart, dEnd, tEnd ) // 13:30:00

return nil

//----------------------------------------------------------------------------//

function ElapDTime( dStart, tStart, dEnd, tEnd )

   local tDiff, cRet  := ""

   tDiff    := CTOT( DTOC( dEnd ) + " " + tEnd ) - CTOT( DTOC( dStart ) + " " + tStart )
   if tDiff >= 1.0
      cRet  := LTrim( STR( Int( tDiff ) ) ) + ' days and '
      tDiff := tDiff % 1
   endif
   cRet +=  SecToTime( tDiff * 24 * 3600 )

return cRet

//----------------------------------------------------------------------------//

 

Code: Select all  Expand view

dEnd   := ctod("03/12/2017" )
dStart := ctod("03/11/2017" )

tStart := "23:00:00"  // 11:00 pm
tEnd   := "12:30:00"  // 12:30 am

nMin := ( CTOT( DTOC( dEnd ) + " " + tEnd ) - CTOT( DTOC( dStart ) + " " + tStart ) ) * 24 * 60

msginfo( "nMin" )
msginfo( nMin )   //  810.0000
 

Code: Select all  Expand view

// Starting Values
   local dStart, dEnd, tStart, tEnd


   SET DATE AMERICAN
   SET CENTURY ON
   SET TIME FORMAT TO "HH:MM:SS"

   // Starting Values
   dStart   := CTOD( "03/11/2017" )
   tStart   := "23:00:00"
   dEnd     := CTOD( "03/12/2017" )
   tEnd     := "12:30:00"

   // Calculation
   ? ElapDTime( dStart, tStart, dEnd, tEnd ) // 13:30:00

return nil

//----------------------------------------------------------------------------//

function ElapDTime( dStart, tStart, dEnd, tEnd )

   local tDiff, cRet  := ""

   tDiff    := CTOT( DTOC( dEnd ) + " " + tEnd ) - CTOT( DTOC( dStart ) + " " + tStart )
   if tDiff >= 1.0
      cRet  := LTrim( STR( Int( tDiff ) ) ) + ' days and '
      tDiff := tDiff % 1
   endif
   cRet +=  SecToTime( tDiff * 24 * 3600 )

return cRet