ayuda urgente con suma de horas
Mira te doy este ejemplo no se si te sirve pero la verdad eso de 50 0 100 seria que tu parametrizaras tus horarios, pero la base es esta.. suerte..
Yo como lo haria seria al final primero sumo las horas luego al final solo cambio si es 50 o 100 para que ese 50 o 100 sea puramente referencial
Suerte
Saul - Guatemala
** Horario Labor
HEntra = 08:00
mHoraentrada = 08:10
mxMinutos = Minutos_Entre(mHoraentrada,HEntra,'00:00')
mNota='Entro Temprano, '
FUNCTION Minutos_Entre
Para x1, x2,x3
If x1 >= x2
RETURN '00:00'
EndIf
If Empty(x1) Or Empty(x2)
RETURN '00:00'
EndIf
x_Hora = x1
x_Rt=0
x_Gc = VAL(x3)
Do While x_Hora < x2
x_Rt=x_Rt+1
x_Ho=Left(x_Hora,2)
x_Mi=Right('00'+Alltrim(Str(Val(Right(x_Hora,2))+1)),2)
If x_Mi='60'
x_Mi='00'
x_Ho=Right('00'+Alltrim(Str(Val(x_Ho)+1)),2)
If x_Ho='24'
x_Ho='00'
EndIf
EndIf
x_Hora=x_Ho+':'+x_Mi
EndDo
*-Para el dato de Gracia
IF x_Rt > x_Gc
x_Rt = x_Rt
IF mEntroTarde
x_Rt = x_Rt - x_Gc
IF x_Rt < 0 && Por si vino tarde y le alganzan los minutos
x_Rt = 0
ENDIF
ENDIF
ELSE
x_Rt = 0
mNota = 'Entro Tarde se aplico tiempo de Gracia, '
ENDIF
x_RtH = ((x_Rt/60) - INT(x_Rt/60))
x_RtM = ROUND(60 * x_RtH,2)
x_RTiempo = TRANSFORM(INT(x_Rt/60), "@L 99")+':'+TRANSFORM(INT(x_RtM), "@L 99")
RETURN (x_RTiempo)