Função SeImed em consultas - descartar Domingos
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
Usuário Francisco:
Bom dia.
Pode me ajudar com a função SeImed em consultas? Fiz uma tabela de calcular remissão de trabalho de apenados. Exemplo:
nome, datadotrabalho, terminodotrabalho
Observação 1: nome: Fulano de Tal, Datadotrabalho: 01/08/2015, Terminodotrabalho: 31/08/2015
Observação 2: na Lei de Execução Penal, a cada 03 dias de trabalho, diminui um dia de pena.
Observação 3: não contar os DOMINGOS. Neste exemplo, o apenado trabalhou 26 dias e ganhou 08 dias remidos.
Bom, o que eu NÃO estou sabendo fazer, em uma consulta, é justamente retirar os DOMINGOS de um determinado período. Vamos supor: um período de trabalho de 01/01/2015 a 02/08/2015 - como faço para deduzir todos os domingos deste período?
Espero contar com a sua ajuda.
Suporte:
Francisco, para descartar os Domingos, é necessário percorrer o período com uma função. Veja uma função exemplo:
Public Function fncContaDomingos(dti As Date, dtf As Date) As Integer
Dim j&, k%
For j = dti To dtf
'se não for domingo, realiza a contagem
If Weekday(j) = 1 Then k = k + 1
Next
fncContaDomingos = k
End Function
Esta função usei na fórmula da consulta exemplo.
Usuário Francisco:
Boa tarde.
Professor Avelino Sampaio, muito obrigado pelo arquivo exemplo.
Download
| Não há comentário |
