Usando Access

Somar Dias sem contar com os Feriados, os Sábados e os 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 Marcos :

Bom dia!

Gostaria de saber como programar a entrega de um pedido para daqui a dez dias úteis, ou seja,  sem contar com os feriados, os sábados e os domingos.

Grato

Suporte:

Marcos, vamos supor que você tenha os campos DataLançamento e DataEntrega.

No evento "Após atualizar" do campo DataLançamento, coloque:

Para acessar o código faça o seu cadastro de visitante aqui ou entre com o seu login aqui.

Observe que você terá que criar a função fncFeriado(). Para efeito apenas didático, veja esta função que simula uma data de feriado.

Private Function fncFeriado(dta As Date) As Boolean
fncFeriado = dta = #6/4/2015#
End Function

Sobre a montagem da função feriado, você encontra disponível AQUI, neste meu artigo:

Ao entrar com a data de lançamento 03/06/2015, você terá como resultado, a data de entrega no dia 18/06/2015. Confere ?

Usuário Marcos :

Preciso dizer que funcionou perfeitamente!

Mais uma vez obrigado, Avelino!

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