DIAS ÊTEIS

 Tópico anterior Próximo tópico Novo tópico

DIAS ÊTEIS

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#495206 - 30/09/2020 22:15:35

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


  Olá meus amigos!

Com o código abaixo eu acho QUANTOS DIAS ÚTEIS TEM ENTRE DUAS DATAS...

Gostaria da ajudas dos amigos, em duas situações,

Achar a data útil em determinados quantidade de dias a adcionar tirando sabados, domingo, feriados entre outros dias que devo condiderar...

Primeiro: DATA DE HOJE adcionar a quantidade de DIAS >>>> Retornar a data final a conciderar em dias úteis exemplo  25/05/2000
Aprimorar Segunda Necessidade: DATA DE HOJE + QUANTIDADE DE DIAS = ( Tirar sabado e domingo + os dias de ferianos nacionais ou outras datas a informar) = A DATA A CONCIDERAR

Codigo


  Public Function DiasUteis(dtInicio As Variant, dtFinal As Variant) As Integer

   Dim intSemanas As Integer
   Dim varDataCont As Variant
   Dim intFimDias As Integer

   dtInicio = DateValue(dtInicio)
   dtFinal = DateValue(dtFinal)
   intSemanas = DateDiff('w', dtInicio, dtFinal)
   varDataCont = DateAdd('ww', intSemanas, dtInicio)
   intFimDias = 0

   Do While varDataCont < dtFinal
       If Format(varDataCont, 'ddd') <> 'Sun' And _
           Format(varDataCont, 'ddd') <> 'Sat' Then
       intFimDias = intFimDias + 1
       End If
       varDataCont = DateAdd('d', 1, varDataCont)
   Loop

   DiasUteis = intSemanas * 5 + intFimDias

End Function


'NO FORMULARIO
Me.Text1.Text = Format(Now, 'dd/mm/yyyy')
  Me.Text2.Text = '25/12/2003'
  Me.Text3.Text = DiasUteis(Me.Text1.Text, Me.Text2.Text)






#495207 - 30/09/2020 22:34:27

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Para os feriados, você vai precisar de uma tabela, pois existem feriados móveis.


_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


#495236 - 02/10/2020 12:56:24

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


Última edição em 02/10/2020 12:58:57 por LUCS

Citação:
:
Para os feriados, você vai precisar de uma tabela, pois existem feriados móveis.


Sim, vou criar uma tabela com os dias que quiser acrescentar como feriados,

Mas precisaria, é digitar a QUANTIDADE DE DIAS e me retornar a DATA POR EXTENSA  descontando os dias feriados...

Exemplo: 45 = 25 de dezembro de 2050


Atenciosamente,




#495237 - 02/10/2020 13:40:23

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Então o que você quer é:
Digitar uma quantidade de dias
Será feito um calculo de quantos dias existem entre o dia de hoje e os dias digitados, levando em conta somente dias de semana e também descontando feriados, incluindo os móveis entre essas datas, retornando o último dia útil a data do último dia útil. Isso?

_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


#495258 - 03/10/2020 08:54:28

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


Citação:
:
Então o que você quer é:
Digitar uma quantidade de dias
Será feito um calculo de quantos dias existem entre o dia de hoje e os dias digitados, levando em conta somente dias de semana e também descontando feriados, incluindo os móveis entre essas datas, retornando o último dia útil a data do último dia útil. Isso?



   Sim, Perfeito isto mesmo,
sei que não usa mais vb6 a muito tempo, mas tem alguma linha de codigo neste sentido?

Atenciosamente,




#495263 - 03/10/2020 19:22:08

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


Citação:
:
Então o que você quer é:
Digitar uma quantidade de dias
Será feito um calculo de quantos dias existem entre o dia de hoje e os dias digitados, levando em conta somente dias de semana e também descontando feriados, incluindo os móveis entre essas datas, retornando o último dia útil a data do último dia útil. Isso?


  também vou ter que providenciar a contagem de feriados e outras datas,



#495264 - 04/10/2020 00:01:02

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
O que você quer, desde que tenha uma tabela com os feriados, incluindo os feriados móveis, pode ser feita simplesmente com uma query.
Algo nas linhas disso aqui

_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


#495265 - 04/10/2020 13:33:18

EDSON PEREIRA
SAO PAULO
Cadast. em:Janeiro/2004


 Anexos estao visíveis somente para usuários registrados

Ver se de ajuda....





#495281 - 05/10/2020 12:03:39

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


Citação:
:
O que você quer, desde que tenha uma tabela com os feriados, incluindo os feriados móveis, pode ser feita simplesmente com uma query.
Algo nas linhas disso aqui



  Bom dia, Vou verificar!




#495282 - 05/10/2020 12:07:57

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


Citação:
:
Ver se de ajuda....




Bom dia!,
Recebi somente o Módulo, não veio o formulario,




#495293 - 05/10/2020 16:44:05

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Citação:
:
:
Ver se de ajuda....




Bom dia!,
Recebi somente o Módulo, não veio o formulario,

Formulário? Pra que você quer um formulário? O que te interessa é o método em si, não?

_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário