时间问题

766711831

这种时间怎么加分钟啊  就是取第一行加10分钟  然后循环列表框  取出加的十分钟内的行数

Ruang

766711831 发表于 2025-4-30 16:23
对了  还有加上计算这个时间内的平均数

  

子程序名	返回值类型	公开	备 注
功能_取出大于时间内文本
参数名	类 型	参考	可空	数组	备 注
组件	超级列表框
返回索引数组	整数型
平均数	整数型

变量名	类 型	静态	数组	备 注
当前时间	文本型
对比时间	文本型
计次	整数型
时间分组1	文本型		0
时间分组2	文本型		0
当前索引	整数型
临时数据	整数型
待返回数据	整数型		0
总数	整数型

计次循环首 (组件.取表项数 (), 计次)
当前索引 ＝ 计次 － 1
如果真 (计次 ＝ 1)
当前时间 ＝ 组件.取标题 (当前索引, 1)
到循环尾 ()
对比时间 ＝ 组件.取标题 (当前索引, 1)
时间分组1 ＝ 分割文本 (当前时间, “:”, )
时间分组2 ＝ 分割文本 (对比时间, “:”, )
如果真 (时间分组1 [1] ＝ 时间分组2 [1])
如果真 (到整数 (时间分组1 [2]) ＜ 到整数 (时间分组2 [2]))
临时数据 ＝ 到文本 (到整数 (时间分组2 [2]) － 到整数 (时间分组1 [2]))
如果真 (临时数据 ≤ 10)
加入成员 (待返回数据, 当前索引)



计次循环尾 ()
返回索引数组 ＝ 待返回数据
计次循环首 (取数组成员数 (待返回数据), 计次)
总数 ＝ 总数 ＋ 到整数 (待返回数据 [计次])
计次循环尾 ()
平均数 ＝ 总数 ÷ 取数组成员数 (待返回数据)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 功能_取出大于时间内文本<br /> .参数 组件, 超级列表框<br /> .参数 返回索引数组, 整数型, 参考 数组<br /> .参数 平均数, 整数型, 参考<br /> .局部变量 当前时间, 文本型<br /> .局部变量 对比时间, 文本型<br /> .局部变量 计次, 整数型<br /> .局部变量 时间分组1, 文本型, , "0"<br /> .局部变量 时间分组2, 文本型, , "0"<br /> .局部变量 当前索引, 整数型<br /> .局部变量 临时数据, 整数型<br /> .局部变量 待返回数据, 整数型, , "0"<br /> .局部变量 总数, 整数型<br /> <br /> .计次循环首 (组件.取表项数 (), 计次)<br />     当前索引 ＝ 计次 － 1<br />     .如果真 (计次 ＝ 1)<br />         当前时间 ＝ 组件.取标题 (当前索引, 1)<br />         到循环尾 ()<br />     .如果真结束<br />     对比时间 ＝ 组件.取标题 (当前索引, 1)<br />     时间分组1 ＝ 分割文本 (当前时间, “:”, )<br />     时间分组2 ＝ 分割文本 (对比时间, “:”, )<br />     .如果真 (时间分组1 [1] ＝ 时间分组2 [1])<br />         .如果真 (到整数 (时间分组1 [2]) ＜ 到整数 (时间分组2 [2]))<br />             临时数据 ＝ 到文本 (到整数 (时间分组2 [2]) － 到整数 (时间分组1 [2]))<br />             .如果真 (临时数据 ≤ 10)<br />                 加入成员 (待返回数据, 当前索引)<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回索引数组 ＝ 待返回数据<br /> .计次循环首 (取数组成员数 (待返回数据), 计次)<br />     总数 ＝ 总数 ＋ 到整数 (待返回数据 [计次])<br /> .计次循环尾 ()<br /> 平均数 ＝ 总数 ÷ 取数组成员数 (待返回数据)

Ruang

不太理解你说的，取出加十分钟的行数？

aipca

这个逻辑有问题，没有日期，只有时间，加十分钟，23点59分加十分钟算什么？应该取完整格式时间

Ruang

  

子程序名	返回值类型	公开	备 注
功能_时间加分钟	文本型		格式错误返回空
参数名	类 型	参考	可空	数组	备 注
时间	文本型
加分钟	整数型

变量名	类 型	静态	数组	备 注
局_时间	文本型
文本数组	文本型		0
局_小时	整数型
计次	整数型

文本数组 ＝ 分割文本 (时间, “:”, )
如果真 (取数组成员数 (文本数组) ＝ 3)
文本数组 [2] ＝ 到文本 (到整数 (文本数组 [2]) ＋ 加分钟)
如果真 (到整数 (文本数组 [2]) ≥ 60)
文本数组 [2] ＝ 到文本 (到整数 (文本数组 [2]) － 60)
文本数组 [1] ＝ 到文本 (到整数 (文本数组 [1]) ＋ 1)
如果真 (到整数 (文本数组 [1]) ≥ 24)
文本数组 [1] ＝ “0”
计次循环首 (取数组成员数 (文本数组), 计次)
文本数组 [计次] ＝ 文本_自动补零 (文本数组 [计次], 2)
计次循环尾 ()
返回 (文本数组 [1] ＋ “:” ＋ 文本数组 [2] ＋ “:” ＋ 文本数组 [3])
返回 (“”)

.版本 2<br /> <br /> .子程序 功能_时间加分钟, 文本型, , 格式错误返回空<br /> .参数 时间, 文本型<br /> .参数 加分钟, 整数型<br /> .局部变量 局_时间, 文本型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 局_小时, 整数型<br /> .局部变量 计次, 整数型<br /> <br /> 文本数组 ＝ 分割文本 (时间, “:”, )<br /> .如果真 (取数组成员数 (文本数组) ＝ 3)<br />     文本数组 [2] ＝ 到文本 (到整数 (文本数组 [2]) ＋ 加分钟)<br />     .如果真 (到整数 (文本数组 [2]) ≥ 60)<br />         文本数组 [2] ＝ 到文本 (到整数 (文本数组 [2]) － 60)<br />         文本数组 [1] ＝ 到文本 (到整数 (文本数组 [1]) ＋ 1)<br />     .如果真结束<br />     .如果真 (到整数 (文本数组 [1]) ≥ 24)<br />         文本数组 [1] ＝ “0”<br />     .如果真结束<br />     .计次循环首 (取数组成员数 (文本数组), 计次)<br />         文本数组 [计次] ＝ 文本_自动补零 (文本数组 [计次], 2)<br />     .计次循环尾 ()<br />     返回 (文本数组 [1] ＋ “:” ＋ 文本数组 [2] ＋ “:” ＋ 文本数组 [3])<br /> .如果真结束<br /> 返回 (“”)

补充内容 (2025-4-30 14:12):
加到24时，小时=0

Ruang

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
超级列表框1	超级列表框			组件
计次	整数型
取出的时间	文本型
添加的分钟	整数型

计次循环首 (超级列表框1.取表项数 (), 计次)
取出的时间 ＝ 超级列表框1.取标题 (计次 － 1, )
超级列表框1.置标题 (计次 － 1, 1, 功能_时间加分钟 (取出的时间, 添加的分钟))
计次循环尾 ()
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
功能_时间加分钟	文本型		格式正确则返回文本，错误则返回空
参数名	类 型	参考	可空	数组	备 注
时间	文本型				格式 12:12:12  十二时十二分十二秒
分钟	整数型				叠加的分钟

变量名	类 型	静态	数组	备 注
文本数组	文本型		0

文本数组 ＝ 分割文本 (时间, “:”, )
如果真 (取数组成员数 (文本数组) ＝ 3)
文本数组 [2] ＝ 到文本 (到整数 (文本数组 [2]) ＋ 分钟)
如果真 (到整数 (文本数组 [2]) ≥ 60)
文本数组 [2] ＝ 到文本 (到整数 (文本数组 [2]) － 60)
文本数组 [1] ＝ 到文本 (到整数 (文本数组 [1]) ＋ 1)
如果真 (到整数 (文本数组 [1]) ≥ 24)
文本数组 [1] ＝ “0”
文本数组 [1] ＝ 文本_自动补零 (文本数组 [1], 2)
文本数组 [2] ＝ 文本_自动补零 (文本数组 [2], 2)
文本数组 [3] ＝ 文本_自动补零 (文本数组 [3], 2)
返回 (文本数组 [1] ＋ “:” ＋ 文本数组 [2] ＋ “:” ＋ 文本数组 [3])
返回 (“”)

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 超级列表框1, 超级列表框, , , 组件<br /> .局部变量 计次, 整数型<br /> .局部变量 取出的时间, 文本型<br /> .局部变量 添加的分钟, 整数型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), 计次)<br />     取出的时间 ＝ 超级列表框1.取标题 (计次 － 1, )<br />     超级列表框1.置标题 (计次 － 1, 1, 功能_时间加分钟 (取出的时间, 添加的分钟))<br /> .计次循环尾 ()<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 功能_时间加分钟, 文本型, , 格式正确则返回文本，错误则返回空<br /> .参数 时间, 文本型, , 格式 12:12:12  十二时十二分十二秒 <br /> .参数 分钟, 整数型, , 叠加的分钟<br /> .局部变量 文本数组, 文本型, , "0"<br /> <br /> 文本数组 ＝ 分割文本 (时间, “:”, )<br /> .如果真 (取数组成员数 (文本数组) ＝ 3)<br />     文本数组 [2] ＝ 到文本 (到整数 (文本数组 [2]) ＋ 分钟)<br />     .如果真 (到整数 (文本数组 [2]) ≥ 60)<br />         文本数组 [2] ＝ 到文本 (到整数 (文本数组 [2]) － 60)<br />         文本数组 [1] ＝ 到文本 (到整数 (文本数组 [1]) ＋ 1)<br />     .如果真结束<br />     .如果真 (到整数 (文本数组 [1]) ≥ 24)<br />         文本数组 [1] ＝ “0”<br />     .如果真结束<br />     文本数组 [1] ＝ 文本_自动补零 (文本数组 [1], 2)<br />     文本数组 [2] ＝ 文本_自动补零 (文本数组 [2], 2)<br />     文本数组 [3] ＝ 文本_自动补零 (文本数组 [3], 2)<br />     返回 (文本数组 [1] ＋ “:” ＋ 文本数组 [2] ＋ “:” ＋ 文本数组 [3])<br /> .如果真结束<br /> 返回 (“”)

大概就是这么写

zainex

用 取时间间隔 判断就行了：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
索引	整数型
数	整数型
时间	日期时间型
小时	整数型
分钟	整数型
秒	整数型
行数	整数型

时间 ＝ 到时间 (“2000-1-1-10-50-0”)
计次循环首 (50, 数)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (51 － 数))
时间 ＝ 增减时间 (时间, #秒, ���取随机数 (10, 120))
小时 ＝ 取小时 (时间)
分钟 ＝ 取分钟 (时间)
秒 ＝ 取秒 (时间)
超级列表框1.置标题 (索引, 1, 到文本 (小时) ＋ “:” ＋ 到文本 (分钟) ＋ “:” ＋ 到文本 (秒))
计次循环尾 ()
时间 ＝ 到时间 (“2000-1-1-” ＋ 到文本 (超级列表框1.取标题 (0, 1)))
行数 ＝ 0
计次循环首 (超级列表框1.取表项数 (), 数)
如果真 (取时间间隔 (时间, 到时间 (“2000-1-1-” ＋ 超级列表框1.取标题 (数 － 1, 1)), #分钟 ) ≤ 10)
行数 ＝ 行数 ＋ 1
调试输出 (超级列表框1.取标题 (数 － 1, 0), 超级列表框1.取标题 (数 － 1, 1))

计次循环尾 ()
调试输出 (行数)

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 索引, 整数型<br /> .局部变量 数, 整数型<br /> .局部变量 时间, 日期时间型<br /> .局部变量 小时, 整数型<br /> .局部变量 分钟, 整数型<br /> .局部变量 秒, 整数型<br /> .局部变量 行数, 整数型<br /> <br /> 时间 ＝ 到时间 (“2000-1-1-10-50-0”)<br /> .计次循环首 (50, 数)<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (索引, 0, 到文本 (51 － 数))<br />     时间 ＝ 增减时间 (时间, #秒, －取随机数 (10, 120))<br />     小时 ＝ 取小时 (时间)<br />     分钟 ＝ 取分钟 (时间)<br />     秒 ＝ 取秒 (时间)<br />     超级列表框1.置标题 (索引, 1, 到文本 (小时) ＋ “:” ＋ 到文本 (分钟) ＋ “:” ＋ 到文本 (秒))<br /> .计次循环尾 ()<br /> <br /> 时间 ＝ 到时间 (“2000-1-1-” ＋ 到文本 (超级列表框1.取标题 (0, 1)))<br /> 行数 ＝ 0<br /> .计次循环首 (超级列表框1.取表项数 (), 数)<br />     .如果真 (取时间间隔 (时间, 到时间 (“2000-1-1-” ＋ 超级列表框1.取标题 (数 － 1, 1)), #分钟) ≤ 10)<br />         行数 ＝ 行数 ＋ 1<br />         调试输出 (超级列表框1.取标题 (数 － 1, 0), 超级列表框1.取标题 (数 － 1, 1))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (行数)

代码.zip (1.49 KB, 下载次数: 5)

2025-4-30 14:25 上传

点击文件名下载附件

766711831

Ruang 发表于 2025-4-30 13:49
不太理解你说的，取出加十分钟的行数？

取出加了10分钟后 这10分钟以内的行数

766711831

aipca 发表于 2025-4-30 13:59
这个逻辑有问题，没有日期，只有时间，加十分钟，23点59分加十分钟算什么？应该取完整格式时间 ...

完整格式我直接用增减时间 然后循环就解决了，

766711831

zainex 发表于 2025-4-30 14:25
用 取时间间隔 判断就行了：
[e=1].版本 2
.支持库 iext

代码很好 我那个列表框不是标准的日期时间格式只有时间