[Resolvido]Quantiadade de Dias relativos ao Mês/Ano selecionados em Caixa de Listagem

Boa tarde, Amigos.

Tenho um formulário com uma caixa de combinação onde seleciono o ano (2014, 2015, 2016, ...) e uma caixa de listagem contendo os 12 meses do ano (de janeiro a dezembro).

Preciso inserir em uma caixa de texto a quantidade de dias do mês selecionado na caixa de listagem.

Alguém pode me ajudar com essa duvida.


Desde já agradeço

Ola;

Altere para os nomes corretos das suas combos e teste ao pressionar de um botão;

Código:

Private Sub SeuBotão_Click()
    Dim intData As Date
    Dim intDias As Integer
   
    intData = DateSerial(Me.SuaComboAno, Me.SuaComboMes, 1)
    intDias = DateSerial(Year(intData), Month(intData) + 1, Day(intData)) _
              - DateSerial(Year(intData), Month(intData), Day(intData))
    Me.SuaCaixaTextoTotalDias = intDias
End Sub

Obrigado pela ajuda, João Paulo.

Devido a minha Caixa de Listagem dos meses não ser do formato data, eu precisei fazer uma alteração no código, que funcionou perfeitamente no comando ao clicar de um botão.
Porém, eu não consegui fazer a geração da quantidade de dias apenas selecionado o mês na Caixa de Listagem, sem a necessidade de clicar em um botão.
Você sabe como fazer isto?

Segue o código modificado:

   Dim intData As Date
   Dim intDias As Integer
   
   Dim Ano As Date
   Dim Mes As Date
   
   Ano = Me.txtAno
   Mes = Me.ListaMes.ItemsSelected.Item(0) + 1
   
   intData = DateSerial(Ano, Mes, 1)
   intDias = DateSerial(Year(intData), Month(intData) + 1, Day(intData)) - DateSerial(Year(intData), Month(intData), Day(intData))
   Me.txtDiasMes = intDias


Mais uma vez agradeço a ajuda.

Ola;

A sua listagem dos Meses, não tem necessidade de ser formato data, pode estar em texto ou numerico;

Código:

Private Sub ListaMes_AfterUpdate()
Dim intData As Date
Dim intDias As Integer
    intData = DateSerial(Me.txtAno, Me.ListaMes.Value, 1)
    intDias = DateSerial(Year(intData), Month(intData) + 1, Day(intData)) _
              - DateSerial(Year(intData), Month(intData), Day(intData))
    Me.txtDiasMes = intDias
End Sub

Obrigado novamente, JPaulo.

Com a Caixa de Listagem em formato texto não estava dando certo, porém, depois que eu alterei para número funcionou perfeitamente.

Fico feliz.

Obrigado pelo retorno o forum agradece.