Problem with "<="

I have the following function in my code:

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?

You need to tell is what is <=3

Code:

---

If intMonth >=1 AndAlso intMonth <= 3 Then

---

Oh wow. I AM rusty. :blush:

Not sure HOW I missed that one.

Thanks Grimfort.

Quote:

---

Originally Posted by The_Grudge

Oh wow. I AM rusty. :blush:

Not sure HOW I missed that one.

Thanks Grimfort.

---

Try WD-40 ;)