Problem with "<="

[The_Grudge]

I have the following function in my code:

Private Function GetFiscalYear(ByVal dtDateTime As Date) As Integer
        Dim intYear As Integer = DatePart(DateInterval.Month, dtDateTime)
        Dim intMonth As Integer = DatePart(DateInterval.Year, dtDateTime)

        If intMonth >=1 And <= 3 Then
            GetFiscalYear = intYear + 1
        Else
            GetFiscalYear = intYear
        End If
    End Function

For some reason it doesn't like the "<= 3" part. When I hover over the blue squiggly line it says "XML Name Expected". What's the problem?

[Grimfort]

You need to tell is what is <=3

If intMonth >=1 AndAlso intMonth <= 3 Then

[The_Grudge]

Oh wow. I AM rusty.

Not sure HOW I missed that one.

Thanks Grimfort.

[dbasnett]

Oh wow. I AM rusty.

Not sure HOW I missed that one.

Thanks Grimfort.

Try WD-40