Sumar horas
Tengo que sumar un campo de horas, en formato hora larga y aunque pase de 24 horas quiero que me haga la suma ¿que puedo hacer para que me haga el calculo?
responderme si quereis a [email protected]
responderme si quereis a [email protected]
1 respuesta
Respuesta de amallolm
1
La siguiente función te pemitirá sumar las horas
Public Function SumaHoras(Hora1 As Date, Hora2 As Date) As String
Dim HH1 As Integer, MM1 As Integer, SS1 As Integer
Dim HH2 As Integer, MM2 As Integer, SS2 As Integer
Dim HH As Integer, MM As Integer, SS As Integer
HH = 0
MM = 0
SS = 0
HH1 = DatePart("h", Hora1)
MM1 = DatePart("n", Hora1)
SS1 = DatePart("s", Hora1)
HH2 = DatePart("h", Hora2)
MM2 = DatePart("n", Hora2)
SS2 = DatePart("s", Hora2)
SS = SS + SS1 + SS2
If SS > 60 Then
MM = MM + 1
SS = SS - 60
End If
MM = MM + MM1 + MM2
If MM > 60 Then
HH = HH + 1
MM = MM - 60
End If
HH = HH + HH1 + HH2
SumaHoras = IIf(HH < 10, "0", "") & CStr(HH) & ":" & _
IIf(MM < 10, "0", "") & CStr(MM) & ":" & _
IIf(SS < 10, "0", "") & CStr(SS)
End Function
Public Function SumaHoras(Hora1 As Date, Hora2 As Date) As String
Dim HH1 As Integer, MM1 As Integer, SS1 As Integer
Dim HH2 As Integer, MM2 As Integer, SS2 As Integer
Dim HH As Integer, MM As Integer, SS As Integer
HH = 0
MM = 0
SS = 0
HH1 = DatePart("h", Hora1)
MM1 = DatePart("n", Hora1)
SS1 = DatePart("s", Hora1)
HH2 = DatePart("h", Hora2)
MM2 = DatePart("n", Hora2)
SS2 = DatePart("s", Hora2)
SS = SS + SS1 + SS2
If SS > 60 Then
MM = MM + 1
SS = SS - 60
End If
MM = MM + MM1 + MM2
If MM > 60 Then
HH = HH + 1
MM = MM - 60
End If
HH = HH + HH1 + HH2
SumaHoras = IIf(HH < 10, "0", "") & CStr(HH) & ":" & _
IIf(MM < 10, "0", "") & CStr(MM) & ":" & _
IIf(SS < 10, "0", "") & CStr(SS)
End Function
