[Resolvido]Ultimo dia útil do mês

Tenho este código, num relatório, que é suposto dar-me o último dia útil do mês. Não funciona
A Data é retirada de um combo box, que está em meses, "cbo_mes".
É possível retirar do mês o útimo dia util desse mesmo mês.

Código:

Private Sub UDUM_Enter()
Dim vData As Date
For vData = [Data_Fechamento] To 1 Step -1
   If Weekday([Formulários]![Frm_Lancamento]![cbo_mes]) <> vbSaturday And Weekday([Formulários]![Frm_Lancamento]![cbo_mes]) <> vbSunday Then Exit For
Next vData
Data_Pagamento = vData
End Sub

Luís Antunes

ola,

se a dataFechamento por um numero inteiro poderias transformar numa data, claro que tb precisas do ano que neste caso coloquei 2018

Código:

vData = DateSerial(2018, Data_Fechamento, 1)


se depois queres ir para o ultimo dia desse mes :

 

Código:

vData = DateSerial(Year(vData), Month(vData) + 1, 0)

depois irias para o loop

Código:

For vData = vData To 1 Step -1
   If Weekday(vData) <> vbSaturday And Weekday(vData) <> vbSunday Then Exit For
Next vData
Data_Pagamento = vData

cpampas
Obigado pele resposta.
Só hoje é que abri o computador.
Coloquei o seu código no Relatório e não deu nada.
Reduzi o meu projecto e estou a enviá-lo em anexo.
Quando o formulário estiver aberto escolha o mês de Fevereiro e o ano 2018 de seguida Duplo Click no botão de imprimir.

Luis
Coloquei um botao com este codigo no teu formulario, e devolve o ultimo dia do mes escolhido

Código:

Dim vData
Dim m As Integer
m = Me.cbo_mes
vData = DateSerial(2018, m, 1)
vData = DateSerial(Year(vData), Month(vData) + 1, 0)
For vData = vData To 1 Step -1
   If Weekday(vData) <> vbSaturday And Weekday(vData) <> vbSunday Then Exit For
Next vData
MsgBox (vData)

o problema é que o valor da cbo_mes é o nome do mes, e a funçao dateSerial precisa do numero do mes
por isso podes mudar a origem de dados da combo, para 2 colunas, sendo a dependente a primeira, e a largura das colunas 0;2.5

1;"Janeiro";2;"Fevereiro";3;"Março";4;"Abril";5;"Maio";6;"Junho";7;"Julho";8;"Agosto";9;"Setembro";10;"Outubro";11;"Novembro";12;"Dezembro"

espero que ajude

cpampas
Desculpe-me de responder só agora.
Resolvi o problema de outra maneira:

Código:

Private Sub cbo_Ano_AfterUpdate()
Me.txtDataInicial = "01/" & Format(Me.cbo_Mês, "mm") & "/" & Me.cbo_ano 'Format(Me.cbo_ano, "yyyy")
Me.txtDataFinal = FinalMes(Me.txtDataInicial)
End Sub


Vou buscar a data do fim do Mês e, apliquei um código de Friados e fins de semana do site do mestre Avelino

De qualquer modo fico-lhe grato pela atenção

Luís Antunes

Peço desculpa por não deixar este tópico resolvido.

Luís Antunes