[Resolvido]Trabalhando com horas acima de 24h

Boa tarde amigos,
Tenho um formulário que trabalha com hora geral, Ex: no mesmo campo 01/01/2018 07:00.
No formulário tenho 06 campos;
1- Hora Entrada manhã.
2- Hora Saída manhã.
3- Hora Entrada tarde.
4- Hora Saída tarde.
5- Hora Extra diurna
6- Hora Extra noturna

Um horário Ex: E/M: 01/01/2018 07:00, S/M: 01/01/2018 11:00, E/T: 01/01/2018 12:00, S/T: 02/01/2018 02:00

Sabendo-se que a hora extra diurna finda as 22:00 e neste horário inicia-se a hora extra noturna.
Gostaria que ao inserir as informações dos horários das entradas e saídas, o sistema já calculasse as horas extras diurna e noturna se houver.

Conto com a ajuda dos colegas.

Desde já obrigado.

Estou começando a desenvolver um sistema nesse sentido.
Faltou uma informação qual é a jornada de trabalho padrão.

A carga horária é de 08:00 diária e 04:00 no sábado.

44 horas semanal

220 horas mensal

Qual a hora inicial manha final manhã inicial tarde final tarde

Isso é só exemplo

Carga horária de trabalho: 08:00

Hora Inicial: 07:00
Ent. Almoço: 12:00
Saída Almoço: 13:00
Hora da Saída: 00:00

Esses horários podem variar:

Saída do serviço no horário normal ás 16:00
Saída do serviço no horário menor ou igual as 22:00, ganhando hora extra diurna
Saída do serviço depois das 00:00, ganhando hora extra diurna até as 22:00 e hora extra noturna depois das 22:00.

João

Veja se isso ajuda:

maximoaccess.com/t28506-horas-extras-maior-que-24h-positivas-e-negativas-com-soma-e-subtracao-de-horas-valor-a-pagar-e-carga-horaria-de-trabalho?highlight=horario+jornada+trabalho

Copie e cole no navegado.


[ ]'s

Bom dia Noobezinho,
Seu exemplo só me oferece a hora extra e o que pretendo é que o sistema calcule automaticamente, hora extra diurna, hora extra noturna.
vou dar-lhe um exemplo:

Carga horária do trabalho é 08:00
A hora extra diurna é o que passar da carga horária até as 22h.

Ent: 07:00, Ent/Almç: 12:00, Saida/Almç: 13:00, Saída: 03:00 - ( Iso é só um exemplo pra facilitar o calculo )

Saída do serviço no horário normal ás 16:00
Saída do serviço no horário menor ou igual as 22:00, ganhando hora extra diurna
Saída do serviço depois das 00:00, ganhando hora extra diurna até as 22:00 e hora extra noturna depois das 22:00.


Conto com sua ajuda e dos colegas.

Já estou quase finalizando o meu projeto o código já esta pronto .
Estou usando um fórmulario contínuo.
Posta o seu sistema para ver a estrutura
Se quiser posso passar o raciocínio do sistema e você quebrar a cabeça kkkkk

Bom dia scandinavo,

Eu ainda estou na luta, busquei ajuda no sistema Telemax do Avelino, analizei como ele fez os cálculos e estou adaptando no sistema que estou criando.

Toda lógica está no Telemax, porem o que estou criando tem algumas peculiaridades com: Compensação, Hora de almoço de 01:00h, caso não tire ganha uma intrajornada, Interjornada que é o descanso entre o plantão de serviço, que deve ser de no mínimo de 11:00h.

Se você poder postar sua ideia posso fazer uma comparação.

Desde já agradeço sua atenção e ajuda.

ola
veja ai o que desenvolvi para min.
agora vou começar o seu sistema.

tem mais alguma obs a fazer
poste a sua base.


abra o frmMes escolha o primeiro funcionário este contem alguns dados

Deixa eu ver se entendi

Pelo jeito a sua escala de trabalho é flutuante com 8 horas(não necessariamnte 4 manha e 4 a tarde) de trabalho 1 de almoço e um intervalo entre
os dias de trabalho de no minimo 11 horas
Então voce não vai só controlar as horas extras vai controlar tambem quando ele pode voltar a trabalhar no outro dia;
monte um exemplo (pode ser no excell) com varios lançamentos e com os resultados esperados
vai melhorar muito a compreensão do problema.

Ok vou lhe enviar uma escala em excel

Só para confirmar a hora extra noturna é somente das 22 horas até meia noite

Veja ai...............

'No meu ponto de vista não a necessidade de inserir a data com a hora juntos
'porque para fazer os calculos tem que extrair as horas
Dim EM As Variant
Dim SM As Variant
Dim ET As Variant
Dim ST As Variant
''''''''''''''''
Dim EXDiurna As Double
Dim EXNoturna As Double
Dim ADNoturno As Double

'extrair a hora e passar para a variavel
EM = Format(Me.HoraEntradaManha, "hh:mm")
SM = Format(Me.HoraSaidaManha, "hh:mm")
ET = Format(Me.HoraEntradaTarde, "hh:mm")
ST = Format(Me.HoraSaidaTarde, "hh:mm")

'Converte a hora da variavel para decimal
EM = HrDbl(Left([EM], 5))
SM = HrDbl(Left([SM], 5))
ET = HrDbl(Left([ET], 5))
ST = HrDbl(Left([ST], 5))
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Calcula Hora extra diurna noturna e adicional noturno
Select Case ST 'saida tarde
Case EM To 22 ' se for entre entrada ate as 22
EXDiurna = (SM - EM) + (ST - ET) - 8
Me.HExDiurna = HrStr(EXDiurna) 'aqui converte em hora novamente
ADNoturno = 0 ' adicional igual a zero
Me.AddNoturno = HrStr(ADNoturno) 'aqui converte em hora novamente

Case Is < EM ' se for menor que a entrada significa que é outro dia
EXDiurna = ((SM - EM) + (22 - ET) + ST) - 8
EXNoturna = 2
Me.HExDiurna = HrStr(EXDiurna) 'aqui converte em hora novamente
Me.HExNoturna = HrStr(EXNoturna) 'aqui converte em hora novamente
ADNoturno = (ST + 24) - 22 'então adiciona 24 a saida para fazer o calculo
Me.AddNoturno = HrStr(ADNoturno) 'aqui converte em hora novamente

Case Is > ET
EXDiurna = ((SM - EM) + (22 - ET)) - 8
EXNoturna = ST - 22
Me.HExDiurna = HrStr(EXDiurna) 'aqui converte em hora novamente
Me.HExNoturna = HrStr(EXNoturna) 'aqui converte em hora novamente
Me.AddNoturno = HrStr(ADNoturno) 'aqui converte em hora novamente

'aqui so calcula o adicional noturno
Case Is < ET ' se for menor que a entrada significa que é outro dia
ADNoturno = (ST + 24) - 22 'então adiciona 24 a saida para fazer o calculo
Me.AddNoturno = HrStr(ADNoturno) 'aqui converte em hora novamente

End Select
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Calcula a intrajornada
'verifica se tem menos de 1 hora de intrajornada(almoço) se tiver adiciona 1 de intrajornada
If ET - SM < 1 Then
Me.Intrajornada = 1
Else
Me.Intrajornada = 0
End If

Boa noite Amigão,

Os campos de horas só vai ficar hora, a data vai ficar em um campo indicando as entradas e saídas do dia.

Depois do campo data e antes do campo entrada da manhã, vai ficar um campo com o nome de Carga horária, ( Referece a carga horaria do dia, Ex: de segunda a sexta a carga horária é de 08:00h e no sábado a carga horária e de 04:00h, assim completa uma carga horária de 44h semanais e 220 mensais.

Hora Extra refere-se da nona hora até a saída do funcionário, o Ad. noturno também, a diferença é que da nona hora até as 22h é extra diurna depois disso é hora extra noturna, Ad. noturno e temos também o horário reduzido noturno que é mais o menos uns 8 minutos de cada hora noturna trabalhada.

Ex: Cada hora extra noturna equivale a 52,5 minutos, os demais minutos que faltam para completar uma hora é que é o horário reduzido noturno.

Fico bom seu exemplo da para entender sua ideia e vou adaptando em meu sistema.

Coloca sua base ai....
Depois que adaptar o código. com este novo campo de carga horária o código fica mais fácil.

Segue o banco, veja que as últimos lançamentos horas horas extras da diferença.

Faltou umas linhas de código na sua versão.

Ficou bom scandinavo, mais quando a saída e 00:00 h, não está calculando a hora extra diurna.

substitua a linha EXDiurna por esta

Case Is < EM ' se for menor que a entrada significa que é outro dia
EXDiurna = ((SM - EM) + (22 - ET)) - JT 'linha corrigida

Valeu meu amigo, deu certinho

Obrigado

valeu pelo retorno

ate mais


Ferias