精易论坛

标题: 自己鼓捣的秒转时分秒 可互转 [打印本页]

作者: meik    时间: 2024-5-17 18:23
标题: 自己鼓捣的秒转时分秒 可互转
_时长格式化(“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)
返回时长 = 返回时长 + 到文本 ()“分”


返回时长 = 返回时长 + 到文本 ()“秒”

返回 (返回时长)


作者: Suky    时间: 2024-5-17 19:28
精易模块    时间_秒到时分秒格式 ()  了解一下
作者: year1970    时间: 2024-5-26 10:49
感谢分享
作者: qq977352880    时间: 2024-8-22 08:30
期待作者更多的精彩。

作者: 涤尘    时间: 2025-4-18 21:17
感谢分享‘




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4