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]Horas trabalhadas - intervalo pós zero horas

    Compartilhe

    nandotorresbrasil
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    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á...
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3408
    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

    nandotorresbrasil
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    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: Ter 21 Nov 2017, 04:33