[Resolvido]Contar Horas

Bom dia.

Boas ferias, eu espero até Julho

Olá dj,

Peguei um arquivo aqui e fiz alguns testes, mas não vi nenhum problema. A figura de seu problema não aparece aqui. Testa aí assim mesmo e depois me reporta.

Boa tarde

Mensagem Nº 1
Isto aqui está bem ?
O operário trabalhou das 8:30 ás 18h nos 4 dias = trabalhou 34 horas.
Aguardo

Já percebi tem 1 (uma hora para almoço)

Quero + dados para tirar + duvidas

Boas Assis é isso mesmo.

O nosso horário é das 8:30 - 12:30 - 13.30 - 18:00 de segunda a quinta, sexta feira é das 8:00 - 14:00 sem pausa.

God guy veja o erro.

Sá

Explique como faz os registos ?

Qual é o resultado da Msg 55 ?

Aguardo

Boa tarde,

Os operários fazem os registos consoante o que escolhem.

Imagine que pegam num determinada referencia (código da peça), no dia 10-07-2016 às 8:30 AM até ao dia 15-07-2015 14:00 PM:

São 5 dias e 48horas. Apenas quero que conte as horas que trabalham sem contar o horário pós laboral e fim de semana.

Olá dj,

O seu cálculo me parece estar errado na msg nº 57. Pelos meus cálculos são 6 dias. Você deveria contar também o primeiro dia, neste caso 10/07/2015 ou não?

Boa tarde Eduardo

Quanto a mim problema está quando o serviço é iniciado a uma sexta feira e acaba por exemplo na terça da semana seguinte, ai o sábado e o domingo não contam.

Neste exemplo de 10-07-2016 às 8:30 AM até ao dia 15-07-2015 14:00 PM é iniciado numa sexta feira e acaba na quarta feira.

Então se sábado e domingo não conta ( ver Mensagem Nº 57) neste caso são 4 dias

Dia 10 Sexta
Dia 13 Segunda
Dia 14 Terça
Dia 15 Quarta
______________
4 Dias

OK Assis. Entendi. Vamos então estudar uma solução.

Eduardo
Eu acho que passa por aqui, mas terá que ser entre pois temos a data inicio data fim
If Weekday(campoData) = 1 Or Weekday(CampoData) = 7

Olá Assis,

É por aí mesmo. Já desenvolvi uma solução para calcular o total de horas desta maneira:

1- Separa-se um campo para calcular o total de horas de todos os dias menos 1 que é o dia que se cumpriu parte do horário, podendo se excluir a hora do almoço se for até as 12:00 ou acrescentar a hora do almoço para entrar no cálculo da redução da jornada de trabalho do dia em 1 hora(referente a hora do almoço)se se estender até a tarde antes das 18:00.
2-Soma-se as horas da primeira etapa com a da segunda etapa e acrescenta-se o tempo em minutos. Se houver na soma dos minutos um valor igual ou maior que 60 obtém-se em uma das parcelas em minutos o resto da divisão por 60 e acrescenta-se uma hora ao total.

Falta agora incluir o código para excluir os dois dias do fim de semana quando houver utilizando-se esta sua fórmula realmente.

DJ,

Excluí todo o código anterior e deixei só uma função de soma de horas alterada para sua finalidade. Por favor, aguarde...

Eduardo

O meu access é 2007.

Boa tarde.

Ok eu espero Good Guy.

Apenas quero salientar que o primeiro dia é sempre para contar.

Exemplo: do dia 10-07-2015 ao 13-07-2015 são 4 dias, porque se contar no mesmo dia exemplo: 10-07-2015 ao 10-07-2015 é 1 dia e X horas.

Se o horário de sexta feira complica a contagem não há problema conta se como um dia normal.

Sá

O amigo muda de opinião, agora o 1ª dia também conta.
Veja o que escreveu na Msg Nº 1

Gostaria de saber como posso fazer a contagem de horas imaginem do dia 01-01-2015 a 05-01-2015. O operário trabalhou das 8:30 ás 18h nos 4 dias

Quinta feira dia 1/01/2015
Sexta feira dia 2/01/2015
Segunda feira 5/01/2015

Se o primeiro também conta então aqui são 3 pois mete um fim de semana.

Nesse exemplo que dá como tem fim de semana só conta 3 dias.

Olá dj,

Estive trabalhando no programa e já estou perto da conclusão. Tenho meu trabalho regular na empresa e isso às vezes me dificulta dar muita atenção ao fórum, mas não se preocupe, ao voltar do almoço vou ver se dá pra concluir. Quanto a contagem dos dias era isso mesmo como já imaginava e já operava dessa maneira como você disse há pouco, contando também o dia inicial logicamente. A contagem de dias excluindo sábado e domingo já está fazendo no mês corrente, mas preciso testar e talvez ampliar para funcionar durante o ano todo. Aguarde só mais um pouco.

Obrigado.

Olá dj,

Vamos lá. O programa funciona da seguinte maneira:

1 - Você pode contar horas e dias sem contar sábados e domingos de todos os meses do ano, mas SOMENTE um de cada vez.
    Existem três funções para contar os dias:
    1.1 - Uma função para contar dias de trabalho no mês de fevereiro (Bissexto ou não)
    1.2 - Uma função para contar dias de trabalho nos meses com 30 dias.
    1.3 - Uma função para contar os dias de trabalho nos meses com 31 dias.

2 - O total de horas é contabilizado pelo total de dias trabalhados com exceção dos sábados e domingos de cada mês.

3 - Procure incluir datas iniciais a partir dos dias úteis.


OBS: Esse arquivo ficará à disposição por tempo limitado.

Eduardo

Pode converter para 2007 ?

Obrigado

Olá Assis,

No momento não consigo converter este arquivo que foi trabalhado em Access 2010 aqui na empresa para um que seja em Access 2007 porque não existe esta opção no Access 2010. O que eu posso fazer e também seria útil para mim é trazer meu laptop e copiar os objetos como tabelas e formulários do arquivo em Access 2010 para um arquivo em Access 2007. Vou ver se posso resolver esta situação. Aceito outras sugestões.

Good Guy

Podia postar novamente o ficheiro. Pelo dropbox.

Olá dj,

Baixe pelo link:

link deletado.

NOTA: Por favor, quem baixou o antigo arquivo, atualize-o por este. Foram corrigidos alguns bugs. Este programa ficará disponível por tempo limitado.

Bom dia.

O formulário do ficheiro que enviou foi apagado porquê?

Olá dj,

Não esta apagado. Está no modo oculto. Por alguma razão ficou no modo oculto, não entendi porquê. Clique com o botão direito no Navegador e retire do modo oculto.

Peço desculpa

Já estive a testar.

Está um pouco confuso.

Os colaboradores está a cinza...

Data de inicio de acréscimo?
Hora reduzida inicial e final?
Peço desculpa Good guy mas não estou a perceber.

Sem problema.

Olá dj,

Esqueci-me de retroagir as configurações iniciais. O campo acizentado está desabilitado para que eu pudesse compilar sem rodar o código deste campo, basta entrar no modo design, propriedade do campo citado, aba Dados, Ativado=> Sim.

A parte do Acréscimo é o seguinte. Suponhamos que você queira contar todos os dias de trabalho multiplicado pelas horas trabalhadas, o último dia que o empregado trabalhou só de 8:30 até 14:30 é chamado então de o dia de acréscimo. Data Inicial, preencha com esta última data e a Data final, preencha com a mesma data. Logo abaixo será exibido o total de dias e lá em cima, (se eu não esqueci) serão somadas estas últimas horas.

Olá dj,

Realmente esqueci de contar a hora de acréscimo no cômputo geral. Me desculpa aí. Espere um pouco mais até eu resolver isso.

Olá dj,

Limpe todo o código do último formulário que te enviei. Eu disse tudo que existe lá no ambiente de código. OK? Agora copie e cole estes códigos abaixo. Certifique-se de que os controles do formulário estejam conectados a estes códigos como botões, checkbox, etc.

Espero que você tenha entendido que hora reduzida refere-se ao último dia que o funcionário trabalhou em menos tempo como 08:30 às 14:30. Digite a data do último dia como data inicial e repita esta data inicial na data final.

Quanto ao checkbox se o funcionário trabalhou só naquela semana na primeira etapa de preenchimento, embora tenha continuado a trabalhar na segunda-feira como sendo o último dia (com exceção de sábado e domingo) então clique no checkbox. Caso contrário, se o funcionário trabalhou direto por mais de cinco dias e no último dia trabalhou só algumas horas, não importando se só na parte da manhã ou até a tarde saindo, por exemplo, às 15:00, deixe o checkbox SEM estar selecionado. Faça alguns testes e me informe dos resultados.

Boa tarde Good guy.

Assim que puder vou testar.

Good Guy.

Já estive a testar e não está a funcionar veja o exemplo: escolheu no dia 20-07-2015 ás 8:30 e terminou no mesmo dia ás 9:30 dava 1h e não aparece. os dias está a contar correto.

Olá dj,

Fica meio complicado com formulário simples. Veja bem com formulário contínuo, você pode contar as horas de forma muito mais tranquila com diferentes horários sem complicação.

Eduardo

Veja o resultado que me deu ...

Olá Assis,

Não consigo visualizar aqui na empresa. Qual dos formulários você está falando? Este último ou o anterior do dj? Qual é o problema?

Este é do link do Eduardo da Msg. Nº 84

Olá Assis,

Qual foi o problema apresentado?

Eduardo

Data Inicio 27/07/2015
Data Fim 27/07/2015


Hora Inicio 08:30
Hora Fim 09:30

Total Horas Deu Resultado de 0:

Olá Assis,

Postei o arquivo errado que está dando problemas. É este aqui abaixo com formulário contínuo. Veja também como funciona dessa maneira profissionalmente neste link do meu site. É só baixar e testar mas este outro já é aplicativo que é preciso pagar para adquirir. É o FINATECH.

http://www.goodguyaccessvba.com.br/download_6.html

Boas GoodGuy.

O erro do Assis é o mesmo que me dá. E o formulário foi o que você modificou.

Assis dá para enviar o formulário da mensagem nº 53?

Eduardo

O último que postou não tem nada a ver com o que o amigo Sá pretende.

Amigos vamos simplificar isto.

Vamos contar dia a dia:
De segunda a quinta das 8:30 - 18:00 com uma hora de intervalo.
E sexta das 8:00 - 14:00 sem hora de intervalo.

Assim será mais fácil?

Assis,

Foi só uma sugestão. Trabalhar com formulário contínuo é muito mais fácil. Neste caso seria modificar o programa para trabalhar com formulário contínuo.


dj,

Altere a fonte de controle interna da caixa DifDatas que conta o número de dias para:

=SeImed(DifData("d";[DataInicio];[DataFim])=0;1;DifData("d";[DataInicio];[DataFim]+1))

Estava errada a contagem de dias, com essa sintaxe dá para trabalhar ao contar as horas de um só dia, colocando a mesma data inicial e data final.

Fora esse problema da diferença de horas entre 08:00:00 e 09:00:00 dar 0 cálculo de horas está apenas defasado em 01 hora, ao aumentarmos para 10:00:00 dando um resultado de 01:00:00, mas quando deveria ser 02:00:00, certo? No entanto, após as 12:00:00 o cálculo se torna correto. Verifique !!!

Outro caso é que podemos somar o primeiro resultado com o segundo resultado dando um total de horas certo.

O que você deseja é que o cálculo antes das 12:00:00 esteja dando o número de horas correto e que também no último dia (Hora Reduzida) calcule o número de horas até as 14:00:00 sem intervalo. Estamos certos até aqui?

Bom dia.

Sim certo.

Já testei e mudei o código a fonte de controle interna da caixa DifDatas que conta o número de dias para:

=SeImed(DifData("d";[DataInicio];[DataFim])=0;1;DifData("d";[DataInicio];[DataFim]+1))

Continua a contar mal veja o exemplo:

Olá dj,

Não abre aqui. A empresa veta. Como é que eu faço para postar imagens? Qual é o tipo de arquivo que aceita? URL? Confirme também as minhas dúvidas ponto-a-ponto da mensagem anterior.

Sá

Para os dados da Msg Nº 97 serão estes os valores ?

Assis,

É esse o valor, está correto