如何将1个时辰缩短至10分钟 - 精易论坛

变量名	类型	静态	数组	备注
当前时间	日期时间型
小时	整数型
分钟	整数型
总分钟	整数型
缩短后的分钟	整数型
时辰索引	整数型
十二时辰	文本型		0
时辰名称	文本型
基准分钟	整数型

十二时辰＝ { “子”, “丑”, “寅”, “卯”, “辰”, “巳”, “午”, “未”, “申”, “酉”, “戌”, “亥” }
当前时间＝取时间 (取现行时间 ())
小时＝取小时 (当前时间)
分钟＝取分钟 (当前时间)
总分钟＝小时 × 60 ＋分钟
基准分钟＝ 23 × 60
缩短后的分钟＝ (总分钟－基准分钟＋ 1440) ％ 120
时辰索引＝缩短后的分钟 ÷ 10
时辰名称＝十二时辰 [时辰索引]
调试输出 (“当前时辰：” ＋时辰名称)

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

变量名	类型	静态	数组	备注
时	整数型
分	整数型
秒	整数型
转换	整数型

时＝取小时 (取现行时间 ())
分＝取分钟 (取现行时间 ())
秒＝取秒 (取现行时间 ())
转换＝ (时 × 3600 ＋分 × 60 ＋秒) ÷ 12
时＝转换 ÷ 3600
分＝ (转换％ 3600) ÷ 60
秒＝转换％ 3600 ％ 60
调试输出 (时, 分, 秒)

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

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

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

时辰＝ { “子时”, “丑时”, “寅时”, “卯时”, “辰时”, “巳时”, “午时”, “未时”, “申时”, “酉时”, “戌时”, “亥时” }
时间＝到时间 (“2025年1月7日” ＋到文本 (到整数 (编辑框1.内容) ＋ 1) ＋ “时42分22秒”)
调试输出 (时辰 [取小时 (时间) ÷ 2 ＋ 1])

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

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

时钟1.时钟周期＝ 1200

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

变量名	类型	静态	数组	备注
时	整数型
分	整数型
秒	整数型
转换	整数型
转换1	整数型

时＝取小时 (取现行时间 ())
分＝取分钟 (取现行时间 ())
秒＝取秒 (取现行时间 ())
转换＝ (时 × 3600 ＋分 × 60 ＋秒) × 12
转换1 ＝ (时％ 2 × 3600 ＋分 × 60 ＋秒) × 12
时＝转换1 ÷ 3600
分＝ (转换％ 3600) ÷ 60
秒＝转换％ 3600 ％ 60
调试输出 (时％ 2, 转换1, 转换, 时, 分, 秒)

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