符合条件的保留

f15007937680

请教大哥大神，

怎么保留符合年月日的表项，不符合的删除表项

houtian

修改.e (5.64 KB, 下载次数: 7)

2024-3-29 15:56 上传

点击文件名下载附件

houtian

  

子程序名	返回值类型	公开	备 注
_按钮2_被单击

子程序1 (“2024-1”, “2024-5”)

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
参_起始时间	文本型
参_结束时间	文本型

变量名	类 型	静态	数组	备 注
局_时间1	日期时间型
局_时间2	日期时间型
i	整数型
局_时间	日期时间型

局_时间1 ＝ 到时间 (参_起始时间 ＋ “-1”)
局_时间2 ＝ 增减时间 (到时间 (参_结束时间 ＋ “-1”), #月份, 1)
判断循环首 (i ＜ 超级列表框1.取表项数 ())
局_时间 ＝ 到时间 (超级列表框1.取标题 (i, 0))
如果真 (局_时间 ≥ 局_时间1 且 局_时间 ≤ 局_时间2)
超级列表框1.删除表项 (i)
到循环尾 ()
i ＝ i ＋ 1
判断循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 子程序1 (“2024-1”, “2024-5”)<br /> <br /> .子程序 子程序1<br /> .参数 参_起始时间, 文本型<br /> .参数 参_结束时间, 文本型<br /> .局部变量 局_时间1, 日期时间型<br /> .局部变量 局_时间2, 日期时间型<br /> .局部变量 i, 整数型<br /> .局部变量 局_时间, 日期时间型<br /> <br /> 局_时间1 ＝ 到时间 (参_起始时间 ＋ “-1”)<br /> 局_时间2 ＝ 增减时间 (到时间 (参_结束时间 ＋ “-1”), #月份, 1)<br /> .判断循环首 (i ＜ 超级列表框1.取表项数 ())<br />     局_时间 ＝ 到时间 (超级列表框1.取标题 (i, 0))<br />     .如果真 (局_时间 ≥ 局_时间1 且 局_时间 ≤ 局_时间2)<br />         超级列表框1.删除表项 (i)<br />         到循环尾 ()<br />     .如果真结束<br />     i ＝ i ＋ 1<br /> .判断循环尾 ()

删除2024年1月到2024年5月

补充内容 (2024-3-29 14:51):
局_时间 ≤ 局_时间2  改成 <

f15007937680

houtian 发表于 2024-3-29 14:51
[e=1].版本 2
.支持库 iext

不能判断年月日吗

houtian

f15007937680 发表于 2024-3-29 15:10
不能判断年月日吗

可以啊, 实际就是把年月日文本转到日期时间型进行判断

f15007937680

houtian 发表于 2024-3-29 15:13
可以啊, 实际就是把年月日文本转到日期时间型进行判断

感谢你的回复，好像没有效果耶  希望符合要求的留下来，不是删除，

houtian

f15007937680 发表于 2024-3-29 15:23
感谢你的回复，好像没有效果耶  希望符合要求的留下来，不是删除，

请问各位大哥

这个时间区间怎么判断啊

要删除2024年1月到2024年5月的怎么写啊！

看你代码里面写的这个

如果要留下删除其他的, 就判断时间<时间1 || 时间>=时间2  然后删除

f15007937680

houtian 发表于 2024-3-29 15:26
请问各位大哥

这个时间区间怎么判断啊

不好意思 可以能写错了

houtian

f15007937680 发表于 2024-3-29 15:29
不好意思 可以能写错了

  

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
局_时间1	日期时间型
局_时间2	日期时间型
i	整数型
局_时间	日期时间型

局_时间1 ＝ 到时间 (编辑框_开始.内容)
局_时间2 ＝ 增减时间 (到时间 (编辑框_结束.内容), #日, 1)
判断循环首 (i ＜ 超级列表框1.取表项数 ())
局_时间 ＝ 到时间 (超级列表框1.取标题 (i, 0))
如果真 (局_时间 ＜ 局_时间1 或 局_时间 ≥ 局_时间2)
超级列表框1.删除表项 (i)
到循环尾 ()
i ＝ i ＋ 1
判断循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 局_时间1, 日期时间型<br /> .局部变量 局_时间2, 日期时间型<br /> .局部变量 i, 整数型<br /> .局部变量 局_时间, 日期时间型<br /> <br /> 局_时间1 ＝ 到时间 (编辑框_开始.内容)<br /> 局_时间2 ＝ 增减时间 (到时间 (编辑框_结束.内容), #日, 1)<br /> .判断循环首 (i ＜ 超级列表框1.取表项数 ())<br />     局_时间 ＝ 到时间 (超级列表框1.取标题 (i, 0))<br />     .如果真 (局_时间 ＜ 局_时间1 或 局_时间 ≥ 局_时间2)<br />         超级列表框1.删除表项 (i)<br />         到循环尾 ()<br />     .如果真结束<br />     i ＝ i ＋ 1<br /> .判断循环尾 ()

按照编辑框里的时间来,  就是这样

f15007937680

houtian 发表于 2024-3-29 15:26
请问各位大哥

这个时间区间怎么判断啊

可能是我写错了 好像没反应 麻烦大哥看下