Community discussion forum

Get Current Month Value

• • Reply

  3 months ago

  by pavneet9

  pavneet gulati

  Ludhiana, India

  Joined 3 months ago

  How Can I Get The Current Month Value In Combo Box?

  Post was edited on 14/08/2009 06:50:53 Report abuse
• • Reply

  3 months ago

  by Uncle

  Uncle

  England, United Kingdom

  Joined 7 years ago

  If you just want the number of the month to play with, you can use ComboBox1.Text = Month(Now())

  If you want the name of the month to appear, you could use code like this: Private Sub CommandButton1_Click() Dim intMonth As Integer Dim txtMonth As String

  intMonth = Month(Now())
  
      Select Case intMonth
          Case 1:
              txtMonth = "January"
          Case 2:
              txtMonth = "February"
          Case 3:
              txtMonth = "March"
          Case 4:
              txtMonth = "April"
          Case 5:
              txtMonth = "May"
          Case 6:
              txtMonth = "June"
          Case 7:
              txtMonth = "July"
          Case 8:
              txtMonth = "August"
          Case 9:
              txtMonth = "September"
          Case 10:
              txtMonth = "October"
          Case 11:
              txtMonth = "November"
          Case 12:
              txtMonth = "December"
      End Select
      ComboBox1.Text = txtMonth
  End Sub
  

  Hope this helps!

  Report abuse