bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Função SeImed em consultas - descartar Domingos

... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,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

Envie seu comentário: