Vídeo recomendado
https://youtu.be/diWPPPhW-9E

contar qt de dias e exibir data sem finais de semana [RESOLV

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
vallfon
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Sáb Mar 31, 2012 6:50 pm

contar qt de dias e exibir data sem finais de semana [RESOLV

Mensagem por vallfon »

Boa noite pessoal!
Por favor, me ajudem a fazer um código para o seguinte problema:

uma textbox recebe uma data inicial,
o vba conta uma quantidade de dias qualquer
e outra textbox exibe a data futura, excluindo da contagem os finais de semana.

Muito agradecido!
Editado pela última vez por vallfon em Sex Out 19, 2012 8:43 pm, em um total de 2 vezes.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: contar qt de dias e exibir data sem finais de semana

Mensagem por webmaster »

Vallfon,

Essa parte ficou complicada: o vba conta uma quantidade de dias qualquer

De qualquer forma, procure pelas fórmulas DIATRABALHO e DIATRABALHOTOTAL. No caso do VBA, WorksheetFunction.WorkDay. Elas lhe darão exatamente o que quer, já que elas contam somente dias úteis.

Abraços


vallfon
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Sáb Mar 31, 2012 6:50 pm

Re: contar qt de dias e exibir data sem finais de semana

Mensagem por vallfon »

Tomás,
Muito agradecido pela dica do uso da função workday!
Acho que me expressei de maneira errada!
Não é uma quantidade qualquer de dias, esta quantidade de dias será digitada numa textbox.
Não sei como fazer. Gostaria de fazer usando a dica que destes!
webmaster escreveu:Vallfon,

Essa parte ficou complicada: o vba conta uma quantidade de dias qualquer

De qualquer forma, procure pelas fórmulas DIATRABALHO e DIATRABALHOTOTAL. No caso do VBA, WorksheetFunction.WorkDay. Elas lhe darão exatamente o que quer, já que elas contam somente dias úteis.

Abraços


Avatar do usuário
BaptistaCG
Colaborador
Colaborador
Mensagens: 96
Registrado em: Seg Jul 30, 2012 10:33 pm
Localização: Sorocaba/SP

Re: contar qt de dias e exibir data sem finais de semana

Mensagem por BaptistaCG »

Prezado Vallfon,
Ta meio complicado mesmo de entender o que vc precisa, pelo o que entendi seria para o vba contar a quantidade de dias em um intervalo da data inicial até a data final? e estas datas serão informadas através dos textsboxs? é isso?

Se for o caso coloca sua planilha em anexo ae que as vezes dá uma clariada em nossos pensamentos rsrs..

Abraço,
Att.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


vallfon
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Sáb Mar 31, 2012 6:50 pm

Re: contar qt de dias e exibir data sem finais de semana

Mensagem por vallfon »

Ok! A data inicial e a quantidade de dias são informadas por textbox. Os feriados estão num intervalo da planilha. Uma terceira textbox deve imprimir a data futura, descontando os finais de semana e os feriados.
Aí está o que estou tentando fazer.
BaptistaCG escreveu:Prezado Vallfon,
Ta meio complicado mesmo de entender o que vc precisa, pelo o que entendi seria para o vba contar a quantidade de dias em um intervalo da data inicial até a data final? e estas datas serão informadas através dos textsboxs? é isso?

Se for o caso coloca sua planilha em anexo ae que as vezes dá uma clariada em nossos pensamentos rsrs..

Abraço,
Att.
Anexos
Workday_conta_dias_excluindo_finais_de_ semana_e_feriados.rar
WorkDay
(17.35 KiB) Baixado 485 vezes


JValq
Manda bem
Manda bem
Mensagens: 101
Registrado em: Qua Abr 27, 2011 7:34 pm
Localização: São Paulo/SP

Re: contar qt de dias e exibir data sem finais de semana

Mensagem por JValq »

Bom dia,

Sugiro alterar a seguinte linha:

Código: Selecionar todos

Me.TextBox3 = WorksheetFunction.WorkDay(Me.TextBox1, Me.TextBox2, Range("Feriados"))
Por esta:

Código: Selecionar todos

Me.TextBox3 = WorksheetFunction.WorkDay(CDate(Me.TextBox1), Me.TextBox2, Range("Feriados"))
Abraço


Avatar do usuário
BaptistaCG
Colaborador
Colaborador
Mensagens: 96
Registrado em: Seg Jul 30, 2012 10:33 pm
Localização: Sorocaba/SP

Re: contar qt de dias e exibir data sem finais de semana

Mensagem por BaptistaCG »

JValq escreveu:Bom dia,

Sugiro alterar a seguinte linha:

Código: Selecionar todos

Me.TextBox3 = WorksheetFunction.WorkDay(Me.TextBox1, Me.TextBox2, Range("Feriados"))
Por esta:

Código: Selecionar todos

Me.TextBox3 = WorksheetFunction.WorkDay(CDate(Me.TextBox1), Me.TextBox2, Range("Feriados"))
Abraço
Perfeito JValq é isso mesmo! Testei aqui e funcionou Parabéns.

Boa sorte em seu projeto Valfon.


vallfon
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Sáb Mar 31, 2012 6:50 pm

Re: contar qt de dias e exibir data sem finais de semana

Mensagem por vallfon »

Perfeito!!! É o que eu preciso.
Muito grato, JValq!

Agradeço a todos pela atenção dispensada.

Forte abraço em todos.
JValq escreveu:Bom dia,

Sugiro alterar a seguinte linha:

Código: Selecionar todos

Me.TextBox3 = WorksheetFunction.WorkDay(Me.TextBox1, Me.TextBox2, Range("Feriados"))
Por esta:

Código: Selecionar todos

Me.TextBox3 = WorksheetFunction.WorkDay(CDate(Me.TextBox1), Me.TextBox2, Range("Feriados"))
Abraço


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder