易语言怎样才能把毫秒化成 时 分 秒

我也是初学，所以代码写的比较垃圾。希望你能看的懂！

启动窗口设置如图。属性（输入内容：整数文本输入）

代码如下：

.版本 2

.支持库 xplib

.程序集 窗口程序集1

.程序集变量 小时, 整数型

.程序集变量 分钟, 整数型

.程序集变量 秒, 整数型

.程序集变量 毫秒, 整数型

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

XP风格 (3)

.子程序 _按钮1_被单击

小时 ＝ 绝对取整 (到数值 (编辑框1.内容) ÷ 3600000)

分钟 ＝ 绝对取整 (到数值 (编辑框1.内容) ÷ 60000 － 60 × 小时)

秒 ＝ 到数值 (编辑框1.内容) ÷ 1000 － 小时 × 3600 － 分钟 × 60

毫秒 ＝ 到数值 (编辑框1.内容) ％ 1000

.如果 (编辑框1.内容 ＝ “”)

    信息框 (“请填写要转换的数值”, #警告图标, “错误”)

.否则

    标签2.标题 ＝ “（” ＋ 到文本 (小时) ＋ “）小时” ＋ “（” ＋ 到文本 (分钟) ＋ “）分钟” ＋ “（” ＋ 到文本 (秒) ＋ “）秒” ＋ “（” ＋ 到文本 (毫秒) ＋ “）毫秒”

引用:问题补充：如：一个编辑框里输入54050000，点转换，另一个标签立即显示1时30分5秒
==============================================================

我晕 你这什么换算单位 真能搞,,,, 最基本的1000毫秒=1秒啊 你自己先算对了再说吧

a=到数值（编辑框.内容）
a=a/1000 得到秒
b=a mod 60 a除以60的余数，标签显示b秒
c=a 整除 60 得到分
d=c mod 60 c除以60的余数，标签显示c分
e=c 整除 60 得到时 标签显示e时

例如
5405000/1000=5405秒
5405 mod 60 =5秒
5405 整除60=90分
90 mod 60=30分
90 整除60=1时
所以标签显示1时30分5秒

PS..你问题补充那里应该是打多了一个0

.版本 2
.局部变量 总秒, 整数型
.局部变量 秒, 整数型
.局部变量 总分, 整数型
.局部变量 分, 整数型
.局部变量 总时, 整数型
.局部变量 时, 整数型
.局部变量 天, 整数型
总秒 ＝ 绝对取整 (取启动时间 () ÷ 1000)
秒 ＝ 总秒 ％ 60
总分 ＝ 绝对取整 (总秒 ÷ 60)
分 ＝ 总分 ％ 60
总时 ＝ 绝对取整 (总分 ÷ 60)
时 ＝ 总时 ％ 60
天 ＝ 绝对取整 (总时 ÷ 24)
标签1.标题 ＝ 到文本 (天) ＋ “天” ＋ 到文本 (时) ＋ “时” ＋ 到文本 (分) ＋ “分” ＋ 到文本 (秒) ＋ “秒”
‘毫秒转化为天时分秒，不要天的话可以把“天”去掉，“时”换成“总时”，只是给你提供个思路，想要精确到哪里可以自己改，