Usando Access

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é 2x 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

DescartaDomingos.zip

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |