Question

易语言秒转月天时分秒

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.标题 ＋ 到文本 (秒) ＋ “秒” .如果真结束