秒转换成时间

zhangli9271

秒转成时间。

afu45

  

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

调试输出 (子程序1 (5452))
调试输出 (子程序1 (465))

子程序名	返回值类型	公开	备 注
子程序1	文本型
参数名	类 型	参考	可空	数组	备 注
时间	整数型

返回 (时间_格式化毫秒 (时间 × 1000))

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 调试输出 (子程序1 (5452))<br /> 调试输出 (子程序1 (465))<br /> <br /> .子程序 子程序1, 文本型<br /> .参数 时间, 整数型<br /> <br /> 返回 (时间_格式化毫秒 (时间 × 1000))

补充内容 (2023-8-2 17:59):
精易模块
https://ec.125.la/

大司命

  

子程序名	返回值类型	公开	备 注
时间_秒到时分秒格式	文本型		返回指定格式的时间文本
参数名	类 型	参考	可空	数组	备 注
秒	整数型
格式	文本型				默认:d天h小时m分s秒
自动补零	逻辑型				不足2位数自动前面补0

变量名	类 型	静态	数组	备 注
局_天	整数型
局_小时	整数型
局_分	整数型
局_秒	整数型
局_位置	整数型
局_Time	文本型

局_秒 ＝ 秒
如果真 (是否为空 (格式) 或 格式 ＝ “”)
格式 ＝ “d天h小时m分s秒”
局_天 ＝ 局_秒 ÷ 86400
局_小时 ＝ (局_秒 ％ 86400) ÷ 3600
局_分 ＝ (局_秒 ％ 86400 ％ 3600) ÷ 60
局_秒 ＝ 局_秒 ％ 86400 ％ 3600 ％ 60
局_位置 ＝ 倒找文本 (格式, “d”, , 假)
如果真 (局_位置 ≠ -1)
局_Time ＝ 到文本 (局_天)
如果真 (自动补零)
局_Time ＝ 文本_自动补零 (局_Time, 2)
格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)
局_位置 ＝ 倒找文本 (格式, “h”, , 假)
如果真 (局_位置 ≠ -1)
局_Time ＝ 到文本 (局_小时)
如果真 (自动补零)
局_Time ＝ 文本_自动补零 (局_Time, 2)
格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)
局_位置 ＝ 倒找文本 (格式, “m”, , 假)
如果真 (局_位置 ≠ -1)
局_Time ＝ 到文本 (局_分)
如果真 (自动补零)
局_Time ＝ 文本_自动补零 (局_Time, 2)
格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)
局_位置 ＝ 倒找文本 (格式, “s”, , 假)
如果真 (局_位置 ≠ -1)
局_Time ＝ 到文本 (局_秒)
如果真 (自动补零)
局_Time ＝ 文本_自动补零 (局_Time, 2)
格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)
返回 (格式)

.版本 2<br /> .子程序 时间_秒到时分秒格式, 文本型, 公开, 返回指定格式的时间文本<br /> .参数 秒, 整数型<br /> .参数 格式, 文本型, 可空, 默认:d天h小时m分s秒<br /> .参数 自动补零, 逻辑型, 可空, 不足2位数自动前面补0<br /> .局部变量 局_天, 整数型<br /> .局部变量 局_小时, 整数型<br /> .局部变量 局_分, 整数型<br /> .局部变量 局_秒, 整数型<br /> .局部变量 局_位置, 整数型<br /> .局部变量 局_Time, 文本型<br /> 局_秒 ＝ 秒<br /> .如果真 (是否为空 (格式) 或 格式 ＝ “”)<br />     格式 ＝ “d天h小时m分s秒”<br /> .如果真结束<br /> 局_天 ＝ 局_秒 ÷ 86400<br /> 局_小时 ＝ (局_秒 ％ 86400) ÷ 3600<br /> 局_分 ＝ (局_秒 ％ 86400 ％ 3600) ÷ 60<br /> 局_秒 ＝ 局_秒 ％ 86400 ％ 3600 ％ 60<br /> 局_位置 ＝ 倒找文本 (格式, “d”, , 假)<br /> .如果真 (局_位置 ≠ -1)<br />     局_Time ＝ 到文本 (局_天)<br />     .如果真 (自动补零)<br />         局_Time ＝ 文本_自动补零 (局_Time, 2)<br />     .如果真结束<br />     格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)<br /> .如果真结束<br /> 局_位置 ＝ 倒找文本 (格式, “h”, , 假)<br /> .如果真 (局_位置 ≠ -1)<br />     局_Time ＝ 到文本 (局_小时)<br />     .如果真 (自动补零)<br />         局_Time ＝ 文本_自动补零 (局_Time, 2)<br />     .如果真结束<br />     格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)<br /> .如果真结束<br /> 局_位置 ＝ 倒找文本 (格式, “m”, , 假)<br /> .如果真 (局_位置 ≠ -1)<br />     局_Time ＝ 到文本 (局_分)<br />     .如果真 (自动补零)<br />         局_Time ＝ 文本_自动补零 (局_Time, 2)<br />     .如果真结束<br />     格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)<br /> .如果真结束<br /> 局_位置 ＝ 倒找文本 (格式, “s”, , 假)<br /> .如果真 (局_位置 ≠ -1)<br />     局_Time ＝ 到文本 (局_秒)<br />     .如果真 (自动补零)<br />         局_Time ＝ 文本_自动补零 (局_Time, 2)<br />     .如果真结束<br />     格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)<br /> .如果真结束<br /> 返回 (格式)

zhangli9271

只要时分秒越简化越好

qcby

  

调试输出 (时间_格式化毫秒 (5452 × 1000))

调试输出 (时间_格式化毫秒 (5452 × 1000))

[18:17:52] * 文本:21“ 1 小时 30 分钟 52 秒”

帅气与大侠

很简短的代码了

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

调试输出 (时间_秒到时分秒 (5452))
调试输出 (时间_秒到时分秒 (465))

子程序名	返回值类型	公开	备 注
时间_秒到时分秒	文本型
参数名	类 型	参考	可空	数组	备 注
秒数	整数型
自动补零	逻辑型

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

时 ＝ 到文本 (到整数 ( (秒数 ％ 86400) ÷ 3600))
分 ＝ 到文本 (到整数 ( (秒数 ％ 86400 ％ 3600) ÷ 60))
秒 ＝ 到文本 (到整数 (秒数 ％ 86400 ％ 3600 ％ 60))
自动补零 ＝ 选择 (是否为空 (自动补零), 真, 自动补零)
时 ＝ 选择 (自动补零 ＝ 真 且 取文本长度 (时) ＜ 2, “0” ＋ 时, 时)
分 ＝ 选择 (自动补零 ＝ 真 且 取文本长度 (分) ＜ 2, “0” ＋ 分, 分)
秒 ＝ 选择 (自动补零 ＝ 真 且 取文本长度 (秒) ＜ 2, “0” ＋ 秒, 秒)
返回时分秒 ＝ 到文本 (时) ＋ “:” ＋ 到文本 (分) ＋ “:” ＋ 到文本 (秒)
返回 (返回时分秒)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 调试输出 (时间_秒到时分秒 (5452))<br /> 调试输出 (时间_秒到时分秒 (465))<br /> <br /> .子程序 时间_秒到时分秒, 文本型<br /> .参数 秒数, 整数型<br /> .参数 自动补零, 逻辑型, 可空<br /> .局部变量 时, 文本型<br /> .局部变量 分, 文本型<br /> .局部变量 秒, 文本型<br /> .局部变量 返回时分秒, 文本型<br /> <br /> 时 ＝ 到文本 (到整数 ((秒数 ％ 86400) ÷ 3600))<br /> 分 ＝ 到文本 (到整数 ((秒数 ％ 86400 ％ 3600) ÷ 60))<br /> 秒 ＝ 到文本 (到整数 (秒数 ％ 86400 ％ 3600 ％ 60))<br /> <br /> 自动补零 ＝ 选择 (是否为空 (自动补零), 真, 自动补零)<br /> 时 ＝ 选择 (自动补零 ＝ 真 且 取文本长度 (时) ＜ 2, “0” ＋ 时, 时)<br /> 分 ＝ 选择 (自动补零 ＝ 真 且 取文本长度 (分) ＜ 2, “0” ＋ 分, 分)<br /> 秒 ＝ 选择 (自动补零 ＝ 真 且 取文本长度 (秒) ＜ 2, “0” ＋ 秒, 秒)<br /> <br /> 返回时分秒 ＝ 到文本 (时) ＋ “:” ＋ 到文本 (分) ＋ “:” ＋ 到文本 (秒)<br /> 返回 (返回时分秒)