Solved: if & for statement

[av8tordude]

Why is this "IF" statement working?

With cboYear
If Date < "12/1/" & Year(Date) Then
For iloop = Year(Date) To Year(Date) - 2 Step -1
.AddItem "Yr '" & iloop
Next
Else
For iloop = Year(Date) + 1 To Year(Date) - 2 Step -1
.AddItem "Yr '" & iloop
Next
End If
End With

[ntrauger]

Comparing a date to a string. TryIf Date < CDate("12/1/" & Year(Date)) Then

[av8tordude]

Thank you ntrauger, it works perfect.:beerchug:

[Bob Phillips]

To be internationally compliant, you should always use a non-ambiguous date format

CDate(Year(Date) & "-12-01")