帮忙修改代码

cants7

不要超过了60，到了60就要进位

.版本 2
.支持库 spec


程序_耗时2 (1730795942, 到整数 (时间_取现行时间戳 (真)))



.子程序 程序_耗时2, 文本型, 公开
.参数 启动时间, 双精度小数型
.参数 结束时间, 双精度小数型, 可空
.参数 返回数值, 文本型, 参考 可空
.局部变量 T, 双精度小数型
.局部变量 返回文本, 文本型

.如果真 (是否为空 (结束时间) ＝ 真)
    结束时间 ＝ 取启动时间 ()
.如果真结束

T ＝ (结束时间 － 启动时间) ÷ 100
.如果真 (T ＜ 1)
    返回文本 ＝ 数值到格式文本 (T, 3, 假) ＋ “毫秒”
.如果真结束

.如果真 (T ≤ 60)
    返回文本 ＝ 数值到格式文本 (T, 3, 假) ＋ “秒”
.如果真结束

.如果真 (T ＞ 60 且 T ≤ 3600)
    返回文本 ＝ 数值到格式文本 (T ÷ 60, 2, 假) ＋ “分钟”
.如果真结束

.如果真 (T ＞ 3600)
    返回文本 ＝ 数值到格式文本 (T ÷ 3600, 2, 假) ＋ “小时”
.如果真结束

调试输出 (“程序_耗时”, 返回文本, 启动时间, 结束时间)
返回数值 ＝ 到文本 (T)
返回 (返回文本)

whj888555

  

子程序名	返回值类型	公开	备 注
时间换算	文本型
参数名	类 型	参考	可空	数组	备 注
启动时间	双精度小数型
结束时间	双精度小数型

变量名	类 型	静态	数组	备 注
间隔时间	双精度小数型
局_时	整数型
局_分	整数型
局_秒	整数型
局_毫秒	双精度小数型
返回文本	文本型

间隔时间 ＝ (结束时间 － 启动时间) × 1000
局_时 ＝ (间隔时间 ％ 86400000) ÷ 3600000
局_分 ＝ (间隔时间 ％ 86400000 ％ 3600000) ÷ 60000
局_秒 ＝ (间隔时间 ％ 86400000 ％ 3600000 ％ 60000) ÷ 1000
局_毫秒 ＝ 四舍五入 (间隔时间 ％ 86400000 ％ 3600000 ％ 60000 ％ 1000, 4)
如果真 (局_时 ≠ 0)
返回文本 ＝ 返回文本 ＋ 到文本 (局_时) ＋ “时”
如果真 (局_分 ≠ 0)
返回文本 ＝ 返回文本 ＋ 到文本 (局_分) ＋ “分”
如果真 (局_秒 ≠ 0)
返回文本 ＝ 返回文本 ＋ 到文本 (局_秒) ＋ “秒”
如果真 (局_毫秒 ≠ 0)
返回文本 ＝ 返回文本 ＋ 到文本 (局_毫秒) ＋ “毫秒”
输出调试文本 (“:” ＋ 返回文本)
返回 (返回文本)

.版本 2<br /> <br /> .子程序 时间换算, 文本型<br /> .参数 启动时间, 双精度小数型<br /> .参数 结束时间, 双精度小数型, 可空<br /> .局部变量 间隔时间, 双精度小数型<br /> .局部变量 局_时, 整数型<br /> .局部变量 局_分, 整数型<br /> .局部变量 局_秒, 整数型<br /> .局部变量 局_毫秒, 双精度小数型<br /> .局部变量 返回文本, 文本型<br /> <br /> <br /> 间隔时间 ＝ (结束时间 － 启动时间) × 1000<br /> 局_时 ＝ (间隔时间 ％ 86400000) ÷ 3600000<br /> 局_分 ＝ (间隔时间 ％ 86400000 ％ 3600000) ÷ 60000<br /> 局_秒 ＝ (间隔时间 ％ 86400000 ％ 3600000 ％ 60000) ÷ 1000<br /> 局_毫秒 ＝ 四舍五入 (间隔时间 ％ 86400000 ％ 3600000 ％ 60000 ％ 1000, 4)<br /> .如果真 (局_时 ≠ 0)<br />     返回文本 ＝ 返回文本 ＋ 到文本 (局_时) ＋ “时”<br /> .如果真结束<br /> .如果真 (局_分 ≠ 0)<br />     返回文本 ＝ 返回文本 ＋ 到文本 (局_分) ＋ “分”<br /> .如果真结束<br /> .如果真 (局_秒 ≠ 0)<br />     返回文本 ＝ 返回文本 ＋ 到文本 (局_秒) ＋ “秒”<br /> .如果真结束<br /> .如果真 (局_毫秒 ≠ 0)<br />     返回文本 ＝ 返回文本 ＋ 到文本 (局_毫秒) ＋ “毫秒”<br /> .如果真结束<br /> 输出调试文本 (“:” ＋ 返回文本)<br /> 返回 (返回文本)

Suky

既然都用精易模块了
你直接将时间差转为秒   
然后用命令   时间_秒到时分秒格式 ()   
这个简单直接一点

补充内容 (2024-11-5 16:58):
或者用  时间_格式化毫秒 ()

haoren1212

  

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

时间_取间隔_开始 ()

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

调试输出 (时间_取间隔_结束 ())

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 时间_取间隔_开始 ()<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 调试输出 (时间_取间隔_结束 ())

jxm1010

金币木有了，来要个币！

cants7

whj888555 发表于 2024-11-6 00:53
[e=0].版本 2

.子程序 时间换算, 文本型

毫秒 不太好使

whj888555

cants7 发表于 2024-11-6 11:01
毫秒 不太好使

你对毫秒 在意那就把  “四舍五入()” 删了