时间判断问题求助

lgbc

有四个时间段，第一段时间是8:00-8:40，第二段时间是8:50-9:30，第三段时间是10:00-10:40，第四段时间是10:50-11:30。如何判断当前时间是在哪个时间段中？

afu45

  

变量名	类 型	静态	数组	备 注
a	日期时间型

a ＝ 取现行时间 ()
判断 (a ≥ 到时间 (“2023-9-26 ” ＋ “8:00” ＋ “:00”) 且 a ≤ 到时间 (“2023-9-26 ” ＋ “8:40” ＋ “:00”))

判断 (a ≥ 到时间 (“2023-9-26 ” ＋ “8:50” ＋ “:00”) 且 a ≤ 到时间 (“2023-9-26 ” ＋ “9:30” ＋ “:00”))
判断 (a ≥ 到时间 (“2023-9-26 ” ＋ “10:00” ＋ “:00”) 且 a ≤ 到时间 (“2023-9-26 ” ＋ “10:40” ＋ “:00”))
判断 (a ≥ 到时间 (“2023-9-26 ” ＋ “10:50” ＋ “:00”) 且 a ≤ 到时间 (“2023-9-26 ” ＋ “11:30” ＋ “:00”))

.版本 2<br /> <br /> .局部变量 a, 日期时间型<br /> <br /> a ＝ 取现行时间 ()<br /> .判断开始 (a ≥ 到时间 (“2023-9-26 ” ＋ “8:00” ＋ “:00”) 且 a ≤ 到时间 (“2023-9-26 ” ＋ “8:40” ＋ “:00”))<br /> <br /> .判断 (a ≥ 到时间 (“2023-9-26 ” ＋ “8:50” ＋ “:00”) 且 a ≤ 到时间 (“2023-9-26 ” ＋ “9:30” ＋ “:00”))<br /> <br /> .判断 (a ≥ 到时间 (“2023-9-26 ” ＋ “10:00” ＋ “:00”) 且 a ≤ 到时间 (“2023-9-26 ” ＋ “10:40” ＋ “:00”))<br /> <br /> .判断 (a ≥ 到时间 (“2023-9-26 ” ＋ “10:50” ＋ “:00”) 且 a ≤ 到时间 (“2023-9-26 ” ＋ “11:30” ＋ “:00”))<br /> <br /> .默认

afu45

  

变量名	类 型	静态	数组	备 注
a	日期时间型
b	文本型

a ＝ 取现行时间 ()
b ＝ 时间_格式化 (a, “yyyy-MM-dd ”, , 真, )
判断 (a ≥ 到时间 (b ＋ “8:00” ＋ “:00”) 且 a ≤ 到时间 (b ＋ “8:40” ＋ “:00”))
调试输出 (1)
判断 (a ≥ 到时间 (b ＋ “8:50” ＋ “:00”) 且 a ≤ 到时间 (b ＋ “9:30” ＋ “:00”))
调试输出 (2)
判断 (a ≥ 到时间 (b ＋ “10:00” ＋ “:00”) 且 a ≤ 到时间 (b ＋ “10:40” ＋ “:00”))
调试输出 (3)
判断 (a ≥ 到时间 (b ＋ “10:50” ＋ “:00”) 且 a ≤ 到时间 (b ＋ “11:30” ＋ “:00”))
调试输出 (4)
调试输出 (“都不是”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 a, 日期时间型<br /> .局部变量 b, 文本型<br /> <br /> a ＝ 取现行时间 ()<br /> b ＝ 时间_格式化 (a, “yyyy-MM-dd ”, , 真, )<br /> .判断开始 (a ≥ 到时间 (b ＋ “8:00” ＋ “:00”) 且 a ≤ 到时间 (b ＋ “8:40” ＋ “:00”))<br />     调试输出 (1)<br /> .判断 (a ≥ 到时间 (b ＋ “8:50” ＋ “:00”) 且 a ≤ 到时间 (b ＋ “9:30” ＋ “:00”))<br />     调试输出 (2)<br /> .判断 (a ≥ 到时间 (b ＋ “10:00” ＋ “:00”) 且 a ≤ 到时间 (b ＋ “10:40” ＋ “:00”))<br />     调试输出 (3)<br /> .判断 (a ≥ 到时间 (b ＋ “10:50” ＋ “:00”) 且 a ≤ 到时间 (b ＋ “11:30” ＋ “:00”))<br />     调试输出 (4)<br /> .默认<br />     调试输出 (“都不是”)

zhongzutao

  

子程序名	返回值类型	公开	备 注
判断时间段

变量名	类 型	静态	数组	备 注
小时	整数型
分钟	整数型

小时 ＝ 取小时 (取现行时间 ())
分钟 ＝ 取分钟 ()
' 第一段时间是8:00-8:40，第二段时间是8:50-9:30，第三段时间是10:00-10:40，第四段时间是10:50-11:30
判断 (小时 ＝ 8 且 分钟 ≥ 0 且 分钟 ≤ 40)
调试输出 (“8:00-8:40”)
判断 (小时 ＝ 8 且 分钟 ≥ 50 且 分钟 ≤ 59)
调试输出 (“8:50-9:30”)
判断 (小时 ＝ 9 且 分钟 ≥ 0 且 分钟 ≤ 30)
调试输出 (“8:50-9:30”)
判断 (小时 ＝ 10 且 分钟 ≥ 0 且 分钟 ≤ 40)
调试输出 (“10:00-10:40”)
判断 (小时 ＝ 10 且 分钟 ≥ 50 且 分钟 ≤ 59)
调试输出 (“10:50-11:30”)
判断 (小时 ＝ 11 且 分钟 ≥ 0 且 分钟 ≤ 39)
调试输出 (“10:50-11:30”)
调试输出 (“其他时间段”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 判断时间段<br /> .局部变量 小时, 整数型<br /> .局部变量 分钟, 整数型<br /> <br /> 小时 ＝ 取小时 (取现行时间 ())<br /> 分钟 ＝ 取分钟 ()<br /> ' 第一段时间是8:00-8:40，第二段时间是8:50-9:30，第三段时间是10:00-10:40，第四段时间是10:50-11:30<br /> .判断开始 (小时 ＝ 8 且 分钟 ≥ 0 且 分钟 ≤ 40)<br />     调试输出 (“8:00-8:40”)<br /> .判断 (小时 ＝ 8 且 分钟 ≥ 50 且 分钟 ≤ 59)<br />     调试输出 (“8:50-9:30”)<br /> .判断 (小时 ＝ 9 且 分钟 ≥ 0 且 分钟 ≤ 30)<br />     调试输出 (“8:50-9:30”)<br /> .判断 (小时 ＝ 10 且 分钟 ≥ 0 且 分钟 ≤ 40)<br />     调试输出 (“10:00-10:40”)<br /> .判断 (小时 ＝ 10 且 分钟 ≥ 50 且 分钟 ≤ 59)<br />     调试输出 (“10:50-11:30”)<br /> .判断 (小时 ＝ 11 且 分钟 ≥ 0 且 分钟 ≤ 39)<br />     调试输出 (“10:50-11:30”)<br /> .默认<br />     调试输出 (“其他时间段”)

yk125

.版本 2

.子程序 子程序1, 整数型
.参数 当前时间, 日期时间型

.判断开始 (取时间部分 (当前时间, #小时) ＋ 取时间部分 (当前时间, #分钟) ÷ 100 ≥ 到数值 (子文本替换 (“8:00”, “:”, “.”, , , 真)) 且 取时间部分 (当前时间, #小时) ＋ 取时间部分 (当前时间, #分钟) ÷ 100 ≤ 到数值 (子文本替换 (“8:40”, “:”, “.”, , , 真)))
    返回 (1)
.判断 (取时间部分 (当前时间, #小时) ＋ 取时间部分 (当前时间, #分钟) ÷ 100 ≥ 到数值 (子文本替换 (“8:50”, “:”, “.”, , , 真)) 且 取时间部分 (当前时间, #小时) ＋ 取时间部分 (当前时间, #分钟) ÷ 100 ≤ 到数值 (子文本替换 (“9:30”, “:”, “.”, , , 真)))
    返回 (2)
.判断 (取时间部分 (当前时间, #小时) ＋ 取时间部分 (当前时间, #分钟) ÷ 100 ≥ 到数值 (子文本替换 (“10:00”, “:”, “.”, , , 真)) 且 取时间部分 (当前时间, #小时) ＋ 取时间部分 (当前时间, #分钟) ÷ 100 ≤ 到数值 (子文本替换 (“10:40”, “:”, “.”, , , 真)))
    返回 (3)
.判断 (取时间部分 (当前时间, #小时) ＋ 取时间部分 (当前时间, #分钟) ÷ 100 ≥ 到数值 (子文本替换 (“10:50”, “:”, “.”, , , 真)) 且 取时间部分 (当前时间, #小时) ＋ 取时间部分 (当前时间, #分钟) ÷ 100 ≤ 到数值 (子文本替换 (“11:30”, “:”, “.”, , , 真)))
    返回 (4)
.默认
    返回 (0)

ksksksks

简单的 话  超级列表框  显示 在查找

b0y

  

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

变量名	类 型	静态	数组	备 注
t	日期时间型
st	文本型

t ＝ 取现行时间 ()
st ＝ 到文本 (取小时 (t)) ＋ “:” ＋ 到文本 (取分钟 (t)) ＋ “:” ＋ 到文本 (取秒 (t))
调试输出 (st)
调试输出 (TimeBetween (st, “8:00”, “8:40”))
调试输出 (TimeBetween (st, “8:50”, “9:40”))
调试输出 (TimeBetween (st, “10:00”, “10:40”))
调试输出 (TimeBetween (st, “10:50”, “11:30”))
' * “9:38:31”
' * 1
' * 0
' * -1
' * -1
' 被调试易程序运行完毕

子程序名	返回值类型	公开	备 注
TimeBetween	整数型		日期或时间是否在日期或时间段之间.小于时间段返回-1 在时间段内返回0 大于时间段返回1 失败返回-2 . 各参数格式须保持一致
参数名	类 型	参考	可空	数组	备 注
_time	文本型				判断时间.日期或时间: "x年x月x日x时x分x秒" 、"x/x/x x:x:x" 、"年/月/日" 、"x:x:x"  .各参数格式须一致
_t_start	文本型				起始时段.日期或时间: "x年x月x日x时x分x秒" 、"x/x/x x:x:x" 、"年/月/日" 、"x:x:x"  .各参数格式须一致
_t_end	文本型				结束时段.日期或时间: "x年x月x日x时x分x秒" 、"x/x/x x:x:x" 、"年/月/日" 、"x:x:x"  .各参数格式须一致

变量名	类 型	静态	数组	备 注
t	日期时间型
t2	日期时间型
t3	日期时间型

t ＝ 到时间 (_time)
如果 (t ＝ [100年1月1日])
t ＝ 到时间 (“2000/01/01/” ＋ _time)
t2 ＝ 到时间 (“2000/01/01/” ＋ _t_start)
t3 ＝ 到时间 (“2000/01/01/” ＋ _t_end)
如果真 (t3 ＜ t2)
t3 ＝ 增减时间 (t3, #日, 1)

t2 ＝ 到时间 (_t_start)
t3 ＝ 到时间 (_t_end)

如果真 (t ＝ [100年1月1日] 或 t2 ＝ [100年1月1日] 或 t3 ＝ [100年1月1日])
调试输出 (“time参数格式非法”)
返回 (-2)
判断 (t ＜ t2)
返回 (-1)
判断 (t ＞ t3)
返回 (1)
返回 (0)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 t, 日期时间型<br /> .局部变量 st, 文本型<br /> <br /> t ＝ 取现行时间 ()<br /> st ＝ 到文本 (取小时 (t)) ＋ “:” ＋ 到文本 (取分钟 (t)) ＋ “:” ＋ 到文本 (取秒 (t))<br /> <br /> 调试输出 (st)<br /> 调试输出 (TimeBetween (st, “8:00”, “8:40”))<br /> 调试输出 (TimeBetween (st, “8:50”, “9:40”))<br /> 调试输出 (TimeBetween (st, “10:00”, “10:40”))<br /> 调试输出 (TimeBetween (st, “10:50”, “11:30”))<br /> <br /> <br /> ' * “9:38:31”<br /> ' * 1<br /> ' * 0<br /> ' * -1<br /> ' * -1<br /> ' 被调试易程序运行完毕<br /> <br /> <br /> .子程序 TimeBetween, 整数型, 公开, 日期或时间是否在日期或时间段之间.小于时间段返回-1 在时间段内返回0 大于时间段返回1 失败返回-2 . 各参数格式须保持一致<br /> .参数 _time, 文本型, , 判断时间.日期或时间: "x年x月x日x时x分x秒" 、"x/x/x x:x:x" 、"年/月/日" 、"x:x:x"  .各参数格式须一致<br /> .参数 _t_start, 文本型, , 起始时段.日期或时间: "x年x月x日x时x分x秒" 、"x/x/x x:x:x" 、"年/月/日" 、"x:x:x"  .各参数格式须一致<br /> .参数 _t_end, 文本型, , 结束时段.日期或时间: "x年x月x日x时x分x秒" 、"x/x/x x:x:x" 、"年/月/日" 、"x:x:x"  .各参数格式须一致<br /> .局部变量 t, 日期时间型<br /> .局部变量 t2, 日期时间型<br /> .局部变量 t3, 日期时间型<br /> <br /> t ＝ 到时间 (_time)<br /> .如果 (t ＝ [100年1月1日])<br />     t ＝ 到时间 (“2000/01/01/” ＋ _time)<br />     t2 ＝ 到时间 (“2000/01/01/” ＋ _t_start)<br />     t3 ＝ 到时间 (“2000/01/01/” ＋ _t_end)<br />     .如果真 (t3 ＜ t2)<br />         t3 ＝ 增减时间 (t3, #日, 1)<br />     .如果真结束<br /> <br /> .否则<br />     t2 ＝ 到时间 (_t_start)<br />     t3 ＝ 到时间 (_t_end)<br /> .如果结束<br /> <br /> .如果真 (t ＝ [100年1月1日] 或 t2 ＝ [100年1月1日] 或 t3 ＝ [100年1月1日])<br />     调试输出 (“time参数格式非法”)<br />     返回 (-2)<br /> .如果真结束<br /> .判断开始 (t ＜ t2)<br />     返回 (-1)<br /> .判断 (t ＞ t3)<br />     返回 (1)<br /> .默认<br />     返回 (0)<br /> .判断结束

鹏书

https://www.bilibili.com/video/BV1ch4y1V7nB/

sgsg

.版本 2  .子程序 比较时间, 逻辑型, , 以当前时间为准计算时间是否在范围内,支持跨24点,23:00-05:00 .参数 开始时间, 文本型, , 时间为08:30 .参数 终止时间, 文本型, , 格式为22:20 .参数 判断时间, 文本型, 可空, 为空指定当前时间 .局部变量 当前时间, 日期时间型 .局部变量 当前时, 整数型 .局部变量 当前分, 整数型 .局部变量 开始时, 整数型 .局部变量 开始分, 整数型 .局部变量 终止时, 整数型 .局部变量 终止分, 整数型 .局部变量 返回结果, 逻辑型 .局部变量 临时间, 文本型, , "0"  开始时间 ＝ 子文本替换 (开始时间, “：”, “:”, , , 假)  ' 替换全角符号 终止时间 ＝ 子文本替换 (终止时间, “：”, “:”, , , 假) 判断时间 ＝ 子文本替换 (判断时间, “：”, “:”, , , 假)  .如果 (判断时间 ＝ “”)     当前时间 ＝ 取现行时间 ()     当前时 ＝ 取小时 (当前时间)     当前分 ＝ 取分钟 (当前时间) .否则     临时间 ＝ 分割文本 (判断时间, “:”, )     .如果真 (取数组成员数 (临时间) ＝ 2)         当前时 ＝ 到数值 (临时间 [1])         当前分 ＝ 到数值 (临时间 [2])     .如果真结束  .如果结束  临时间 ＝ 分割文本 (开始时间, “:”, ) .如果真 (取数组成员数 (临时间) ＝ 2)     开始时 ＝ 到数值 (临时间 [1])     开始分 ＝ 到数值 (临时间 [2]) .如果真结束  临时间 ＝ 分割文本 (终止时间, “:”, ) .如果真 (取数组成员数 (临时间) ＝ 2)     终止时 ＝ 到数值 (临时间 [1])     终止分 ＝ 到数值 (临时间 [2]) .如果真结束   .如果真 (开始时 ＞ 终止时)     终止时 ＝ 终止时 ＋ 24     当前时 ＝ 当前时 ＋ 24     .如果真 (当前时 ＞ 开始时 且 当前时 ＞ 终止时)         当前时 ＝ 当前时 － 24     .如果真结束  .如果真结束   .如果真 (当前时 ≥ 开始时 且 当前时 ≤ 终止时)     .如果真 (当前时 ≠ 开始时 且 当前时 ≠ 终止时)         返回结果 ＝ 真     .如果真结束     .如果真 (当前时 ＝ 开始时)         .如果真 (当前分 ≥ 开始分)             返回结果 ＝ 真         .如果真结束      .如果真结束     .如果真 (当前时 ＝ 终止时)         .如果真 (当前分 ≤ 终止分)             返回结果 ＝ 真         .如果真结束      .如果真结束  .如果真结束 返回 (返回结果)

补充内容 (2023-9-26 15:27):
.版本 2

.子程序 比较时间, 逻辑型, , 以当前时间为准计算时间是否在范围内,支持跨24点,23:00-05:00
.参数 开始时间, 文本型, , 时间为08:30
.参数 终止时间, 文本型, , 格式为22:20
.参数 判断时间, 文本型, 可空, 为空指定当前时间
.局部变量 当前时间, 日期时间型
.局部变量 当前时, 整数型
.局部变量 当前分, 整数型
.局部变量 开始时, 整数型
.局部变量 开始分, 整数型
.局部变量 终止时, 整数型
.局部变量 终止分, 整数型
.局部变量 返回结果, 逻辑型
.局部变量 临时间, 文本型, , "0"

开始时间 ＝ 子文本替换 (开始时间, “：”, “:”, , , 假)  ' 替换全角符号
终止时间 ＝ 子文本替换 (终止时间, “：”, “:”, , , 假)
判断时间 ＝ 子文本替换 (判断时间, “：”, “:”, , , 假)

.如果 (判断时间 ＝ “”)
    当前时间 ＝ 取现行时间 ()
    当前时 ＝ 取小时 (当前时间)
    当前分 ＝ 取分钟 (当前时间)
.否则
    临时间 ＝ 分割文本 (判断时间, “:”, )
    .如果真 (取数组成员数 (临时间) ＝ 2)
        当前时 ＝ 到数值 (临时间 [1])
        当前分 ＝ 到数值 (临时间 [2])
    .如果真结束

.如果结束

临时间 ＝ 分割文本 (开始时间, “:”, )
.如果真 (取数组成员数 (临时间) ＝ 2)
    开始时 ＝ 到数值 (临时间 [1])
    开始分 ＝ 到数值 (临时间 [2])
.如果真结束

临时间 ＝ 分割文本 (终止时间, “:”, )
.如果真 (取数组成员数 (临时间) ＝ 2)
    终止时 ＝ 到数值 (临时间 [1])
    终止分 ＝ 到数值 (临时间 [2])
.如果真结束


.如果真 (开始时 ＞ 终止时)
    终止时 ＝ 终止时 ＋ 24
    当前时 ＝ 当前时 ＋ 24
    .如果真 (当前时 ＞ 开始时 且 当前时 ＞ 终止时)
        当前时 ＝ 当前时 － 24
    .如果真结束

.如果真结束


.如果真 (当前时 ≥ 开始时 且 当前时 ≤ 终止时)
    .如果真 (当前时 ≠ 开始时 且 当前时 ≠ 终止时)
        返回结果 ＝ 真
    .如果真结束
    .如果真 (当前时 ＝ 开始时)
        .如果真 (当前分 ≥ 开始分)
            返回结果 ＝ 真
        .如果真结束

    .如果真结束
    .如果真 (当前时 ＝ 终止时)
        .如果真 (当前分 ≤ 终止分)
            返回结果 ＝ 真
        .如果真结束

    .如果真结束

.如果真结束
返回 (返回结果)