... 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

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

Envie seu comentário: