易语言时间转换例程 秒到时间

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

信息框 (秒到时间 (65535), 0, , )

.子程序 秒到时间, 文本型
.参数 秒数, 整数型
.局部变量 日, 文本型
.局部变量 时, 文本型
.局部变量 分, 文本型
.局部变量 秒, 文本型
.局部变量 天, 文本型

秒 ＝ 到文本 (秒数 ％ 60)
分 ＝ 到文本 (秒数 ＼ 60 ％ 60)
时 ＝ 到文本 (秒数 ＼ 3600 ％ 24)
天 ＝ 到文本 (秒数 ＼ 3600 × 24)
天 ＝ 选择 (取文本长度 (天) ＝ 1, “0” ＋ 天, 天)
时 ＝ 选择 (取文本长度 (时) ＝ 1, “0” ＋ 时, 时)
分 ＝ 选择 (取文本长度 (分) ＝ 1, “0” ＋ 分, 分)
秒 ＝ 选择 (取文本长度 (秒) ＝ 1, “0” ＋ 秒, 秒)
返回 (天 ＋ “天” ＋ 时 ＋ “小时” ＋ 分 ＋ “分钟” ＋ 秒 ＋ “秒”)

@woxl