Question

易语言 秒钟转换到具体时间

如果从 87825秒 转换到 1天23分45秒 ？

Answer 1

.版本 2

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

编辑框1.输入方式 ＝ 8

.子程序 _按钮1_被单击
.局部变量 数值, 长整数型
.局部变量 秒, 整数型
.局部变量 分钟, 整数型
.局部变量 小时, 整数型
.局部变量 天, 整数型

数值 ＝ 到长整数 (编辑框1.内容)
天 ＝ 取整 (数值 ÷ 86400)
数值 ＝ 数值 － 天 × 86400
小时 ＝ 取整 (数值 ÷ 3600)
数值 ＝ 数值 － 小时 × 3600
分钟 ＝ 取整 (数值 ÷ 60)
秒 ＝ 数值 － 分钟 × 60
标签1.标题 ＝ “”
.如果真 (天 ≠ 0)
标签1.标题 ＝ 到文本 (天) ＋ “天”
.如果真结束
.如果真 (小时 ≠ 0)
标签1.标题 ＝ 标签1.标题 ＋ 到文本 (小时) ＋ “小时”
.如果真结束
.如果真 (分钟 ≠ 0)
标签1.标题 ＝ 标签1.标题 ＋ 到文本 (分钟) ＋ “分钟”
.如果真结束
.如果真 (秒 ≠ 0)
标签1.标题 ＝ 标签1.标题 ＋ 到文本 (秒) ＋ “秒”
.如果真结束

Answer 2