MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe

    nandotorresbrasil
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  nandotorresbrasil em Qua 12 Nov 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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio em Qua 12 Nov 2014, 20:05

    Olá!

    veja se este meu artigo ajuda:

    [Você precisa estar registrado e conectado para ver este link.]

    Nota: Leia também os comentários.

    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    nandotorresbrasil
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Agradecimento

    Mensagem  nandotorresbrasil em Qui 13 Nov 2014, 09:07

    Avelino,

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

    Muito obrigado.

    Fernando Torres

      Data/hora atual: Sab 10 Dez 2016, 04:53