主题：字符串比较问题

Dim y As Integer = Date.Today.Year

Dim dt1 As New Date(y, 1, 1)

Dim dt2 As New Date(y, 6, Date.DaysInMonth(y,6)) '获取该月的最后一天

Dim dt3 As New Date(y, 7, 1)

Dim dt4 As New Date(y, 12, Date.DaysInMonth(y,12)) '获取该月的最后一天

Dim Filter,Filter1 As String

If Date.today>=dt1 And Date.today<= dt2 Then

    Filter = Format(Date.today,"yyyy") & "上半年度"

ElseIf Date.today>=dt3 And Date.today<= dt4 Then

    Filter1 = Format(Date.today,"yyyy") & "下半年度"

End If

Output.Show("年度='" & filter & "' Or 年度 ='" & Filter1 & "'")