时间段判断，定时执行，精确到秒

治愈勇者

支持一下

撒旦旦

看了评论区的回复，茅塞顿开，直接用 时间_到文本() 的命令取比较时间大小就好了！！

  

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
年	文本型
月	文本型
日	文本型
时	文本型
分	文本型
秒	文本型
开始时	文本型
开始分	文本型
结束时	文本型
结束分	文本型
开始秒	文本型
结束秒	文本型
返回	逻辑型
开始时间	整数型
开始定时	文本型
结束定时	文本型
间隔秒	整数型
结束时间	整数型
现在时间	整数型
现在时间戳	文本型
开始时间戳	文本型
结束时间戳	文本型

年 ＝ 到文本 (取年份 (取现行时间 ()))
月 ＝ 到文本 (取月份 (取现行时间 ()))
日 ＝ 到文本 (取日 (取现行时间 ()))
时 ＝ 到文本 (取小时 (取现行时间 ()))
分 ＝ 到文本 (取分钟 (取现行时间 ()))
秒 ＝ 到文本 (取秒 (取现行时间 ()))
开始时 ＝ 编辑框_开始时.内容
开始分 ＝ 编辑框_开始分.内容
开始秒 ＝ 编辑框_开始秒.内容
结束时 ＝ 编辑框_结束时.内容
结束分 ＝ 编辑框_结束分.内容
结束秒 ＝ 编辑框_结束秒.内容
开始定时 ＝ 年 ＋ “-” ＋ 月 ＋ “-” ＋ 日 ＋ “-” ＋ 开始时 ＋ “-” ＋ 开始分 ＋ “-” ＋ 开始秒
结束定时 ＝ 年 ＋ “-” ＋ 月 ＋ “-” ＋ 日 ＋ “-” ＋ 结束时 ＋ “-” ＋ 结束分 ＋ “-” ＋ 结束秒
现在时间 ＝ 到整数 (时间_到文本 (取现行时间 (), 3, 3, ))
开始时间 ＝ 到整数 (时间_到文本 (到时间 (开始定时), 3, 3, ))
结束时间 ＝ 到整数 (时间_到文本 (到时间 (结束定时), 3, 3, ))
如果 (开始时间 ＜ 结束时间)
如果 (现在时间 ≥ 开始时间)
如果 (现在时间 ＜ 结束时间)
返回 ＝ 真
返回 ＝ 假

返回 ＝ 假

如果 (开始时间 ＞ 结束时间)
如果 (现在时间 ≥ 结束时间)
如果 (现在时间 ＜ 开始时间)
返回 ＝ 假
返回 ＝ 真

返回 ＝ 真

返回 ＝ 假


调试输出 (返回)
现在时间戳 ＝ 时间_到时间戳 (取现行时间 (), 真, 假)
开始时间戳 ＝ 时间_到时间戳 (到时间 (开始定时), 真, 假)
结束时间戳 ＝ 时间_到时间戳 (到时间 (结束定时), 真, 假)
如果真 (返回 ＝ 真)
如果 (现在时间戳 ＜ 结束时间戳)
间隔秒 ＝ 到整数 (结束时间戳) － 到整数 (现在时间戳)

间隔秒 ＝ 到整数 (结束时间戳) ＋ 86400 － 到整数 (现在时间戳)
调试输出 (“距定时结束还有：” ＋ 时间_秒到时分秒格式 (间隔秒, , ))
透明标签9.标题 ＝ “距定时结束还有：” ＋ 时间_秒到时分秒格式 (间隔秒, , )
如果真 (返回 ＝ 假)
如果 (现在时间戳 ＜ 开始时间戳)
间隔秒 ＝ 到整数 (开始时间戳) － 到整数 (现在时间戳)

间隔秒 ＝ 到整数 (开始时间戳) ＋ 86400 － 到整数 (现在时间戳)
调试输出 (“距定时开始还有：” ＋ 时间_秒到时分秒格式 (间隔秒, , ))
透明标签9.标题 ＝ “距定时开始还有：” ＋ 时间_秒到时分秒格式 (间隔秒, , )

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

.版本 2<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 年, 文本型<br /> .局部变量 月, 文本型<br /> .局部变量 日, 文本型<br /> .局部变量 时, 文本型<br /> .局部变量 分, 文本型<br /> .局部变量 秒, 文本型<br /> .局部变量 开始时, 文本型<br /> .局部变量 开始分, 文本型<br /> .局部变量 结束时, 文本型<br /> .局部变量 结束分, 文本型<br /> .局部变量 开始秒, 文本型<br /> .局部变量 结束秒, 文本型<br /> .局部变量 返回, 逻辑型<br /> .局部变量 开始时间, 整数型<br /> .局部变量 开始定时, 文本型<br /> .局部变量 结束定时, 文本型<br /> .局部变量 间隔秒, 整数型<br /> .局部变量 结束时间, 整数型<br /> .局部变量 现在时间, 整数型<br /> .局部变量 现在时间戳, 文本型<br /> .局部变量 开始时间戳, 文本型<br /> .局部变量 结束时间戳, 文本型<br /> <br /> 年 ＝ 到文本 (取年份 (取现行时间 ()))<br /> 月 ＝ 到文本 (取月份 (取现行时间 ()))<br /> 日 ＝ 到文本 (取日 (取现行时间 ()))<br /> 时 ＝ 到文本 (取小时 (取现行时间 ()))<br /> 分 ＝ 到文本 (取分钟 (取现行时间 ()))<br /> 秒 ＝ 到文本 (取秒 (取现行时间 ()))<br /> 开始时 ＝ 编辑框_开始时.内容<br /> 开始分 ＝ 编辑框_开始分.内容<br /> 开始秒 ＝ 编辑框_开始秒.内容<br /> 结束时 ＝ 编辑框_结束时.内容<br /> 结束分 ＝ 编辑框_结束分.内容<br /> 结束秒 ＝ 编辑框_结束秒.内容<br /> <br /> 开始定时 ＝ 年 ＋ “-” ＋ 月 ＋ “-” ＋ 日 ＋ “-” ＋ 开始时 ＋ “-” ＋ 开始分 ＋ “-” ＋ 开始秒<br /> 结束定时 ＝ 年 ＋ “-” ＋ 月 ＋ “-” ＋ 日 ＋ “-” ＋ 结束时 ＋ “-” ＋ 结束分 ＋ “-” ＋ 结束秒<br /> <br /> 现在时间 ＝ 到整数 (时间_到文本 (取现行时间 (), 3, 3, ))<br /> 开始时间 ＝ 到整数 (时间_到文本 (到时间 (开始定时), 3, 3, ))<br /> 结束时间 ＝ 到整数 (时间_到文本 (到时间 (结束定时), 3, 3, ))<br /> .如果 (开始时间 ＜ 结束时间)<br />     .如果 (现在时间 ≥ 开始时间)<br />         .如果 (现在时间 ＜ 结束时间)<br />             返回 ＝ 真<br />         .否则<br />             返回 ＝ 假<br />         .如果结束<br /> <br />     .否则<br />         返回 ＝ 假<br />     .如果结束<br /> <br /> .否则<br />     .如果 (开始时间 ＞ 结束时间)<br />         .如果 (现在时间 ≥ 结束时间)<br />             .如果 (现在时间 ＜ 开始时间)<br />                 返回 ＝ 假<br />             .否则<br />                 返回 ＝ 真<br />             .如果结束<br /> <br />         .否则<br />             返回 ＝ 真<br />         .如果结束<br /> <br />     .否则<br />         返回 ＝ 假<br />     .如果结束<br /> <br /> .如果结束<br /> <br /> 调试输出 (返回)<br /> <br /> <br /> 现在时间戳 ＝ 时间_到时间戳 (取现行时间 (), 真, 假)<br /> 开始时间戳 ＝ 时间_到时间戳 (到时间 (开始定时), 真, 假)<br /> 结束时间戳 ＝ 时间_到时间戳 (到时间 (结束定时), 真, 假)<br /> .如果真 (返回 ＝ 真)<br />     .如果 (现在时间戳 ＜ 结束时间戳)<br />         间隔秒 ＝ 到整数 (结束时间戳) － 到整数 (现在时间戳)<br /> <br />     .否则<br />         间隔秒 ＝ 到整数 (结束时间戳) ＋ 86400 － 到整数 (现在时间戳)<br />     .如果结束<br />     调试输出 (“距定时结束还有：” ＋ 时间_秒到时分秒格式 (间隔秒, , ))<br />     透明标签9.标题 ＝ “距定时结束还有：” ＋ 时间_秒到时分秒格式 (间隔秒, , )<br /> .如果真结束<br /> .如果真 (返回 ＝ 假)<br />     .如果 (现在时间戳 ＜ 开始时间戳)<br />         间隔秒 ＝ 到整数 (开始时间戳) － 到整数 (现在时间戳)<br /> <br />     .否则<br />         间隔秒 ＝ 到整数 (开始时间戳) ＋ 86400 － 到整数 (现在时间戳)<br />     .如果结束<br />     调试输出 (“距定时开始还有：” ＋ 时间_秒到时分秒格式 (间隔秒, , ))<br />     透明标签9.标题 ＝ “距定时开始还有：” ＋ 时间_秒到时分秒格式 (间隔秒, , )

时间段.e (941.24 KB, 下载次数: 41)

2022-10-26 15:54 上传

点击文件名下载附件

撒旦旦

钟白 发表于 2022-10-26 15:03
.版本 2
.支持库 spec

学到了

钟白

.版本 2
.支持库 spec

当前时分 ＝ 时间_到文本 (取现行时间 (), 3, 4)
调试输出 (当前时分)  ' 1503
' 如果 (到整数 (当前时分) ≥ 1000 且 到整数 (当前时分) ≤ 1800)

撒旦旦

huxian 发表于 2022-10-26 00:54
这个结束定时是啥意思？既然都定时了为什么还要结束定时的

时间段，开始的时间和结束的时间

huxian

这个结束定时是啥意思？既然都定时了为什么还要结束定时的

shuaier

支持开源~！感谢分享

kingchain

全是如果啊,每一个真的

JunBW5858

感谢分享

sinewtec

学习一下!!!!!!!!!!!!!!!