writing code in vb.net

Question

I am trying to write a function procedure that accepts one string argument representing a month name and should return an integer value representing the month so that January =1

joy.simpson · Answer

I hope this isn't a homework assignment I'm doing for you. There are multiple ways to solve this problem. This is only one solution. You could of course use a Select Case block but the code I used is much shorter using an array. You could also add a Do loop to verify that the user entered at least a 3-character string or you could keep repeating for more inputs until the user enters nothing as the condition to stop repeating. Module Module1 Sub Main() Dim month As String Console.Write(Enter name of month: ) month = Console.ReadLine() month = month.Substring(0 3).ToLower() Console.WriteLine(The month number is {0} monthnum(month)) Console.WriteLine() End Sub Function monthnum(ByVal month As String) As Integer Dim x As Integer Dim thismonth() As String = { jan feb mar apr may jun jul _ aug sep oct nov dec} For x = 1 To 12 If month = thismonth(x) Then Return x Next x End Function End Module