如何将1个时辰缩短至10分钟

zxg853399379

取现行时间将1个时辰缩短至10分钟
比如现行时间现在是凌晨1点整，按照正常12时辰来凌晨1点整是丑时，如果变成子时，缩短成10分钟1个时辰后则现行时间1点10分就变成了丑时。
相当于把24小时的12时辰缩短成了两个小时为12时辰

尛龍科技

  

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

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

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 当前时间, 日期时间型<br /> .局部变量 小时, 整数型<br /> .局部变量 分钟, 整数型<br /> .局部变量 总分钟, 整数型<br /> .局部变量 缩短后的分钟, 整数型<br /> .局部变量 时辰索引, 整数型<br /> .局部变量 十二时辰, 文本型, , "0"<br /> .局部变量 时辰名称, 文本型<br /> .局部变量 基准分钟, 整数型<br /> <br /> 十二时辰 ＝ { “子”, “丑”, “寅”, “卯”, “辰”, “巳”, “午”, “未”, “申”, “酉”, “戌”, “亥” }<br /> 当前时间 ＝ 取时间 (取现行时间 ())<br /> 小时 ＝ 取小时 (当前时间)<br /> 分钟 ＝ 取分钟 (当前时间)<br /> 总分钟 ＝ 小时 × 60 ＋ 分钟<br /> 基准分钟 ＝ 23 × 60<br /> 缩短后的分钟 ＝ (总分钟 － 基准分钟 ＋ 1440) ％ 120<br /> 时辰索引 ＝ 缩短后的分钟 ÷ 10<br /> 时辰名称 ＝ 十二时辰 [时辰索引]<br /> 调试输出 (“当前时辰：” ＋ 时辰名称)

chenboss

  

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

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

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 时, 整数型<br /> .局部变量 分, 整数型<br /> .局部变量 秒, 整数型<br /> .局部变量 转换, 整数型<br /> <br /> 时 ＝ 取小时 (取现行时间 ())<br /> 分 ＝ 取分钟 (取现行时间 ())<br /> 秒 ＝ 取秒 (取现行时间 ())<br /> 转换 ＝ (时 × 3600 ＋ 分 × 60 ＋ 秒) ÷ 12<br /> 时 ＝ 转换 ÷ 3600<br /> 分 ＝ (转换 ％ 3600) ÷ 60<br /> 秒 ＝ 转换 ％ 3600 ％ 60<br /> 调试输出 (时, 分, 秒)

haoren1212

  

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

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

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

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 时辰, 文本型, , "12"<br /> .局部变量 时间, 日期时间型<br /> <br /> 时辰 ＝ { “子时”, “丑时”, “寅时”, “卯时”, “辰时”, “巳时”, “午时”, “未时”, “申时”, “酉时”, “戌时”, “亥时” }<br /> 时间 ＝ 到时间 (“2025年1月7日” ＋ 到文本 (到整数 (编辑框1.内容) ＋ 1) ＋ “时42分22秒”)<br /> <br /> 调试输出 (时辰 [取小时 (时间) ÷ 2 ＋ 1])

b0y

没看懂 意思是10分钟一个时辰?

aipca

  

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

时钟1.时钟周期 ＝ 1200

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

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

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

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 时钟1.时钟周期 ＝ 1200<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 时, 整数型<br /> .局部变量 分, 整数型<br /> .局部变量 秒, 整数型<br /> .局部变量 转换, 整数型<br /> .局部变量 转换1, 整数型<br /> <br /> 时 ＝ 取小时 (取现行时间 ())<br /> 分 ＝ 取分钟 (取现行时间 ())<br /> 秒 ＝ 取秒 (取现行时间 ())<br /> 转换 ＝ (时 × 3600 ＋ 分 × 60 ＋ 秒) × 12<br /> 转换1 ＝ (时 ％ 2 × 3600 ＋ 分 × 60 ＋ 秒) × 12<br /> 时 ＝ 转换1 ÷ 3600<br /> 分 ＝ (转换 ％ 3600) ÷ 60<br /> 秒 ＝ 转换 ％ 3600 ％ 60<br /> 调试输出 (时 ％ 2, 转换1, 转换, 时, 分, 秒)

好像这个时针跳转会有问题，无法做到整时跳

zxg853399379

哇 睡一觉起来居然这么多大神回复还带代码提供的 非常感谢 我先试试 最后选出最佳