主题：日期查询

Dim ary() As String = Functions.Execute("Xueqi")

Sele ct 学生编号 From {缴退费信息} WHERE 学期 = '"& ary(0) &"' And 缴费项目 = '学费' And 退费日期 >= #"& IIF("& ary(0) &" Like "%秋%",New Date(退费日期.Year,10,1),IIF("& ary(0) &" Like "%春%",New Date(退费日期.Year,5,1)) &"#

请老师指教，谢谢！