mi funcion sumar horas

[goosfancito]

Code: Select all

FUNCTION sumaHoras(aHoras)
   LOCAL nItem,;
         nHoras,;
         nMinutos,;
         nHoras1,;
         nMinutos1,;
         nTH,;
         nTM

   nHoras:= Val(SubStr(aHoras[1], 1, At(":", aHoras[1])))
   nMinutos:= Val(SubStr(aHoras[1], At(":", aHoras[1])+1))

   FOR nItem:= 2 TO Len(aHoras)
      nHoras1:= Val(SubStr(aHoras[nItem], 1, At(":",aHoras[nItem])))
      nMinutos1:= Val(SubStr(aHoras[nItem], At(":", aHoras[nItem])+1 ))

      nTM:= nMinutos + nMinutos1
      nTH:= nHoras + nHoras1

      DO WHILE  nTm >= 60
         nTH++
         nTm:= nTm - 60
      ENDDO

      nHoras:= nTH
      nMinutos:= nTm

   NEXT nItem

   RETURN (AllTrim(Str(nHoras)) + ":" + AllTrim(Str(nMinutos)))

[sysctrl2]

Y como se usa?

saludos.

[Biel EA6DD]

Gracias por el aporte, por lo que veo recibe un array con elementos del tipo hora "hh:mm" y los suma.

De todas formas para operaciones con horas también tienes las funciones TimeToSec() y SecToTime() que pueden serte de ayuda.

[goosfancito]

Si, es así como decis recibie un array.
Como no conozco mucha de las funciones para las horas prefiero pensar como hacer una propia que no andar buscando mucho.

[goosfancito]

Como se usa:

Code: Select all

vHorarios[01]:= "7:00"
vHorarios[02]:= "13:00"
vHorarios[03]:= "7:00"
vHorarios[05]:= "13:00"
vHorarios[07]:= "13:59"

msginfo( " Total de horas: " +sumaHoras(vHorarios))

Listo.

[sysctrl2]

Gracias Goos,

lo voy a necesitar.

saludos.

[goosfancito]

me alegro!

[gabo]

Para obtener la diferencia entre horas

::oNE_Tiempo:cText:= SubStr( TimeDiff( ::oNE_HoraEntrada:Value, Time() ), 4 )

Saludos

Code: Select all

/*-----------------------------------------------------------------------------------------------*/
STATIC FUNCTION TimeDiff( cStartTime, cEndTime )
/*-----------------------------------------------------------------------------------------------*/
   RETURN TimeAsString( IF(cEndTime < cStartTime, 86400 , 0) + TimeAsSeconds(cEndTime) - TimeAsSeconds(cStartTime) )

/*-----------------------------------------------------------------------------------------------*/
STATIC FUNCTION TimeAsString( nSeconds )
/*-----------------------------------------------------------------------------------------------*/
   RETURN StrZero(INT(Mod(nSeconds / 3600, 24)), 2, 0) + ":" +;
      StrZero(INT(Mod(nSeconds / 60, 60)), 2, 0) + ":" +;
      StrZero(INT(Mod(nSeconds, 60)), 2, 0)

//------------------------------------------------------------------------------
STATIC FUNCTION TimeAsSeconds( cTime )
/*-----------------------------------------------------------------------------------------------*/
   RETURN VAL(cTime) * 3600 + VAL(SUBSTR(cTime, 4)) * 60 +;
          VAL(SUBSTR(cTime, 7))

 

[goosfancito]

yo use otra:

ElapTime