[Resolvido]Contar dias uteis - ajuda simples

Boa tarde a todos, tenho uma duvida bem simples.
Estou fazendo uma consulta no access para retornar os dados entre os últimos 20 dias até 3 dias atras, referente a data atual, porém gostaria que retornasse em dias uteis (no caso de seg a sexta). Eu utilizei na linha critério o seguinte cod:

exemplo: < Agora()-3 E >Agora()-20 "

Mas logicamente esse código considera os finais de semana...

Obs: Feriados podem ser desconsiderados do código, não precisa ser tão certo assim.

Obrigado

Gabriel bom dia,

Na sua consulta, vc pode criar uma coluna chamada "DiaUtil", com a seguinte instrução:

DiaUtil: SeImed(DiaSem(Agora())=1 Ou DiaSem(Agora())=7;'N';'S')

A função verifica o dia da semana, da seguinte forma:
1 - domingo
2 - segunda
3 - terça
4 - quarta
5 - quinta
6 - sexta
7 - sábado

E no critério desta colunana voce pode colocar:
="S" conforme abaixo:




Boa sorte.

[]'s

Acho que não fui claro na minha duvida.
Todos os meus registros já ocorrem em dias da semana, mas o que preciso é pegar os registros a partir de 20 dias uteis atras até 3 dias uteis atras, ou seja, se hoje fosse segunda-feira, preciso dos registro de 20 dias uteis atras até quarta-feira da semana passada, ou seja, 3 dias uteis atras, se fosse 3 dias corridos, seria sexta-feira da semana anterior, entende?

Obrigado

Olá,

Seria mais viável fazer isso no VBA.

pode me ajudar ?

Sim.

Me manda um exemplo de banco de dados pra fazer essa consulta.

Valeu

[]'S

Segue em anexo

Na consulta "Não_consta_PP" quero que retorne os dados dos últimos 20 dias uteis atras até 3 dias uteis atras.

Obg

Alguem?

Bom dia
Nomeie de forma normalizada, nomes de campos sem espaços nem caracteres especiais, etc
sobre a sua dúvida, não foi claro no campo que pretende filtrar, fiz para o F6

Código:

Function TresDiasUteisAntes() As Date
    '--------------------------------------------------------------'
    '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
    '    utilize o código livremente mas mantenha os créditos    '
    '--------------------------------------------------------------'
    Dim bytDias As Byte
    Dim Dia As Date
    Dia = Date
    Do
        Dia = Dia - 1
        Select Case Weekday(Dia)
        Case 2 To 5
            bytDias = bytDias + 1
        End Select
        If bytDias = 3 Then Exit Do
    Loop
    TresDiasUteisAntes = Dia
End Function

Function VinteDiasUteisAntes() As Date
    '--------------------------------------------------------------'
    '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
    '    utilize o código livremente mas mantenha os créditos    '
    '--------------------------------------------------------------'
    Dim bytDias As Byte
    Dim Dia As Date
    Dia = Date
    Do
        Dia = Dia - 1
        Select Case Weekday(Dia)
        Case 2 To 5
            bytDias = bytDias + 1
        End Select
        If bytDias = 20 Then Exit Do
    Loop
    VinteDiasUteisAntes = Dia
End Function

Na consulta
SELECT * FROM PP WHERE F6 Between VinteDiasUteisAntes() and TresDiasUteisAntes();

Obrigado, funcionou certinho !