请教如何判断时间范围

s90232003

如何判断时间范围？ 如果在范围内返回真，否则返加假论坛搜了一下其它网友发的，不太符合。要不出错，要不格式不对

tim0001

转为分钟判断

EExiaolin

  

变量名	类 型	静态	数组	备 注
time	日期时间型
A	日期时间型
B	日期时间型
C	日期时间型
X	文本型

time ＝ 取现行时间 ()
X ＝ 到文本 (取年份 (time)) ＋ “/” ＋ 到文本 (取月份 (time)) ＋ “/” ＋ 到文本 (取日 (time))
A ＝ 到时间 (X ＋ “ ” ＋ 编辑框1.内容)
B ＝ 到时间 (X ＋ “ ” ＋ 编辑框2.内容)
C ＝ 到时间 (X ＋ “ ” ＋ “18:30”)
如果 (C ＞ A 且 C ＜ B)
信息框 (“在时间段内”, 0, , )
信息框 (“不在时间段内”, 0, , )

.版本 2<br /> <br /> .局部变量 time, 日期时间型<br /> .局部变量 A, 日期时间型<br /> .局部变量 B, 日期时间型<br /> .局部变量 C, 日期时间型<br /> .局部变量 X, 文本型<br /> <br /> time ＝ 取现行时间 ()<br /> X ＝ 到文本 (取年份 (time)) ＋ “/” ＋ 到文本 (取月份 (time)) ＋ “/” ＋ 到文本 (取日 (time))<br /> A ＝ 到时间 (X ＋ “ ” ＋ 编辑框1.内容)<br /> B ＝ 到时间 (X ＋ “ ” ＋ 编辑框2.内容)<br /> C ＝ 到时间 (X ＋ “ ” ＋ “18:30”)<br /> .如果 (C ＞ A 且 C ＜ B)<br />     信息框 (“在时间段内”, 0, , )<br /> .否则<br />     信息框 (“不在时间段内”, 0, , )<br /> .如果结束

小李哥v5

将开始时间和结束时间添加上年月日，再转换成10位时间戳数字，再取当前时间戳，如果当前时间戳 > 开始时间 < 结束时间。则在范围内。思路就这么简单

Suky

核心命令：取时间间隔（）
a=要判断的时间与区间起始时间的时间间隔
b=要判断的时间与区间结束时间的时间间隔
在计算a和b时，取时间间隔（）命令的参数里，要判断的时间位置必须都为参数1或者都为参数2
然后根据  a*b的结果确定是否在区间内
a*b>0，说明两个时间间隔符号相同，说明要判断的时间在区间的两个点同一方向，那就不在区间内
a*b<0，则反之

Suky

Suky 发表于 2026-5-1 03:25
核心命令：取时间间隔（）
a=要判断的时间与区间起始时间的时间间隔
b=要判断的时间与区间结束时间的时间间 ...

简化解释这个方案：
有整数a和b，a<b，a、b构成了一个区间  [a,b]
给出一个整数c，判断c是否在这个区间内
当c<a时，c在区间左边，不在区间内，c-a<0，c-b<0，根据乘法负负得正，此时(c-a)*(c-b)>0
当c>b时，c在区间右边，不在区间内，c-a>0，c-b>0，此时(c-a)*(c-b)>0
只有当c>a且c<b时，c在区间内，c-a>0，c-b<0，此时(c-a)*(c-b)<0

mytiger

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

调试输出 (计算范围 ())

子程序名	返回值类型	公开	备 注
计算范围	逻辑型

变量名	类 型	静态	数组	备 注
Cent	日期时间型
CentL	整数型
Star	文本型		0
End	文本型		0

Cent ＝ 取现行时间 ()
CentL ＝ 取小时 (Cent) × 60 ＋ 取分钟 (Cent)
Star ＝ 分割文本 (子文本替换 (编辑框1.内容, “：”, “:”, , , 真), “:”, )
End ＝ 分割文本 (子文本替换 (编辑框2.内容, “：”, “:”, , , 真), “:”, )
如果真 (取数组成员数 (Star) ＝ 2 且 取数组成员数 (Star) ＝ 2)
如果真 (到整数 (Star [1]) × 60 ＋ 到整数 (Star [2]) ＜ CentL 且 到整数 (End [1]) × 60 ＋ 到整数 (End [2]) ＞ CentL)
返回 (真)

返回 (假)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 调试输出 (计算范围 ())<br /> <br /> .子程序 计算范围, 逻辑型<br /> .局部变量 Cent, 日期时间型<br /> .局部变量 CentL, 整数型<br /> .局部变量 Star, 文本型, , "0"<br /> .局部变量 End, 文本型, , "0"<br /> <br /> Cent ＝ 取现行时间 ()<br /> CentL ＝ 取小时 (Cent) × 60 ＋ 取分钟 (Cent)<br /> Star ＝ 分割文本 (子文本替换 (编辑框1.内容, “：”, “:”, , , 真), “:”, )<br /> End ＝ 分割文本 (子文本替换 (编辑框2.内容, “：”, “:”, , , 真), “:”, )<br /> .如果真 (取数组成员数 (Star) ＝ 2 且 取数组成员数 (Star) ＝ 2)<br />     .如果真 (到整数 (Star [1]) × 60 ＋ 到整数 (Star [2]) ＜ CentL 且 到整数 (End [1]) × 60 ＋ 到整数 (End [2]) ＞ CentL)<br />         返回 (真)<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (假)