MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Trabalhando com horas acima de 24h

    Compartilhe

    João afonso
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 396
    Registrado : 24/05/2011

    [Resolvido]Trabalhando com horas acima de 24h

    Mensagem  João afonso em 12/2/2018, 15:11

    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.
    avatar
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 518
    Registrado : 11/11/2009

    Re: [Resolvido]Trabalhando com horas acima de 24h

    Mensagem  scandinavo em 13/2/2018, 07:19

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

    João afonso
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 396
    Registrado : 24/05/2011

    Re: [Resolvido]Trabalhando com horas acima de 24h

    Mensagem  João afonso em 13/2/2018, 22:13

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

    44 horas semanal

    220 horas mensal
    avatar
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 518
    Registrado : 11/11/2009

    Re: [Resolvido]Trabalhando com horas acima de 24h

    Mensagem  scandinavo em 14/2/2018, 01:59

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

    João afonso
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 396
    Registrado : 24/05/2011

    Re: [Resolvido]Trabalhando com horas acima de 24h

    Mensagem  João afonso em 14/2/2018, 02:58

    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.

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Trabalhando com horas acima de 24h

    Mensagem  Noobezinho em 14/2/2018, 09:04

    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

    João afonso
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 396
    Registrado : 24/05/2011

    Re: [Resolvido]Trabalhando com horas acima de 24h

    Mensagem  João afonso em 14/2/2018, 13:59

    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.
    avatar
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 518
    Registrado : 11/11/2009

    Re: [Resolvido]Trabalhando com horas acima de 24h

    Mensagem  scandinavo em 17/2/2018, 21:20

    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

    João afonso
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 396
    Registrado : 24/05/2011

    Re: [Resolvido]Trabalhando com horas acima de 24h

    Mensagem  João afonso em 20/2/2018, 13:52

    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.
    avatar
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 518
    Registrado : 11/11/2009

    Re: [Resolvido]Trabalhando com horas acima de 24h

    Mensagem  scandinavo em 21/2/2018, 12:25

    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
    Anexos
    HoraHextra.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (192 Kb) Baixado 14 vez(es)
    avatar
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 518
    Registrado : 11/11/2009

    Re: [Resolvido]Trabalhando com horas acima de 24h

    Mensagem  scandinavo em 21/2/2018, 16:37

    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.

    João afonso
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 396
    Registrado : 24/05/2011

    Re: [Resolvido]Trabalhando com horas acima de 24h

    Mensagem  João afonso em 26/2/2018, 16:49

    Ok vou lhe enviar uma escala em excel
    Anexos
    NOVO MÔDELO BANCO DE HORAS PARA USO.xlsx
    Você não tem permissão para fazer download dos arquivos anexados.
    (33 Kb) Baixado 12 vez(es)
    avatar
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 518
    Registrado : 11/11/2009

    Re: [Resolvido]Trabalhando com horas acima de 24h

    Mensagem  scandinavo em 28/2/2018, 22:43

    Só para confirmar a hora extra noturna é somente das 22 horas até meia noite
    avatar
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 518
    Registrado : 11/11/2009

    Re: [Resolvido]Trabalhando com horas acima de 24h

    Mensagem  scandinavo em 2/3/2018, 11:26

    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
    Anexos
    Hora diurna noturna adicional.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (46 Kb) Baixado 8 vez(es)

    João afonso
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 396
    Registrado : 24/05/2011

    Re: [Resolvido]Trabalhando com horas acima de 24h

    Mensagem  João afonso em 3/3/2018, 00:33

    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.

    avatar
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 518
    Registrado : 11/11/2009

    Re: [Resolvido]Trabalhando com horas acima de 24h

    Mensagem  scandinavo em 3/3/2018, 00:50

    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.

    João afonso
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 396
    Registrado : 24/05/2011

    Re: [Resolvido]Trabalhando com horas acima de 24h

    Mensagem  João afonso em 3/3/2018, 17:22

    Segue o banco, veja que as últimos lançamentos horas horas extras da diferença.
    Anexos
    Trb_Horas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.3 Mb) Baixado 9 vez(es)
    avatar
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 518
    Registrado : 11/11/2009

    Re: [Resolvido]Trabalhando com horas acima de 24h

    Mensagem  scandinavo em 5/3/2018, 16:48

    Faltou umas linhas de código na sua versão.
    Anexos
    Trb_HorasII.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.3 Mb) Baixado 11 vez(es)

    João afonso
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 396
    Registrado : 24/05/2011

    Re: [Resolvido]Trabalhando com horas acima de 24h

    Mensagem  João afonso em 5/3/2018, 23:24

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 518
    Registrado : 11/11/2009

    Re: [Resolvido]Trabalhando com horas acima de 24h

    Mensagem  scandinavo em 6/3/2018, 16:56

    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

    João afonso
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 396
    Registrado : 24/05/2011

    Re: [Resolvido]Trabalhando com horas acima de 24h

    Mensagem  João afonso em 6/3/2018, 22:49

    Valeu meu amigo, deu certinho

    Obrigado
    avatar
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 518
    Registrado : 11/11/2009

    Re: [Resolvido]Trabalhando com horas acima de 24h

    Mensagem  scandinavo em 7/3/2018, 16:05

    valeu pelo retorno

    ate mais


    Ferias

      Data/hora atual: 17/8/2018, 21:49