Adicional noturno e hora Extras

alguem tem algum exemplo de adicional noturno e hora extra

Baixe o Telemax

http://www.usandoaccess.com.br/blog/blog9.asp?id=1#inicio

Bom estudo!

Function totalHoraNoturna(dataInicial As Date, dataFinal As Date) As Long

Dim intHoraInicio As Integer
Dim intHoraFim As Integer

intHoraInicio = IIf(Hour(dataInicial) < 22 And Hour(dataInicial) > 6, 22, Hour(dataInicial))
intHoraFim = IIf(Hour(dataFinal) > 6 And Hour(dataFinal) <= 22, 6, Hour(dataFinal))

If intHoraInicio >= 22 Then
If intHoraFim > 22 Then
horaNoturna = intHoraFim - intHoraInicio
Else
horaNoturna = 24 - intHoraInicio + intHoraFim
End If
Else
horaNoturna = intHoraFim - intHoraInicio
End If

End Function

consegui esta funcao mas eu quero usar nos campos entrada e saida e nao com datas


ex :
dia 13/05/13 e dia 14/05/13
entrada: 06:00 da manha
saida: 06:00 da manha
entao o adicional noturno do dia 13/05/13 seria das 22:00 ate as 24:00
e do dia 14/05/13 seria 24:01 ate as 05:00

alguem consegue me ajudar

Alguem pra ajudar?????????????

alguem pode me ajudar pois o adicional noturno e apartir das 22:00hs e ate as 05:00hs
e quero estrair as horas ou minutos entre esse periodo!!!

pessoal me ajuda ai!!!

????

Veja se ajuda