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


2 participantes

    [Resolvido]Horas trabalhadas - intervalo pós zero horas

    avatar
    nandotorresbrasil
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 25/05/2014

    [Resolvido]Horas trabalhadas - intervalo pós zero horas Empty [Resolvido]Horas trabalhadas - intervalo pós zero horas

    Mensagem  nandotorresbrasil 12/11/2014, 18:44

    Prezados Senhores,

        Escrevi a seguinte rotina para cálculo das horas quando a hora trabalhada ultrapassa meia-noite, considerando que o cartão neste caso é batido apenas na entrada e saída:

    If EntradaManha <> "" Then
       minutosEntrada = Int(Left(EntradaManha, 2) * 60)
    End If


    If SaidaManha <> "" Then
       minutosSaida = Int(Left(SaidaManha, 2) * 60)
    End If

     If minutosEntrada < minutosSaida Or minutosEntrada = minutosSaida Or EntradaManha = "" Or EntradaTarde = "" Then
       HorasTrabalhadas = (CDate(SaidaTarde) - CDate(EntradaTarde)) + (CDate(SaidaManha) - CDate(EntradaManha))
          Else
       'No caso de cálculo horas trabalhadas quando ultrapassar a meia-noite:
       calculominutosAteMeiaNoite = 1440 - (Left(EntradaManha, 2) * 60 + Mid(EntradaManha, 4, 2))
       calculominutosPosMeiaNoite = Left(SaidaManha, 2) * 60 + Mid(SaidaManha, 4, 2)
       calculominutos = calculominutosAteMeiaNoite + calculominutosPosMeiaNoite
       horas = Int(calculominutos) / 60
       minutos = Format(calculominutos - (horas * 60))
       HorasTrabalhadas = Format(horas, "00") & ":" & Format(minutos, "00")
    End If


    Ocorre que o else nunca ocorre. Alguém saberia indicar por quê?


    Agradeço, desde já...
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3877
    Registrado : 04/04/2010

    [Resolvido]Horas trabalhadas - intervalo pós zero horas Empty Re: [Resolvido]Horas trabalhadas - intervalo pós zero horas

    Mensagem  Avelino Sampaio 12/11/2014, 20:05

    Olá!

    veja se este meu artigo ajuda:

    http://www.usandoaccess.com.br/tutoriais/calculo-horas-extras-e-soma-superior-a-24-horas.asp?id=1#inicio

    Nota: Leia também os comentários.

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    nandotorresbrasil
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 25/05/2014

    [Resolvido]Horas trabalhadas - intervalo pós zero horas Empty Agradecimento

    Mensagem  nandotorresbrasil 13/11/2014, 09:07

    Avelino,

    Como Sempre você nos mostra o caminho correto para se chegar a uma solução!!!!!!

    Muito obrigado.

    Fernando Torres

    Conteúdo patrocinado


    [Resolvido]Horas trabalhadas - intervalo pós zero horas Empty Re: [Resolvido]Horas trabalhadas - intervalo pós zero horas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 15:06