以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  日期查询  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=126242)
--  作者：良才
--  发布时间：2018/10/17 13:06:00
--  日期查询

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)) &"#

请老师指教，谢谢！

[此贴子已经被作者于2018/10/17 13:15:43编辑过]
--  作者：良才
--  发布时间：2018/10/17 14:30:00
--  

Dim ary() As String = Functions.Execute("Xueqi")
Dim y As Integer = ary(0).SubString(0,4)
Sele ct 学生编号 From {缴退费信息} WHERE 学期 = \'"& ary(0) &"\' And 缴费项目 = \'学费\' And (退费日期 Is Null Or 退费日期 > #"& IIF("& ary(0) &" Like "%秋%",New Date(y,10,1),New Date(y,5,1)) &"#

老师这样对吗？
--  作者：有点甜
--  发布时间：2018/10/17 15:16:00
--  
Dim y As Integer = ary(0).SubString(0,4)
Dim str = "Select 学生编号 From {缴退费信息} WHERE 学期 = \'"& ary(0) &"\' And 缴费项目 = \'学费\' And (退费日期 Is Null Or 退费日期 > #" & IIF(ary(0) Like "*秋*",New Date(y,10,1), New Date(y,5,1)) & "#"
msgbox(str)
--  作者：良才
--  发布时间：2018/10/18 12:48:00
--  

谢谢