Função SeImed em consultas - descartar Domingos
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 10x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
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 |
