Diferencia entre Dias y Hora

Diferencia entre Dias y Hora

Postby Vikthor » Fri Feb 29, 2008 4:45 pm

Hola a todos :

Alguien tendrá una función que devuelva la diferencia que hay en horas entre 2 fechas ?


Saludos
Vikthor
User avatar
Vikthor
 
Posts: 271
Joined: Fri Oct 07, 2005 5:20 am
Location: México

Postby mchumpitazv » Fri Feb 29, 2008 5:03 pm

Hola

No es muy clara tu pregunta pero porque no solo restas las fechas y el resultado lo multiplicas por 24 hrs.

Saludos

Martin
User avatar
mchumpitazv
 
Posts: 54
Joined: Thu Dec 27, 2007 6:56 pm
Location: Lima -Perú

Postby Raymundo Islas M. » Fri Feb 29, 2008 6:10 pm

Hola Vikthor


Espero esto te sirva :


Code: Select all  Expand view  RUN
/*  $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





Code: Select all  Expand view  RUN
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
    ? aDataTest[n,1], STR(aDataTest[n,2], 12, 4)
    ?? " "
    ?? IF(n == 1, 'Days', IF( n== 2, 'Hours', IF( n == 3, 'Mins.', 'Secs.')))
  NEXT
  RETURN NIL



Viene en la Nanfor


Saludos
FWH 10.6 + xHarbour + Borland 582
User avatar
Raymundo Islas M.
 
Posts: 592
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO

Postby Vikthor » Fri Feb 29, 2008 6:20 pm

Muchas Gracias Ray.

Es justo lo que necesito
Vikthor
User avatar
Vikthor
 
Posts: 271
Joined: Fri Oct 07, 2005 5:20 am
Location: México


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: JoseLuis and 93 guests