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