[Resolvido]Calculo de hora Extras

boa noite a todos

tenho uma tabela no banco de dados que tem os seguintes campos
E1, S1, E2, S2 e Hx

ex:
  E1       S1        E2       S2         HX
07:41   12:12   13:26  19:55    02:00

Sendo que tenho 2 horas de almoco, mas se eu fazer menos que 2 horas almoço tambem soma na hx conforme exemplo acima,
e sao 8hs por dia que tenho que trabalhar, e no sabado sao de 08:00 as 14:00 com 2 hora extras no sabado

procurando achei esta função


Function Intervalo(Inicio, Termino) As String
   Dim strHoras As String, strMinutos As String
   Dim sglRet As Single

   If IsNull(Inicio) Or IsNull(Termino) Then Exit Function

   sglRet = (Termino - Inicio) * 24
   strHoras = Format(Int(sglRet), "00")
   sglRet = (sglRet - strHoras) * 60
   strMinutos = Format(Int(sglRet), "00")
   If Termino < Inicio Then
       Intervalo = Format(Inicio - Termino - 24, "hh:nn")
   Else
       Intervalo = strHoras & ":" & strMinutos
   End If

End Function

alguem pode me ajudar

bom dia a todos


consegui resolver