Days in a certain month - vb.net

Question

I want to calculate how many days there are in a month. Obviously if there is a leap year then February would have 29 days.
I have some code that works out if it a leap year or not, but I do not know if it is useful.
I tried to do the current year and to count the days of the month that is entered; however there's an error and I'm not sure what to do.
Sub daysInMonth()
Console.WriteLine("Please Enter month you will like to calculate number of days: ")
Dim inputMonth As DateTime = Console.ReadLine()
Dim newMonth = DateAndTime.Month(inputMonth)
Dim current = Now()
Dim currentYear = (Year(current))
Dim febuaryLeapYear = System.DateTime.DaysInMonth(currentYear, newMonth)
End Sub
Solved

Answer 1

I have this function which returns the number of days in any month, any year. Hope helps
Private Function Dates(ByVal Year As Integer, Month As Integer) As Integer
Return DateTime.DaysInMonth(Year, Month)
End Function

Answer 2

I think the problem in this case is that DaysInMonth requires the month to be expressed as an integer. So if you change inputMonth to Integer, you shouldn't receive an error.

Answer 3

Integer.TryParse(string, integerVariable) will check the string to see if it can be converted to an Integer. It will return True or False so it can be used in an If statemnent. In addition it fills the integerVariable with the Integer representation of the string.
The AndAlso parts of the If will never execute if the previous condition is false. This is called short circuiting. Your code will not blow up comparing numbers in the AndAlso conditions because if the first part is false it never executes.
Sub CalculateDaysInMonth() 'It is a bad idea to name your Sub the same as a .net method
Do 'The method will loop until the user enters correct data
'A more explicit message will help user to enter correct data
Console.WriteLine("Please enter a month by entering a number between 1 and 12")
Dim inputMonth As Integer
If Integer.TryParse(Console.ReadLine, inputMonth) AndAlso inputMonth > 0 AndAlso inputMonth < 13 Then
Dim currentYear As Integer = Now.Year
Dim numberOfDays As Integer = DateTime.DaysInMonth(currentYear, inputMonth)
'This is an interpolated string. If your version doesn't support this you can use String.Format
'String.Format("There are {0} in month {1} this year", numberOfDays, inputMonth)
Console.WriteLine($"There are {numberOfDays} in month {inputMonth} this year")
Return
End If
Loop
End Sub