轮班问题？？？

108937101

星期一，分“上午 08:00-14:00”，“下午 14:00-20:00”，“夜班 20:00-08:00”，三个班次
其它星期天数，只分“白班 08:00-20:00”，“夜班 20:00-08:00”，二个班次

轮班规则
每周一，转班。
转班如下图所示，文字表达不出来，看图。                我想要跟据这个转班规则，我输入cha询日期，按班组，查出它的上什么，班次？

真冬

king1999 发表于 2022-11-4 10:50
好像,,,也不能回头日期cha询

  

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

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

添加提示 (月历1.取窗口句柄 (), “”, 假, 假)

子程序名	返回值类型	公开	备 注
轮班规则cha询	文本型
参数名	类 型	参考	可空	数组	备 注
班名	文本型				几个班
班时	文本型				一天班时段
班排	文本型				一个星期安排
班排第一个时间	日期时间型				一个星期安排的星期一的日期
cha询时间	日期时间型

变量名	类 型	静态	数组	备 注
i1	整数型
班名序号	整数型
结果	文本型
临时结果	文本型
星期几	整数型
方案序号	整数型

星期几 ＝ 取星期几 (cha询时间)
星期几 ＝ 选择 (星期几 ＝ 1, 7, 星期几 － 1)
方案序号 ＝ 取绝对值 (取时间间隔 (增减时间 (cha询时间, #日, -1), 班排第一个时间, #周 ) ％ 取数组成员数 (班名))
' 调试输出 (方案序号, 星期几)
结果 ＝ 时间到文本 (cha询时间, #日期部分 ) ＋ #换行符 ＋ “星期”
结果 ＝ 结果 ＋ 取文本中间 (“一二三四五六日”, 星期几 × 2 － 1, 2) ＋ “：” ＋ #换行符
计次循环首 (取文本长度 (班排 [星期几]), i1)
班名序号 ＝ 到整数 (取文本中间 (班排 [星期几], i1, 1))
判断 (班名序号 ＝ 0)
临时结果 ＝ “空：” ＋ 班时 [i1]
班名序号 ＝ 选择 (班名序号 ＋ 方案序号 ＞ 取数组成员数 (班名), 1, 班名序号 ＋ 方案序号)
临时结果 ＝ 班名 [班名序号] ＋ “：” ＋ 班时 [i1]
结果 ＝ 结果 ＋ “《” ＋ 临时结果 ＋ “》” ＋ #换行符
计次循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备 注
_月历1_选择日期被改变

变量名	类 型	静态	数组	备 注
班名	文本型		0
班时	文本型		0
班排	文本型		0
班排第一个时间	日期时间型
cha询时间	日期时间型
a	文本型

班名 ＝ 分割文本 (“甲,丙”, , )
班时 ＝ 分割文本 (“白08-20,夜20-08,上08-14,下14-20”, , )
班排 ＝ 分割文本 (“0112,2100,2100,2100,2100,2100,2100”, , )  ' 0空1甲2丙3丁，按班名序号填写一天的排班安排，写七天
班排第一个时间 ＝ 到时间 (“2022-11-07”)  ' 根据上面班排输入星期一的日期
cha询时间 ＝ 到时间 (“2022-11-06”)
cha询时间 ＝ 月历1.首选择日
a ＝ 轮班规则cha询 (班名, 班时, 班排, 班排第一个时间, cha询时间)  ' 轮班规则cha询（）自定义命令使用例子
置提示文本 (月历1.取窗口句柄 (), a)
编辑框1.是否允许多行 ＝ 真
编辑框1.内容 ＝ a

i支持库列表	支持库注释
shellEx	扩展功能支持库一

.版本 2<br /> .支持库 shellEx<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 添加提示 (月历1.取窗口句柄 (), “”, 假, 假)<br /> <br /> .子程序 轮班规则cha询, 文本型, 公开<br /> .参数 班名, 文本型, 数组, 几个班<br /> .参数 班时, 文本型, 数组, 一天班时段<br /> .参数 班排, 文本型, 数组, 一个星期安排<br /> .参数 班排第一个时间, 日期时间型, , 一个星期安排的星期一的日期<br /> .参数 cha询时间, 日期时间型<br /> .局部变量 i1, 整数型<br /> .局部变量 班名序号, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 临时结果, 文本型<br /> .局部变量 星期几, 整数型<br /> .局部变量 方案序号, 整数型<br /> <br /> 星期几 ＝ 取星期几 (cha询时间)<br /> 星期几 ＝ 选择 (星期几 ＝ 1, 7, 星期几 － 1)<br /> 方案序号 ＝ 取绝对值 (取时间间隔 (增减时间 (cha询时间, #日, -1), 班排第一个时间, #周) ％ 取数组成员数 (班名))<br /> ' 调试输出 (方案序号, 星期几)<br /> 结果 ＝ 时间到文本 (cha询时间, #日期部分) ＋ #换行符 ＋ “星期”<br /> 结果 ＝ 结果 ＋ 取文本中间 (“一二三四五六日”, 星期几 × 2 － 1, 2) ＋ “：” ＋ #换行符<br /> .计次循环首 (取文本长度 (班排 [星期几]), i1)<br />     班名序号 ＝ 到整数 (取文本中间 (班排 [星期几], i1, 1))<br />     .判断开始 (班名序号 ＝ 0)<br />         临时结果 ＝ “空：” ＋ 班时 [i1]<br />     .默认<br />         班名序号 ＝ 选择 (班名序号 ＋ 方案序号 ＞ 取数组成员数 (班名), 1, 班名序号 ＋ 方案序号)<br />         临时结果 ＝ 班名 [班名序号] ＋ “：” ＋ 班时 [i1]<br />     .判断结束<br />     结果 ＝ 结果 ＋ “《” ＋ 临时结果 ＋ “》” ＋ #换行符<br /> .计次循环尾 ()<br /> 返回 (结果)<br /> <br /> .子程序 _月历1_选择日期被改变<br /> .局部变量 班名, 文本型, , "0"<br /> .局部变量 班时, 文本型, , "0"<br /> .局部变量 班排, 文本型, , "0"<br /> .局部变量 班排第一个时间, 日期时间型<br /> .局部变量 cha询时间, 日期时间型<br /> .局部变量 a, 文本型<br /> <br /> 班名 ＝ 分割文本 (“甲,丙”, , )<br /> 班时 ＝ 分割文本 (“白08-20,夜20-08,上08-14,下14-20”, , )<br /> 班排 ＝ 分割文本 (“0112,2100,2100,2100,2100,2100,2100”, , )  ' 0空1甲2丙3丁，按班名序号填写一天的排班安排，写七天<br /> 班排第一个时间 ＝ 到时间 (“2022-11-07”)  ' 根据上面班排输入星期一的日期<br /> cha询时间 ＝ 到时间 (“2022-11-06”)<br /> cha询时间 ＝ 月历1.首选择日<br /> a ＝ 轮班规则cha询 (班名, 班时, 班排, 班排第一个时间, cha询时间)  ' 轮班规则cha询（）自定义命令使用例子<br /> 置提示文本 (月历1.取窗口句柄 (), a)<br /> 编辑框1.是否允许多行 ＝ 真<br /> 编辑框1.内容 ＝ a

2022年11月4日14-50-35.e (5.65 KB, 下载次数: 5)

2022-11-4 14:55 上传

点击文件名下载附件

自由天下

取星期几 (到时间 (“2022-11-3”))

取出来星期了，看看是周一还是其他就知道了啊

108937101

自由天下 发表于 2022-11-3 14:56
取星期几 (到时间 (“2022-11-3”))

取出来星期了，看看是周一还是其他就知道了啊 ...

你没搞明白，我想要什么。

108937101

我要的是这样一个效果
把转班规则设定好后，我选日期，选班组，得班次。

自由天下

108937101 发表于 2022-11-3 15:43
我要的是这样一个效果
把转班规则设定好后，我选日期，选班组，得班次。
...

你这有了啊

108937101

自由天下 发表于 2022-11-3 15:50
你这有了啊

这是我预设了几个班次，只是为了演示效果，实际不能用。

真冬

自定义命令运行效果

  

变量名	类 型	静态	数组	备 注
班名	文本型		0
班时	文本型		0
班排	文本型		0
班排第一个时间	日期时间型
cha询时间	日期时间型

班名 ＝ 分割文本 (“甲,丙”, , )
班时 ＝ 分割文本 (“白08-20,夜20-08,上08-14,下14-20”, , )
班排 ＝ 分割文本 (“0112,2100,2100,2100,2100,2100,2100”, , )  ' 0空1甲2丙3丁，按班名序号填写一天的排班安排，写七天
班排第一个时间 ＝ 到时间 (“2022-11-07”)  ' 根据上面班排输入星期一的日期
cha询时间 ＝ 到时间 (“2022-11-22”)
信息框 (轮班规则cha询 (班名, 班时, 班排, 班排第一个时间, cha询时间), 0, , )  ' 轮班规则cha询（）自定义命令使用例子

子程序名	返回值类型	公开	备 注
轮班规则cha询	文本型
参数名	类 型	参考	可空	数组	备 注
班名	文本型				几个班
班时	文本型				一天班时段
班排	文本型				一个星期安排
班排第一个时间	日期时间型				一个星期安排的星期一的日期
cha询时间	日期时间型

变量名	类 型	静态	数组	备 注
i1	整数型
班名序号	整数型
结果	文本型
临时结果	文本型
星期几	整数型
方案序号	整数型

星期几 ＝ 取星期几 (cha询时间)
星期几 ＝ 选择 (星期几 ＝ 1, 7, 星期几 － 1)
方案序号 ＝ 取时间间隔 (增减时间 (cha询时间, #日, -1), 班排第一个时间, #周 ) ％ 取数组成员数 (班名)
' 调试输出 (方案序号, 星期几)
结果 ＝ “星期” ＋ 取文本中间 (“一二三四五六日”, 星期几 × 2 － 1, 2) ＋ “：”
计次循环首 (取文本长度 (班排 [星期几]), i1)
班名序号 ＝ 到整数 (取文本中间 (班排 [星期几], i1, 1))
判断 (班名序号 ＝ 0)
临时结果 ＝ 班时 [i1] ＋ “：空”
班名序号 ＝ 选择 (班名序号 ＋ 方案序号 ＞ 取数组成员数 (班名), 1, 班名序号 ＋ 方案序号)
临时结果 ＝ 班时 [i1] ＋ “：” ＋ 班名 [班名序号]
结果 ＝ 结果 ＋ “《” ＋ 临时结果 ＋ “》”
计次循环尾 ()
返回 (结果)

.版本 2<br /> <br /> .局部变量 班名, 文本型, , "0"<br /> .局部变量 班时, 文本型, , "0"<br /> .局部变量 班排, 文本型, , "0"<br /> .局部变量 班排第一个时间, 日期时间型<br /> .局部变量 cha询时间, 日期时间型<br /> <br /> 班名 ＝ 分割文本 (“甲,丙”, , )<br /> 班时 ＝ 分割文本 (“白08-20,夜20-08,上08-14,下14-20”, , )<br /> 班排 ＝ 分割文本 (“0112,2100,2100,2100,2100,2100,2100”, , )  ' 0空1甲2丙3丁，按班名序号填写一天的排班安排，写七天<br /> 班排第一个时间 ＝ 到时间 (“2022-11-07”)  ' 根据上面班排输入星期一的日期<br /> cha询时间 ＝ 到时间 (“2022-11-22”)<br /> 信息框 (轮班规则cha询 (班名, 班时, 班排, 班排第一个时间, cha询时间), 0, , )  ' 轮班规则cha询（）自定义命令使用例子<br /> <br /> .子程序 轮班规则cha询, 文本型, 公开<br /> .参数 班名, 文本型, 数组, 几个班<br /> .参数 班时, 文本型, 数组, 一天班时段<br /> .参数 班排, 文本型, 数组, 一个星期安排<br /> .参数 班排第一个时间, 日期时间型, , 一个星期安排的星期一的日期<br /> .参数 cha询时间, 日期时间型<br /> .局部变量 i1, 整数型<br /> .局部变量 班名序号, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 临时结果, 文本型<br /> .局部变量 星期几, 整数型<br /> .局部变量 方案序号, 整数型<br /> <br /> 星期几 ＝ 取星期几 (cha询时间)<br /> 星期几 ＝ 选择 (星期几 ＝ 1, 7, 星期几 － 1)<br /> 方案序号 ＝ 取时间间隔 (增减时间 (cha询时间, #日, -1), 班排第一个时间, #周) ％ 取数组成员数 (班名)<br /> ' 调试输出 (方案序号, 星期几)<br /> 结果 ＝ “星期” ＋ 取文本中间 (“一二三四五六日”, 星期几 × 2 － 1, 2) ＋ “：”<br /> .计次循环首 (取文本长度 (班排 [星期几]), i1)<br />     班名序号 ＝ 到整数 (取文本中间 (班排 [星期几], i1, 1))<br />     .判断开始 (班名序号 ＝ 0)<br />         临时结果 ＝ 班时 [i1] ＋ “：空”<br />     .默认<br />         班名序号 ＝ 选择 (班名序号 ＋ 方案序号 ＞ 取数组成员数 (班名), 1, 班名序号 ＋ 方案序号)<br />         临时结果 ＝ 班时 [i1] ＋ “：” ＋ 班名 [班名序号]<br />     .判断结束<br />     结果 ＝ 结果 ＋ “《” ＋ 临时结果 ＋ “》”<br /> .计次循环尾 ()<br /> 返回 (结果)

补充内容 (2022-11-3 18:08):
其原理是根据第几周来与班名数计算出余数得到方案序号，班名序号 ＋ 方案序号 ，如1+0=甲 1+1=丙 1+2=丁

108937101

真冬 发表于 2022-11-3 17:53
自定义命令运行效果

我先研究研究看，谢谢

king1999

弄好了弄好了弄好了弄好了

补充内容 (2022-11-3 21:26):
效果是按你那图弄的