Converting date help

[Edward233]

Function Convert_Date_Int2Str(Date_Int As String) As String
 
Select Case Date_Int
  Case 1
    Convert_Date_Int2Str = "January"
  Case 2
    Convert_Date_Int2Str = "February"
  Case 3
    Convert_Date_Int2Str = "March"
  Case 4
    Convert_Date_Int2Str = "April"
  Case 5
    Convert_Date_Int2Str = "May"
  Case 6
    Convert_Date_Int2Str = "June"
  Case 7
    Convert_Date_Int2Str = "July"
  Case 8
    Convert_Date_Int2Str = "August"
  Case 9
    Convert_Date_Int2Str = "September"
  Case 10
    Convert_Date_Int2Str = "October"
  Case 11
    Convert_Date_Int2Str = "November"
  Case 12
    Convert_Date_Int2Str = "December"
End Select
End Function

Hi All
Im still working on my project here is another one for you all
when my program runs it accepts day , month, year from list boxes.
the boxes are text. Now i have to convert them to numbers uptop i only have the one for the month. Is there a easyer way????

Thanks Ed

[dglienna]

Just use the MonthName()

Option Explicit
 
Private Sub Form_Load()
  MsgBox MonthName(8)
End Sub

[andrewb]

and from a date e.g. 24/01/1984...

MsgBox MonthName(Month(thedatehere))

[dglienna]

Or else use a Date Time Picker, so they can pick a day off the calendar.