吃饭时间问题新变化求助

wh1234567

食堂吃饭“开始营业时间”规定在编辑框1里填入例如 00:23:40，吃饭“结束营业时间”规定在编辑框2里填入例如 16:59：59（实际就是指17:00，例如23:59:59就是指0点吧？），每一班吃饭时间规定在编辑框3里填入例如 03:10:40（3小时10分钟40秒钟,如果填入的是03:00:00则代表3小时，如果填入的是00:40:00则代表的是40分钟，如果填入的是00:00:50则代表的是50秒钟），总共有例如9班人需要吃饭，假如设定的今天日期是2025-03-27，那么请问如何轮流吃饭并插入超级列表框里？逐行输出效果例如：2025-03-27 星期四 第一班吃饭00:23:40-----03:33:40
2025-03-27 星期四 第二班吃饭03:33:40-----06:43:40
2025-03-27 星期四 第三班吃饭06:43:40-----09:53:40
......假如今天排到第二天才完的，那么则需要改变日期，输出例如 2025-03-28 星期五 第六班吃饭02:53:40-----06:03:40


上次求助的编辑框里时间只有 小时:分钟，这次求助的是 编辑框里是：小时:分钟:秒钟 这种格式的时间，求例子

算法艺术家

  

变量名	类 型	静态	数组	备 注
索引	整数型
i	整数型
起始参数小时	文本型
起始参数分钟	文本型
起始参数秒	文本型
起始参数间隔小时	文本型
起始参数间隔分钟	文本型
起始参数间隔秒	文本型
开始时间	日期时间型
结束时间	日期时间型
结束时间文本	文本型
起始时间文本	文本型
起始参数间隔文本	文本型
间隔秒数	整数型
几班吃饭的	整数型
记录开始时间	日期时间型

起始时间文本 ＝ “00:23:40”
起始参数间隔文本 ＝ “03:10:40”
几班吃饭的 ＝ 9
起始参数小时 ＝ 文本_取左边 (起始时间文本, “:”, , )
起始参数分钟 ＝ 文本_取出中间文本 (起始时间文本, “:”, “:”, , )
起始参数秒 ＝ 文本_取右边 (起始时间文本, “:”, , )
起始参数间隔小时 ＝ 文本_取左边 (起始参数间隔文本, “:”, , )
起始参数间隔分钟 ＝ 文本_取出中间文本 (起始参数间隔文本, “:”, “:”, , )
起始参数间隔秒 ＝ 文本_取右边 (起始参数间隔文本, “:”, , )
间隔秒数 ＝ 到整数 (起始参数间隔小时) × 3600 ＋ 到整数 (起始参数间隔分钟) × 60 ＋ 到整数 (起始参数间隔秒)
开始时间 ＝ 修改时间 (取现行时间 (), , , , 到整数 (起始参数小时), 到整数 (起始参数分钟), 到整数 (起始参数秒))
记录开始时间 ＝ 开始时间
起始时间文本 ＝ 时间_格式化EX (开始时间, , , 3) ＋ “ ” ＋ 时间_取中国星期几 (开始时间)
计次循环首 (几班吃饭的, i)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
结束时间 ＝ 增减时间 (开始时间, #秒, 间隔秒数)
结束时间文本 ＝ 时间_格式化EX (结束时间, , , 3) ＋ “ ” ＋ 时间_取中国星期几 (结束时间)
超级列表框1.置标题 (索引, 0, “第” ＋ 到文本 (i) ＋ “班吃饭” ＋ 起始时间文本 ＋ “-----” ＋ 结束时间文本)
起始时间文本 ＝ 结束时间文本
开始时间 ＝ 结束时间
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .局部变量 索引, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 起始参数小时, 文本型<br /> .局部变量 起始参数分钟, 文本型<br /> .局部变量 起始参数秒, 文本型<br /> .局部变量 起始参数间隔小时, 文本型<br /> .局部变量 起始参数间隔分钟, 文本型<br /> .局部变量 起始参数间隔秒, 文本型<br /> .局部变量 开始时间, 日期时间型<br /> .局部变量 结束时间, 日期时间型<br /> .局部变量 结束时间文本, 文本型<br /> .局部变量 起始时间文本, 文本型<br /> .局部变量 起始参数间隔文本, 文本型<br /> .局部变量 间隔秒数, 整数型<br /> .局部变量 几班吃饭的, 整数型<br /> .局部变量 记录开始时间, 日期时间型<br /> <br /> 起始时间文本 ＝ “00:23:40”<br /> 起始参数间隔文本 ＝ “03:10:40”<br /> 几班吃饭的 ＝ 9<br /> 起始参数小时 ＝ 文本_取左边 (起始时间文本, “:”, , )<br /> 起始参数分钟 ＝ 文本_取出中间文本 (起始时间文本, “:”, “:”, , )<br /> 起始参数秒 ＝ 文本_取右边 (起始时间文本, “:”, , )<br /> 起始参数间隔小时 ＝ 文本_取左边 (起始参数间隔文本, “:”, , )<br /> 起始参数间隔分钟 ＝ 文本_取出中间文本 (起始参数间隔文本, “:”, “:”, , )<br /> 起始参数间隔秒 ＝ 文本_取右边 (起始参数间隔文本, “:”, , )<br /> 间隔秒数 ＝ 到整数 (起始参数间隔小时) × 3600 ＋ 到整数 (起始参数间隔分钟) × 60 ＋ 到整数 (起始参数间隔秒)<br /> 开始时间 ＝ 修改时间 (取现行时间 (), , , , 到整数 (起始参数小时), 到整数 (起始参数分钟), 到整数 (起始参数秒))<br /> 记录开始时间 ＝ 开始时间<br /> 起始时间文本 ＝ 时间_格式化EX (开始时间, , , 3) ＋ “ ” ＋ 时间_取中国星期几 (开始时间)<br /> .计次循环首 (几班吃饭的, i)<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     结束时间 ＝ 增减时间 (开始时间, #秒, 间隔秒数)<br />     结束时间文本 ＝ 时间_格式化EX (结束时间, , , 3) ＋ “ ” ＋ 时间_取中国星期几 (结束时间)<br />     超级列表框1.置标题 (索引, 0, “第” ＋ 到文本 (i) ＋ “班吃饭” ＋ 起始时间文本 ＋ “-----” ＋ 结束时间文本)<br />     起始时间文本 ＝ 结束时间文本<br />     开始时间 ＝ 结束时间<br /> .计次循环尾 ()

wh1234567

算法艺术家 发表于 2025-3-27 17:06
[e=3].版本 2
.支持库 iext

  如果选择框8选中=真，如何按时间范围和营业时间范围以及吃饭时长来实现轮流？求老师修改增加一下代码好吗

wh1234567

算法艺术家 发表于 2025-3-27 17:06
[e=3].版本 2
.支持库 iext

求.e (964.74 KB, 下载次数: 3)

4 天前 上传

点击文件名下载附件 如果选择框8选中=真，如何按时间范围和营业时间范围以及吃饭时长来实现轮流？求老师修改增加一下代码好吗

算法艺术家

wh1234567 发表于 2025-3-27 19:25
如果选择框8选中=真，如何按时间范围和营业时间范围以及吃饭时长来实现轮流？求老师修改增加一下代码好 ...

你都是T7大佬了 这点小问题 你自己琢磨琢磨就会了

b0y

我是一点没看明白....

wh1234567

算法艺术家 发表于 2025-3-27 19:29
你都是T7大佬了 这点小问题 你自己琢磨琢磨就会了

.老师再帮我一把吧，辛苦老师了

jy243486841

你但凡带个搞得差不多的UI了 也能比较好理解

wh1234567

算法艺术家 发表于 2025-3-27 17:06
[e=3].版本 2
.支持库 iext

起始时间文本 ＝ “00:23:40” 如果是这种的就按时分秒计算，如果是 “00:23”这种的就按时分计算
起始参数间隔文本 ＝ “03:10:40” 如果是这种的就按时分秒计算，如果是“03:10”这种的就按时分计算
如何修正一下呢？


补充内容 (2025-3-28 23:06):
如果编辑框输入的是 “00:23”这样格式的，计算显示出来就会不正确，所以如何判断输入编辑框的内容是时分秒还是时分，以便于正确输出，老师再.....

wh1234567

算法艺术家 发表于 2025-3-27 19:29
你都是T7大佬了 这点小问题 你自己琢磨琢磨就会了

老师帮修改一下我上传的文件可以吗