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
Somar Dias pulando Feriados, Sabados e Domingos

Somar Dias sem contar com os Feriados, os Sábados e os Domingos

Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).

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:

Faça o login aqui para ter acesso ao código.

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!

 


 

 


6 comentário(s)

Marcela    18/11/2019 08:24:18

Deu certo! Mto obrigada!!!!

Avelino Sampaio   15/11/2019 09:09:21

Marcela

...
Do While Not j > me!SuaCaixaNumeroDeDias - 1
...

Marcela   15/11/2019 06:32:43

explico: me servirá para contar prazos processuais

Marcela   15/11/2019 06:30:12

Agora que vi que a função só soma 10 dias úteis. rsrsr teria como ensinar a somar o número de dias úteis que eu informasse numa cx de texto?

Avelino Sampaio   14/11/2019 00:52:21

Marcela,

se pretende utilizar uma tabela, basta usar a função Dcount() para pesquisar se a data existe na tabela. Algo assim:

...
If Dcount("*","NomeDaTabelaFeriado","DataFeriado = #" & Format(dtaAnalisada, "mm/dd/yyyy") & "#") =0 Then
...

Sucesso!

Marcela   13/11/2019 18:15:55

Não entendi a parte de criar a função fncFeriado(). Teria como mostrar como faz pra essa função olhar se a data está listada numa tabela que eu criaria com os feriados? E desconsiderar essa dia no cálculo da data final


Envie seu comentário: