...
Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF +
Diversas Revistas (pdf) de brinde, por apenas
R$182,00
(podendo
parcelar em até
10
vezes no cartão de crédito)...
Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.
Função SeImed em consultas - descartar Domingos
Antes de iniciar a sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.
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 |
