自己鼓捣的秒转时分秒 可互转

meik

_时长格式化（“354671”）  可转为 XX时 XX分 XX秒
_时长格式化（“3时8分12秒”）  可转为  XXXXX (秒)

瞎鼓捣的 不知道还有没有更简单的方法

  

子程序名	返回值类型	公开	备 注
_时长格式化	文本型		格式为可读文本：0时0分0秒 可逆
参数名	类 型	参考	可空	数组	备 注
时长	文本型				数字或文本

变量名	类 型	静态	数组	备 注
秒	整数型
时	整数型
分	整数型
临时文本	文本型		0
返回时长	文本型			返回文本

返回时长 ＝ “”
如果 (寻找文本 (时长, “秒”, 0, 假) ＞ -1)
' 时分秒 转 秒
如果 (寻找文本 (时长, “时”, 0, 假) ＞ -1)
临时文本 ＝ 分割文本 (时长, “时”, )
如果 (临时文本 [1] ≠ “”)
时 ＝ 到整数 (临时文本 [1])





如果 (寻找文本 (时长, “分”, 0, 假) ＞ -1)
临时文本 ＝ 分割文本 (时长, “分”, )
临时文本 ＝ 分割文本 (临时文本 [1], “时”, )
如果 (临时文本 [1] ≠ “”)
分 ＝ 到整数 (临时文本 [1])






临时文本 ＝ 分割文本 (时长, “秒”, )
如果 (寻找文本 (临时文本 [1], “分”, 0, 假) ＞ -1)
临时文本 ＝ 分割文本 (临时文本 [1], “分”, )
秒 ＝ 到整数 (临时文本 [2])
如果 (寻找文本 (临时文本 [1], “时”, 0, 假) ＞ -1)
临时文本 ＝ 分割文本 (临时文本 [1], “时”, )
秒 ＝ 到整数 (临时文本 [2])




如果 (时 ＞ 0)
秒 ＝ 秒 ＋ 时 × 60 × 60



如果 (分 ＞ 0)
秒 ＝ 秒 ＋ 分 × 60



返回时长 ＝ 到文本 (秒)
' 32516 转 可以读 时 分 秒
时 ＝ 到整数 (时长) ＼ 60 ＼ 60
分 ＝ 到整数 (时长) ＼ 60 ％ 60
秒 ＝ 到整数 (时长) ％ 60
如果 (时 ＞ 0)
返回时长 ＝ 到文本 (时) ＋ “时”


如果 (分 ＞ 0)
返回时长 ＝ 返回时长 ＋ 到文本 (分) ＋ “分”


返回时长 ＝ 返回时长 ＋ 到文本 (秒) ＋ “秒”

返回 (返回时长)

.版本 2<br /> <br /> .子程序 _时长格式化, 文本型, , 格式为可读文本：0时0分0秒 可逆<br /> .参数 时长, 文本型, , 数字或文本<br /> .局部变量 秒, 整数型<br /> .局部变量 时, 整数型<br /> .局部变量 分, 整数型<br /> .局部变量 临时文本, 文本型, , "0"<br /> .局部变量 返回时长, 文本型, , , 返回文本<br /> <br /> 返回时长 ＝ “”<br /> .如果 (寻找文本 (时长, “秒”, 0, 假) ＞ -1)<br />     ' 时分秒 转 秒<br />     .如果 (寻找文本 (时长, “时”, 0, 假) ＞ -1)<br />         临时文本 ＝ 分割文本 (时长, “时”, )<br />         .如果 (临时文本 [1] ≠ “”)<br />             时 ＝ 到整数 (临时文本 [1])<br />         .否则<br /> <br />         .如果结束<br /> <br />     .否则<br /> <br />     .如果结束<br />     .如果 (寻找文本 (时长, “分”, 0, 假) ＞ -1)<br />         临时文本 ＝ 分割文本 (时长, “分”, )<br />         临时文本 ＝ 分割文本 (临时文本 [1], “时”, )<br />         .如果 (临时文本 [1] ≠ “”)<br />             分 ＝ 到整数 (临时文本 [1])<br />         .否则<br /> <br />         .如果结束<br /> <br />     .否则<br /> <br />     .如果结束<br /> <br />     临时文本 ＝ 分割文本 (时长, “秒”, )<br />     .如果 (寻找文本 (临时文本 [1], “分”, 0, 假) ＞ -1)<br />         临时文本 ＝ 分割文本 (临时文本 [1], “分”, )<br />         秒 ＝ 到整数 (临时文本 [2])<br />     .否则<br />         .如果 (寻找文本 (临时文本 [1], “时”, 0, 假) ＞ -1)<br />             临时文本 ＝ 分割文本 (临时文本 [1], “时”, )<br />             秒 ＝ 到整数 (临时文本 [2])<br />         .否则<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br />     .如果 (时 ＞ 0)<br />         秒 ＝ 秒 ＋ 时 × 60 × 60<br />     .否则<br /> <br />     .如果结束<br /> <br />     .如果 (分 ＞ 0)<br />         秒 ＝ 秒 ＋ 分 × 60<br />     .否则<br /> <br />     .如果结束<br /> <br />     返回时长 ＝ 到文本 (秒)<br /> <br /> .否则<br />     ' 32516 转 可以读 时 分 秒<br />     时 ＝ 到整数 (时长) ＼ 60 ＼ 60<br />     分 ＝ 到整数 (时长) ＼ 60 ％ 60<br />     秒 ＝ 到整数 (时长) ％ 60<br />     .如果 (时 ＞ 0)<br />         返回时长 ＝ 到文本 (时) ＋ “时”<br />     .否则<br /> <br />     .如果结束<br />     .如果 (分 ＞ 0)<br />         返回时长 ＝ 返回时长 ＋ 到文本 (分) ＋ “分”<br />     .否则<br /> <br />     .如果结束<br />     返回时长 ＝ 返回时长 ＋ 到文本 (秒) ＋ “秒”<br /> .如果结束<br /> <br /> 返回 (返回时长)

qq977352880

期待作者更多的精彩。

year1970

感谢分享

Suky

精易模块    时间_秒到时分秒格式 ()  了解一下