[Resolvido] Cálculo de hora extra

Tenho um relatório que calcula o total de horas trabalhadas em um mês(rltHt_mes). Preciso calcular horas extras subtraindo o total de horas mensais pela carga horária contratada(220h).
Segue o bd em anexo para melhor compreensão.

Olá Philipe, bem vindo ao MaximoAccess.
Não vi o seu anexo, no fórum existe muitos exemplos, com uma busca por vezes encontramos o que pretendemos.
No entanto, veja no link abaixo um excelente artigo do colega Avelino Sampaio:
http://www.usandoaccess.com.br/tutoriais/calculo-horas-extras-e-soma-superior-a-24-horas.asp?id=1#inicio
Abraço

Consegui modificar a função para fazer o que precisava. Agora ela subtrai horas com mais de 3 dígitos. Ex: [250:00:00] - [220:00:00] = 030:00:00
Segue abaixo a função:

Código:

Public Function fncSubHora(horaAcumulada As Variant, HoraAtual As Variant) As Variant
Dim ha, ht, sha As Long, sht As Long, TotalSegundos As Long, Horas As Long, Minutos As Long, Segundos As Long


ha = Split(IIf(horaAcumulada = 0, "000:00:00", horaAcumulada), ":")
ht = Split(HoraAtual, ":")

sha = 3600 * ha(0) + 60 * ha(1) + ha(2)
sht = 3600 * ht(0) + 60 * ht(1) + ht(2)



TotalSegundos = sha - sht


Horas = Int(TotalSegundos / 3600)
Minutos = Int((TotalSegundos - (Horas * 3600)) / 60)
Segundos = TotalSegundos - (Horas * 3600) - (Minutos * 60)

fncSubHora = Format(Horas, "#000") & ":" & Format(Minutos, "00") & ":" & Format(Segundos, "00")
End Function

Olá Philipe, que bom que resolveu !
Obrigado pelo retorno, os utilizadores do fórum agradecem.
Abraço