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)))
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour mi funcion sumar horas
Y como se usa?
saludos.
Cesar Cortes Cruz
SysCtrl Software
Mexico
' Sin +- FWH es mejor "
SysCtrl Software
Mexico
' Sin +- FWH es mejor "
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.
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. 
Como se usa:
Listo.
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.
Gracias Goos,
lo voy a necesitar.
saludos.
Cesar Cortes Cruz
SysCtrl Software
Mexico
' Sin +- FWH es mejor "
SysCtrl Software
Mexico
' Sin +- FWH es mejor "
me alegro!
Para obtener la diferencia entre horas
::oNE_Tiempo:= SubStr( TimeDiff( ::oNE_HoraEntrada:Value, Time() ), 4 )
Saludos
::oNE_Tiempo:= SubStr( TimeDiff( ::oNE_HoraEntrada:Value, Time() ), 4 )
Saludos
/*-----------------------------------------------------------------------------------------------*/
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))yo use otra:
ElapTime