时间问题，当年的时间如何设置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 时间问题，当年的时间如何设置

共有2858人关注过本帖树形打印复制链接主题：时间问题，当年的时间如何设置

李孝春

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（hbfnmxb）时间问题，当年的时间如何设置 发帖心情

Post By：2021/1/23 21:07:00 [显示全部帖子]

Dim t As Date= Date.Now

For Each ary As String() In dt1.GetValues("选科系列|最低分", "选科系列 is not null")

Dim filter As String = "选科系列='" & ary(0) & "'And 最低分='" & ary(1) & "'"

Dim filter1 As String = filter & " And 录取年度 = '" & t.Year & "'"

是不是这样的？

李孝春

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（hbfnmxb）谢谢老师！2020年，2019年如何定义呢... 发帖心情

Post By：2021/1/23 21:35:00 [显示全部帖子]

你是要当年时间然后对应倒退几年？

Dim d1 As Date = d.AddYears(10) '加上10年
Dim d2 As Date = d.AddYears(-10) '减去10年

Dim t As Date= Date.Now

For Each ary As String() In dt1.GetValues("选科系列|最低分", "选科系列 is not null")

Dim filter As String = "选科系列='" & ary(0) & "'And 最低分='" & ary(1) & "'"

Dim i As Integer

For i = 0 To 4 ‘从当年开始倒退五年

Dim d2 As Date = t.AddYears(-i) '减去年

Dim filter1 As String = filter & " And 录取年度 = '" & d2.year & "'"

[此贴子已经被作者于2021/1/23 21:50:50编辑过]

李孝春

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（hbfnmxb）无法在 System.Double 和 System.St... 发帖心情

Post By：2021/1/23 22:30:00 [显示全部帖子]

Dim t As Date= Date.Now

'For Each ary As String() In dt1.GetValues("选科系列|最低分", "选科系列 is not null")

'Dim filter As String = "选科系列='" & ary(0) & "'And 最低分='" & ary(1) & "'"

Dim i As Integer

For i = 0 To 4 '从当年开始倒退五年

Dim d2 As Date = t.AddYears(-i) '减去年

Dim filter As String ="ABC"

Dim filter1 As String = filter & " And 录取年度 = '" & d2.year & "'"

output.Show(filter1 )

上面代码在命令创库运行

得到结果

ABC And 录取年度 = '2021'

ABC And 录取年度 = '2020'

ABC And 录取年度 = '2019'

ABC And 录取年度 = '2018'

ABC And 录取年度 = '2017'

请自行排查一下你其他代码

你代码标注的红色部分换成下面的代码试一试

Dim i As Integer

For i = 0 To 4 '从当年开始倒退五年

Dim d2 As Date = t.AddYears(-i) '减去年

Dim filter1 As String = filter & " And 录取年度 = '" & d2.year & "'"

output.Show(filter1 )

[此贴子已经被作者于2021/1/23 22:31:16编辑过]

下一主题 >> << 上一主题

主题：时间问题，当年的时间如何设置