希望

将1278这样秒数转成00:21:18的样子

实现

易语言 秒转时分秒

.版本 2

.子程序 子程序_秒转时分秒, 文本型
.参数 参_秒数, 文本型
.局部变量 局_时, 整数型
.局部变量 局_分, 整数型
.局部变量 局_秒, 整数型
.局部变量 局_时_文本, 文本型
.局部变量 局_分_文本, 文本型
.局部变量 局_秒_文本, 文本型

局_时 ＝ 到整数 (参_秒数) ＼ 3600
.如果 (局_时 ＜ 10)
    局_时_文本 ＝ “0” ＋ 到文本 (局_时)
.否则
    局_时_文本 ＝ 到文本 (局_时)
.如果结束

局_分 ＝ (到整数 (参_秒数) ％ 3600) ＼ 60
.如果 (局_分 ＜ 10)
    局_分_文本 ＝ “0” ＋ 到文本 (局_分)
.否则
    局_分_文本 ＝ 到文本 (局_分)
.如果结束

局_秒 ＝ 到整数 (参_秒数) ％ 3600 ％ 60
.如果 (局_秒 ＜ 10)
    局_秒_文本 ＝ “0” ＋ 到文本 (局_秒)
.否则
    局_秒_文本 ＝ 到文本 (局_秒)
.如果结束


返回 (局_时_文本 ＋ “:” ＋ 局_分_文本 ＋ “:” ＋ 局_秒_文本)