[Resolvido]Contar dia do mês através da caixa de combinação

Boa tarde galera tenho uma caixa de combinação. Com os meses do ano gostaria de retornar a quantidade de dias de cada mês escolhido
Exemplo


Janeiro =31
Fevereiro= 28 ou 29
No mês atual quantos dias passaram do dia primeiro até o dia atual

Boa noite.
Tem diverso jeito de fazer, depende de como você da estrutura do seu programa

Código:

Private Sub Mes_AfterUpdate()
Select Case Mes  
 Case "janeiro" -> se colocar na combinação o mês desejado
   Me.txtDias = "31" -> o campo recebe os dias
 Case "fevereiro"
       Me.txtDias = "28"
.......
.......
End Select


para diminuir os dias passados até atua.

Código:

dim recebeQuantidadeDeDias
  recebeQuantidadeDeDias= DateDiff("d", #1/1/2021#, Date)
End Sub


Bom dia meu amigo muito obrigado pela resposta eu até comecei a fazer desta forma mais depois pensei como seria quando o fevereiro desse 29 dias ou também caso usar este exemplo abaixo que me enviou se supondo que colocaria o mês de "outubro" como 31 mais estamos no mês de outubro e ainda não passou todo o mês como ficaria , no caso vai ficar dois cálculos um do mês inteiro e outro dos proporcional


Select Case Mes
Case "janeiro" -> se colocar na combinação o mês desejado
Me.txtDias = "31" -> o campo recebe os dias
Case "fevereiro"
Me.txtDias = "28"
.......
.......
End Select

Vamos ter que acrescentar a função de ano bissexto.
Da uma olhada sobre essa função.
No momento estou em estrada.

Pra saber quantos dias tem o mês

Código:

=DateSerial ( ValorParaAno; ValorParaMês + 1; 0)

Para saber quantos dias se passaram, basta saber que dia é

Código:

=Day ( Date() )

boa noite pessoal  agradeço DamascenoJr e crysostomo

deu certo muito obrigado a vocês





If Me.txtmesAtual = Me.cboPesquisaMes.Column(0) Then

     Me.txtprimeirodia = ""
      Me.txtprimeirodia = Day(Date)
        Me.txtResultado = Nz(DSum("valor_pago", "cs_gasto_dia"), 0) / Me.txtprimeirodia
         Me.mesNumero = Nz(DSum("valor_pago", "cs_gasto_dia"), 0)
           Me.listagasto.Requery
Else
     Me.txtprimeirodia = ""
       Me.txtprimeirodia = Format(DateSerial(Format(Date, "YYYY"), cboPesquisaMes.Column(0) + 1, 0), "dd")
        Me.listagasto.Requery
End If



abraço muito obrigadooooooooooo

O fórum agradece o retorno. Sucesso.

boa noite Damasceno



Me desculpa em reabrir este tópico estou tentando fazer esta soma direto na consulta  e não estou conseguindo onde estou errando?
no  código vba deu certo mais gostaria de fazer direto na consulta

TotalDia: [totalpago]/DataSerial(Ano(Data());Mês(Data())-1+1;0)



gostaria de mostrando todas compras do mês (comparar o gasto diário do mês anterior com o gasto diário do mÊs atual)

-1+1?

Obrigado mais uma vez consegui resolver