请教取时间范围的问题

jtg827

.版本 2

.子程序 子程序1, 逻辑型
.局部变量 今天, 日期时间型
.局部变量 时间, 整数型

今天 ＝ 取现行时间 ()
时间 ＝ 取小时 (今天)
.判断开始 (取星期几 (今天) ＝ 1)
    .判断开始 (时间 ≥ 0 且 时间 ≤ 1)
        返回 (真)
    .判断 (时间 ≥ 9 且 时间 ≤ 23)
        返回 (真)
    .默认

    .判断结束

.判断 (取星期几 (今天) ＝ 7)
    .判断开始 (时间 ≥ 8)
        返回 (真)
    .默认

    .判断结束

.默认
    .判断开始 (时间 ≥ 0 且 时间 ≤ 1)
        返回 (真)
    .判断 (时间 ≥ 8)
        返回 (真)
    .默认

    .判断结束

.判断结束
返回 (假)

wdmcxodcw

jtg827 发表于 2024-10-24 18:42
.版本 2

.子程序 子程序1, 逻辑型

请问能到分钟吗。比如8-1.30   9-23.30

jtg827

wdmcxodcw 发表于 2024-10-24 19:12
请问能到分钟吗。比如8-1.30   9-23.30

.版本 2

.子程序 子程序1, 逻辑型
.局部变量 今天, 日期时间型
.局部变量 时间, 文本型

今天 ＝ 到时间 (“2024-10-24 09:35:00”)

' 今天 ＝ 取现行时间 ()
时间 ＝ 到文本 (取小时 (今天))
.判断开始 (取星期几 (今天) ＝ 1)
    .判断开始 (时间 ≥ “00:00” 且 时间 ≤ “01:00”)
        返回 (真)
    .判断 (时间 ≥ “09:00” 且 时间 ≤ “23:00”)
        返回 (真)
    .默认

    .判断结束

.判断 (取星期几 (今天) ＝ 7)
    .判断开始 (时间 ≥ “08:00”)
        返回 (真)
    .默认

    .判断结束

.默认
    .判断开始 (时间 ≥ “00:00” 且 时间 ≤ “01:00”)
        返回 (真)
    .判断 (时间 ≥ “08:00”)
        返回 (真)
    .默认

    .判断结束

.判断结束
返回 (假)


补充内容 (2024-10-24 19:51):
时间 ＝ 到文本 (取小时 (今天)) ＋ “:” ＋ 到文本 (取分钟 (今天))

补充内容 (2024-10-24 19:53):
.版本 2

.子程序 子程序1, 逻辑型
.局部变量 今天, 日期时间型
.局部变量 时间, 文本型

今天 ＝ 到时间 (“2024-10-24 09:35:00”)

' 今天 ＝ 取现行时间 ()
时间 ＝ 到文本 (取小时 (今天)) ＋ “:” ＋ 到文本 (取分钟 (今天))
.判断开始 (取星期几 (今天) ＝ 1)
    .判断开始 (时间 ≥ “0:00” 且 时间 ≤ “1:00”)
        返回 (真)
    .判断 (时间 ≥ “9:00” 且 时间 ≤ “23:00”)
        返回 (真)
    .默认

    .判断结束

.判断 (取星期几 (今天) ＝ 7)
    .判断开始 (时间 ≥ “8:00”)
        返回 (真)
    .默认

    .判断结束

.默认
    .判断开始 (时间 ≥ “0:00” 且 时间 ≤ “1:00”)
        返回 (真)
    .判断 (时间 ≥ “8:00”)
        返回 (真)
    .默认

    .判断结束

.判断结束
返回 (假)