发布一个秒转时分秒的子程序，希望添加到模块

songyukuan

这个子程序可以将X秒转为X时X分X秒，有时候取到时间间隔一长串比较难读，比如可以将“8600秒”转为“02时23分20秒”

.版本 2

.子程序 时间_秒到时分秒格式, 文本型
.参数 秒数, 整数型
.局部变量 局_年, 整数型
.局部变量 局_月, 整数型
.局部变量 局_日, 整数型
.局部变量 局_时, 整数型
.局部变量 局_分, 整数型
.局部变量 局_秒, 整数型
.局部变量 局_返回年, 文本型
.局部变量 局_返回月, 文本型
.局部变量 局_返回日, 文本型
.局部变量 局_返回时, 文本型
.局部变量 局_返回分, 文本型
.局部变量 局_返回秒, 文本型

局_年 ＝ 到整数 (秒数 ÷ (60 × 60 × 24 × 30 × 12))
秒数 ＝ 秒数 － 局_年 × 60 × 60 × 24 × 30 × 12
局_月 ＝ 到整数 (秒数 ÷ (60 × 60 × 24 × 30))
秒数 ＝ 秒数 － 局_月 × 60 × 60 × 24 × 30
局_日 ＝ 到整数 (秒数 ÷ (60 × 60 × 24))
秒数 ＝ 秒数 － 局_日 × 60 × 60 × 24
局_时 ＝ 到整数 (秒数 ÷ (60 × 60))
秒数 ＝ 秒数 － 局_时 × 60 × 60
局_分 ＝ 到整数 (秒数 ÷ 60)
秒数 ＝ 秒数 － 局_分 × 60
局_秒 ＝ 秒数

局_返回年 ＝ 到文本 (局_年)
局_返回月 ＝ 到文本 (局_月)
局_返回日 ＝ 到文本 (局_日)
局_返回时 ＝ 文本_自动补零 (到文本 (局_时), 2)
局_返回分 ＝ 文本_自动补零 (到文本 (局_分), 2)
局_返回秒 ＝ 文本_自动补零 (到文本 (局_秒), 2)

.判断开始 (局_年 ≠ 0)
    返回 (局_返回年 ＋ “年” ＋ 局_返回月 ＋ “月” ＋ 局_返回日 ＋ “日” ＋ 局_返回时 ＋ “时” ＋ 局_返回分 ＋ “分” ＋ 局_返回秒 ＋ “秒”)
.判断 (局_月 ≠ 0)
    返回 (局_返回月 ＋ “月” ＋ 局_返回日 ＋ “日” ＋ 局_返回时 ＋ “时” ＋ 局_返回分 ＋ “分” ＋ 局_返回秒 ＋ “秒”)
.判断 (局_日 ≠ 0)
    返回 (局_返回日 ＋ “日” ＋ 局_返回时 ＋ “时” ＋ 局_返回分 ＋ “分” ＋ 局_返回秒 ＋ “秒”)
.判断 (局_时 ≠ 0)
    返回 (局_返回时 ＋ “时” ＋ 局_返回分 ＋ “分” ＋ 局_返回秒 ＋ “秒”)
.判断 (局_分 ≠ 0)
    返回 (局_返回分 ＋ “分” ＋ 局_返回秒 ＋ “秒”)
.判断 (局_秒 ≠ 0)
    返回 (局_返回秒 ＋ “秒”)
.默认
    返回 (“0”)
.判断结束

h_xonly

感谢，很好用

dljy

        支持开源~！感谢分享

狠拽丆狠得瑟

这个可以啊，看看采纳不这个可以啊，看看采纳不这个可以啊，看看采纳不

snowfox373

个人觉得应该加入毫秒。

项目部002

加入精易模块豪华套餐