MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

5 participantes

    Calculo Horas Extras

    neves1
    neves1
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 146
    Registrado : 12/06/2017

    Calculo Horas Extras Empty Calculo Horas Extras

    Mensagem  neves1 30/4/2021, 14:47

    Bom dia,

    Alguém poderia me ajudar em 1 duvida por gentileza.

    Eu baixei do forum um repositório fiz umas modificações ao meu modo, tudo funcionando correto.

    Mas tem 1 pequeno problema que não consigo solucionar, as horas são computadas da seguinte forma:

    2 primeiras horas = 50%

    restantes das horas = 100%

    Conseguem me ajudar como posso fazer esse calculo.

    Ex: Funcionário trabalho 06:00 as 18:00h

    06:00 as 08:00 equivale a 50%

    08:00 as 18:00 equivale a 100%

    Espero ter explicado pra vcs como preciso

    Att.

    Paulo
    Anexos
    Calculo Horas Extras AttachmentExtras.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (961 Kb) Baixado 12 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1777
    Registrado : 13/12/2016

    Calculo Horas Extras Empty Re: Calculo Horas Extras

    Mensagem  Alexandre Fim 30/4/2021, 20:44

    Neves,

    Qual é o formulário que realiza o cálculo?



    Ex: Funcionário trabalho 06:00 as 18:00h

    06:00 as 08:00 equivale a 50%

    08:00 as 18:00 equivale a 100%


    50% do quê? Do valor/hora do funcionário

    []'s

    FIM
    neves1
    neves1
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 146
    Registrado : 12/06/2017

    Calculo Horas Extras Empty Re: Calculo Horas Extras

    Mensagem  neves1 1/5/2021, 04:23

    @Alexandre

    Desculpe nao explicar correto

    entre um periodo de horario conforme mencionei

    Ex:

    06:00 as 18:00h

    as 2 horas iniciais = valorX
    (2 x valorX)

    restantes das horas = valorY
    (10 x valorY)

    Espero que tenha entendido agora, obrigado

    att.
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 735
    Registrado : 23/03/2010

    Calculo Horas Extras Empty Re: Calculo Horas Extras

    Mensagem  Finformática 1/5/2021, 18:40

    Caro Neves,

    Isso é fixo? Sempre 12 horas? O funcionário trabalha pelo menos 2 horas extras? Tem tabela guardando horas extras do mês?

    Abraço
    neves1
    neves1
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 146
    Registrado : 12/06/2017

    Calculo Horas Extras Empty Re: Calculo Horas Extras

    Mensagem  neves1 1/5/2021, 19:33

    @Finformática

    Aqui sempre o valor das 2 primeiras horas extra é valorX

    Depois da 3h em diante é outro valorY a hora extra.

    Funcionario trabalhou exemplo 10horas extras, aqui né 100% pago

    como disse as 2h iniciais sao 50% do valor

    as demais são 100% do valor

    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    Calculo Horas Extras Empty Re: Calculo Horas Extras

    Mensagem  Noobezinho 1/5/2021, 20:17

    Neves

    Isso é aqui no Brasil?

    Ser for, creio que não é bem assim.

    Tem horas extras de 50, 60, 75 e 100% além do valor da hora normal, até onde sei.

    Melhor verificar isso certinho como o contador ou pesquisando, para

    não ter que refazer os cálculos depois.


    { }'s

    Balem




    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 735
    Registrado : 23/03/2010

    Calculo Horas Extras Empty Re: Calculo Horas Extras

    Mensagem  Finformática 1/5/2021, 20:57

    Caro Amigo,

    Além das observações do Grande Noob (além da CLT ainda temos sindicatos com grandes variantes), volto a perguntar: Isso é fixo? Sempre 12 horas? O funcionário trabalha pelo menos 2 horas extras? Tem tabela guardando horas extras do mês? Todos os dias tem extras? Você já tem o valor de uma hora normal?
    Se o funcionário trabalha apenas uma hora extra em um dia, em outro trabalha 5 horas, em outro trabalha 12 horas extras. Tenho que ter ideia de como vou ter a informação para ver como fazer os cálculos.
    A questão das duas primeiras horas serem um percentual e o restante outro percentual, entendi perfeitamente. Preciso de detalhes da informação.
    Abraços
    neves1
    neves1
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 146
    Registrado : 12/06/2017

    Calculo Horas Extras Empty Re: Calculo Horas Extras

    Mensagem  neves1 2/5/2021, 00:29

    @Noobezinho

    Esse modo que estou tentando explicar que nosso amigo @finformatica entendeu é combinado com sindicato, correto e na lei.


    @Finformática

    As duas primeiras horas é 50%, demais horas 100%
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    Calculo Horas Extras Empty Re: Calculo Horas Extras

    Mensagem  Noobezinho 2/5/2021, 00:41

    Certo Neves

    Então fica mais fácil.

    Mas precisamos saber se são os mesmo valores  nos sábados, domingos e feriados.

    Aguardamos...


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    neves1
    neves1
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 146
    Registrado : 12/06/2017

    Calculo Horas Extras Empty Re: Calculo Horas Extras

    Mensagem  neves1 2/5/2021, 03:07

    @Noobezinho

    Todos os dias da semana os mesmos valores.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    Calculo Horas Extras Empty Re: Calculo Horas Extras

    Mensagem  Noobezinho 2/5/2021, 11:49

    Neves

    Alexandre Fim escreveu:
    Neves,
    Qual é o formulário que realiza o cálculo?

    Na mensagem nº 2

    Qual?


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    neves1
    neves1
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 146
    Registrado : 12/06/2017

    Calculo Horas Extras Empty Re: Calculo Horas Extras

    Mensagem  neves1 2/5/2021, 16:32

    Noobezinho

    Formulario: frmLançarHe
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    Calculo Horas Extras Empty Re: Calculo Horas Extras

    Mensagem  Noobezinho 2/5/2021, 21:30

    Neves

    Esse formulário que mencionou. somente tem campos para entradas de dados.

    Não tem campos para colocar os valores em espécie.

    E esse mesmo?




    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    neves1
    neves1
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 146
    Registrado : 12/06/2017

    Calculo Horas Extras Empty Re: Calculo Horas Extras

    Mensagem  neves1 2/5/2021, 21:37

    @Noobezinho

    A sim o local onde entraria os valores seria na aba configurações do formulario abaixo

    Formulario: frmHe

    Esse proximo formulario é onde digita os horarios.

    Formulario: frmLançarHe
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    Calculo Horas Extras Empty Re: Calculo Horas Extras

    Mensagem  Noobezinho 2/5/2021, 21:43

    Meu amigo

    Fornecendo informações a conta gotas fica difícil ajudar.

    Estamos na msg nº 15, agora que temos as infos necessárias

    Bom FDS, amanha nos falamos.

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 735
    Registrado : 23/03/2010

    Calculo Horas Extras Empty Re: Calculo Horas Extras

    Mensagem  Finformática 2/5/2021, 22:22

    Caro Amigo,

    Veja se o anexo ajuda.

    Abraços
    Anexos
    Calculo Horas Extras AttachmentSisHoras020521.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (39 Kb) Baixado 16 vez(es)
    neves1
    neves1
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 146
    Registrado : 12/06/2017

    Calculo Horas Extras Empty Re: Calculo Horas Extras

    Mensagem  neves1 2/5/2021, 22:27

    @Finformática

    Meu amigo deu perfeitamente oque fez unico problema é que se funcionario entrar as 18:00 e sair as 06:00 do dia seguinte aparece -12h

    Da pra resolver isso ?

    Obrigado atenção
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 735
    Registrado : 23/03/2010

    Calculo Horas Extras Empty Re: Calculo Horas Extras

    Mensagem  Finformática 2/5/2021, 22:32

    Pedimos detalhes. Isso funciona para horas no mesmo dia. Está todo aberto, sem críticas de horainicial <  ou > horafinal, data aceita tudo, intervalo de horas dentro de outro também aceita. Tudo aberto. Criei pelo menos a ideia para ser adaptada. Para intervalos de horas iniciadas em um dia e terminado no dia seguinte, faça dois lançamentos. Faça as adaptações para suas necessidades.

    Grande Abraço.
    neves1
    neves1
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 146
    Registrado : 12/06/2017

    Calculo Horas Extras Empty Re: Calculo Horas Extras

    Mensagem  neves1 3/5/2021, 01:08

    Obrigado atenção vou ver se faço as alterações.

    att.

    Paulo
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 735
    Registrado : 23/03/2010

    Calculo Horas Extras Empty Re: Calculo Horas Extras

    Mensagem  Finformática 3/5/2021, 13:13

    HExtra: CData(SeImed([HoraExtraIni]>[HoraExtraFIM];1+[HoraExtraFIM]-[HoraExtraINI];[HoraExtraFIM]-[HoraExtraINI]))

    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

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

    Calculo Horas Extras Empty Re: Calculo Horas Extras

    Mensagem  scandinavo 3/5/2021, 13:23

    So para acrescentar ao tópico.
    Não consegui enviar o projeto. Caso tenha interesse em envio por email

    Código:
    Private Sub btTeste_Click()
    Dim EM As Double 'entrada manha
    Dim TEM As Double 'Tempo entrada manh? antes das 7
    Dim SM As Double 'saida manha
    Dim TSM As Double 'Tempo saida manh? depois das 11
    Dim A As Double 'Hora extra feita durante o almo?o
    Dim ET As Double 'entrada tarde
    Dim TET As Double 'Tempo entrada tarde antes das 12:12
    Dim ST As Double 'saida tarde ro?a
    Dim TST As Double 'Tempo saida tarde depois das 17
    Dim STP As Double 'Saida tarde ponto
    Dim EX As Double 'Total das horas extras
    Dim EX1 As Double 'Total de horas extras menos 2 horas dentro do sistema
    Dim EXA As Double 'Total de horas extras mais o almo?o
    Dim AD As Double 'Adicional noturno >21 horas

    'as primeiras 2 horas s?o 50% as outras s?o 100%
    'transforma as horas em decimal
    EM = HrDbl(Left([EntradaManha], 5))
    SM = HrDbl(Left([SaidaManha], 5))
    A = HrDbl(Left([Almoco], 5))
    ET = HrDbl(Left([EntradaTarde], 5))
    ST = HrDbl(Left([SaidaTarde], 5))
    'Pega os minutos feitos entre os tempo de entrada e saida com o relogio de ponto
    'AM 07:00 11:00 PM 12:12 17:00
    TEM = 7 - EM
    TSM = SM - 11
    TET = 12.2 - ET
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    'ver se ? semana ou fim de semana para calcula  TST tempo de saida tarde
    If Weekday(Me!Dia) = 1 Or Weekday(Me!Dia) = 7 Then
    TST = ST - 16 'sabado e domingo
    Else
    TST = ST - 17 ' semana
    Me.Hora100ST = Null
    Me.HEx100ST = Null
    End If
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    'A N?O PODE ENTRAR NA SOMA
    'O A entra na soma das horas extras
    'soma as horas
    EX = TEM + TSM + TET + TST
    EXA = TEM + TSM + TET + TST + A
    'Verifica se ja nao ultrapassou o limite de 2 hora autorizada por dia
    If TEM + TSM > 2 Then
    MsgBox "Total de horas extra ja regitradas ultrapassou o limite de 2 HORAS.", vbCritical, "Aten??o"
    Me.Undo
    DoCmd.CancelEvent
    Exit Sub
    End If

    'se o total de horas passar de 2 horas
    If EX > 2 Then
    STP = 19 - (TEM + TSM + TET) 'a saida de ponto vai ser 19 horas menos os minutos ja registrado no sistema
    EX1 = (ST - STP) + A 'total de horas menos as 2 por dentro 50%
    Me.Hora50 = 2
    Me.HEx50 = HrStr(2)  'aqui converte em hora novamente 'preenche o campo de 50 % com 2 horas
    Me.SaidaTardePonto = HrStr(STP)  'aqui converte em hora novamente
    Me.Hora100 = EX1
    Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
    Else
    'verifica se o total de horas mais o almo?o ultrapassou 2 horas
    If EXA > 2 Then
    EX1 = EXA - 2
    Me.Hora50 = 2
    Me.HEx50 = HrStr(2)  'aqui converte em hora novamente 'preenche o campo de 50 % com 2 horas
    Me.SaidaTardePonto = HrStr(19)
    Me.Hora100 = EX1
    Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
    Else
    Me.SaidaTardePonto = Me.SaidaTarde
    Me.Hora50 = EXA
    Me.HEx50 = HrStr(Hora50)
    Me.Hora100 = 0
    Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
    End If
    End If
    'se a saida ultrapassou as 21 horas tem o adcional noturno
    'que ? pago em cima desta diferen?a
    If ST > 21 Then
    AD = ST - 21 'adcional ? a saida menos 21
    Me.HoraAddNoturno = AD 'preenche o campo com o valor adcional
    Me.HExADD = HrStr(Me.HoraAddNoturno) 'aqui converte em hora novamente

    End If
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    If Weekday(Me!Dia) = 1 Or Weekday(Me!Dia) = 7 Then
    '1 domingo 7 sabado
    If EX > 2 Then
    STP = 19 - (TEM + TSM + TET) 'a saida de ponto vai ser 19 horas menos os minutos ja registrado no sistema
    EX1 = (ST - STP) + A 'total de horas menos as 2 por dentro 50%
    Me.Hora100ST = 2
    Me.HEx100ST = HrStr(2)  'aqui converte em hora novamente 'preenche o campo de 50 % com 2 horas
    Me.SaidaTardePonto = HrStr(STP)  'aqui converte em hora novamente
    Me.Hora100 = EX1
    Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
    Me.Hora50 = ""
    Me.HEx50 = ""
    Else
    'verifica se o total de horas mais o almo?o ultrapassou 2 horas
    If EXA > 2 Then
    EX1 = EXA - 2
    Me.Hora100ST = 2
    Me.HEx100ST = HrStr(2)  'aqui converte em hora novamente 'preenche o campo de 50 % com 2 horas
    Me.SaidaTardePonto = HrStr(19)
    Me.Hora100 = EX1
    Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
    Me.Hora50 = ""
    Me.HEx50 = ""
    Else
    Me.SaidaTardePonto = Me.SaidaTarde
    Me.Hora100ST = EXA
    Me.HEx100ST = HrStr(Hora100ST)
    Me.Hora100 = 0
    Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
    Me.Hora50 = ""
    Me.HEx50 = ""
    End If
    End If
    End If


    End Sub

    Private Sub Dia_AfterUpdate()
    'Busca o nome do funcionario na cmb que esta no frm principal
    Me.Funcionario = Parent!cmbNomeFunc
    'Extrai o nome do dia da semana Me.txtNome = Left(Me.txtInicial, 5)
    'Em maiscula e somente os 3 primeiros digitos
    Me.NomeDia = UCase(Left(Format(Weekday(Dia), "dddd"), 3))
    'Atualiza o campo funcionario
    Me.Funcionario.Requery
    End Sub

    'hora convertida
    '01:00 =1
    '07:00=7
    '11:00=11
    '12:12=12,2
    '17:00=17
    Private Sub SaidaTarde_AfterUpdate()
    Dim EM As Double 'entrada manha
    Dim TEM As Double 'Tempo entrada manh? antes das 7
    Dim SM As Double 'saida manha
    Dim TSM As Double 'Tempo saida manh? depois das 11
    Dim A As Double 'Hora extra feita durante o almo?o
    Dim ET As Double 'entrada tarde
    Dim TET As Double 'Tempo entrada tarde antes das 12:12
    Dim ST As Double 'saida tarde ro?a
    Dim TST As Double 'Tempo saida tarde depois das 17
    Dim STP As Double 'Saida tarde ponto
    Dim EX As Double 'Total das horas extras
    Dim EX1 As Double 'Total de horas extras menos 2 horas dentro do sistema
    Dim EXA As Double 'Total de horas extras mais o almo?o
    Dim AD As Double 'Adicional noturno >21 horas

    'as primeiras 2 horas s?o 50% as outras s?o 100%
    'transforma as horas em decimal
    EM = HrDbl(Left([EntradaManha], 5))
    SM = HrDbl(Left([SaidaManha], 5))
    A = HrDbl(Left([Almoco], 5))
    ET = HrDbl(Left([EntradaTarde], 5))
    ST = HrDbl(Left([SaidaTarde], 5))
    'Pega os minutos feitos entre os tempo de entrada e saida com o relogio de ponto
    'AM 07:00 11:00 PM 12:12 17:00
    TEM = 7 - EM
    TSM = SM - 11
    TET = 12.2 - ET
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    'ver se ? semana ou fim de semana para calcula  TST tempo de saida tarde
    If Weekday(Me!Dia) = 1 Or Weekday(Me!Dia) = 7 Then
    TST = ST - 16 'sabado e domingo
    Else
    TST = ST - 17 ' semana
    Me.Hora100ST = Null
    Me.HEx100ST = Null
    End If
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    'A N?O PODE ENTRAR NA SOMA
    'O A entra na soma das horas extras
    'soma as horas
    EX = TEM + TSM + TET + TST
    EXA = TEM + TSM + TET + TST + A
    'Verifica se ja nao ultrapassou o limite de 2 hora autorizada por dia
    If TEM + TSM > 2 Then
    MsgBox "Total de horas extra ja regitradas ultrapassou o limite de 2 HORAS.", vbCritical, "Aten??o"
    Me.Undo
    DoCmd.CancelEvent
    Exit Sub
    End If

    'se o total de horas passar de 2 horas
    If EX > 2 Then
    STP = 19 - (TEM + TSM + TET) 'a saida de ponto vai ser 19 horas menos os minutos ja registrado no sistema
    EX1 = (ST - STP) + A 'total de horas menos as 2 por dentro 50%
    Me.Hora50 = 2
    Me.HEx50 = HrStr(2)  'aqui converte em hora novamente 'preenche o campo de 50 % com 2 horas
    Me.SaidaTardePonto = HrStr(STP)  'aqui converte em hora novamente
    Me.Hora100 = EX1
    Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
    Else
    'verifica se o total de horas mais o almo?o ultrapassou 2 horas
    If EXA > 2 Then
    EX1 = EXA - 2
    Me.Hora50 = 2
    Me.HEx50 = HrStr(2)  'aqui converte em hora novamente 'preenche o campo de 50 % com 2 horas
    Me.SaidaTardePonto = HrStr(19)
    Me.Hora100 = EX1
    Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
    Else
    Me.SaidaTardePonto = Me.SaidaTarde
    Me.Hora50 = EXA
    Me.HEx50 = HrStr(Hora50)
    Me.Hora100 = 0
    Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
    End If
    End If
    'se a saida ultrapassou as 21 horas tem o adcional noturno
    'que ? pago em cima desta diferen?a
    If ST > 21 Then
    AD = ST - 21 'adcional ? a saida menos 21
    Me.HoraAddNoturno = AD 'preenche o campo com o valor adcional
    Me.HExADD = HrStr(Me.HoraAddNoturno) 'aqui converte em hora novamente

    End If
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    If Weekday(Me!Dia) = 1 Or Weekday(Me!Dia) = 7 Then
    '1 domingo 7 sabado
    If EX > 2 Then
    STP = 19 - (TEM + TSM + TET) 'a saida de ponto vai ser 19 horas menos os minutos ja registrado no sistema
    EX1 = (ST - STP) + A 'total de horas menos as 2 por dentro 50%
    Me.Hora100ST = 2
    Me.HEx100ST = HrStr(2)  'aqui converte em hora novamente 'preenche o campo de 50 % com 2 horas
    Me.SaidaTardePonto = HrStr(STP)  'aqui converte em hora novamente
    Me.Hora100 = EX1
    Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
    Me.Hora50 = ""
    Me.HEx50 = ""
    Else
    'verifica se o total de horas mais o almo?o ultrapassou 2 horas
    If EXA > 2 Then
    EX1 = EXA - 2
    Me.Hora100ST = 2
    Me.HEx100ST = HrStr(2)  'aqui converte em hora novamente 'preenche o campo de 50 % com 2 horas
    Me.SaidaTardePonto = HrStr(19)
    Me.Hora100 = EX1
    Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
    Me.Hora50 = ""
    Me.HEx50 = ""
    Else
    Me.SaidaTardePonto = Me.SaidaTarde
    Me.Hora100ST = EXA
    Me.HEx100ST = HrStr(Hora100ST)
    Me.Hora100 = 0
    Me.HEx100 = HrStr(Hora100) 'aqui converte em hora novamente
    Me.Hora50 = ""
    Me.HEx50 = ""
    End If
    End If
    End If
    End Sub
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    Calculo Horas Extras Empty Re: Calculo Horas Extras

    Mensagem  Noobezinho 3/5/2021, 14:32

    Scandinavo

    Para anexar os aplicativos no fórum:

    ser em zip

    ter menos de 1.953 Mb

    Caso seja mais do que isso, compacte o BD no Access e depois em zip

    Para enviar, na pagina de editar mensagem, mais abaixo clique em

    Escolher Arquivo e na mesma linha em enviar.


    { }'s

    Balem




    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

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

    Calculo Horas Extras Empty Re: Calculo Horas Extras

    Mensagem  scandinavo 4/5/2021, 00:50

    mensagem de erro. Deve ser o servidor

    "Não foi possível enviar o arquivo : o espaço de armazenamento para usuários foi ultrapassado. (Espaço restante : 104 Kb)"

    Consegui diminuir o tamanho do arquivo segue projeto.

    Sistema desenvolvido para controlar as horas extras de funcionarios que trabalham a nivel de campo (roça) e nao é registrado todos os horarios (feito pelo proprio funcionario em uma planilha) a pessoa do departamento pessoal precisa editar os horarios para encaixar no relogio de ponto, informando qual o horario de saida do trabalhador para ser registrado no relogio de ponto.
    Limite de horas extras diarias 2 horas e que passar é 100 % e tambem registra o adicional noturno acima das 21 horas.
    Calcula se o funcionario trabalha no turno noturno,


    Obs. o horario de almoço do sistema é da 11:00 ate as 12:12
    Anexos
    Calculo Horas Extras AttachmentHoras Campo Alegre.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (86 Kb) Baixado 15 vez(es)

      Data/hora atual: 21/9/2021, 03:09