FT_ELAPSED()
 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

 Source: ELAPSED.PRG

 Author: Jo W. French dba Practical Computing