易语言 取程序运行时间

.版本 2.程序集 窗口程序集1
.程序集变量 时
.程序集变量 分
.程序集变量 秒.子程序 __启动窗口_创建完毕标签1.标题 ＝ “已运行:” ＋ 到文本 (时) ＋ “小时” ＋ 到文本 (分) ＋ “分钟” ＋ 到文本 (秒) ＋ “秒”.子程序 _时钟1_周期事件秒 ＝ 秒 ＋ 1
.如果真 (秒 ＝ 60)
秒 ＝ 0
分 ＝ 分 ＋ 1
.如果真结束
.如果真 (分 ＝ 60)
分 ＝ 0
时 ＝ 时 ＋ 1
.如果真结束
标签1.标题 ＝ “已运行:” ＋ 到文本 (时) ＋ “小时” ＋ 到文本 (分) ＋ “分钟” ＋ 到文本 (秒) ＋ “秒”

把时间分成两个时钟一个走分一个走秒

.版本 2
.程序集 窗口程序集1.程序集变量 现行秒数, 整数型
.子程序 __启动窗口_创建完毕
现行秒数 ＝ 0时钟1.时钟周期 ＝ 1000
.子程序 秒转小时, 文本型.参数 秒值, 整数型.局部变量 分值, 整数型.局部变量 余秒, 整数型.局部变量 堆积, 整数型.局部变量 时值, 整数型.局部变量 堆积2, 整数型.局部变量 余分, 整数型
.如果 (秒值 ＜ 60) 返回 (“0小时0分钟” ＋ 到文本 (秒值) ＋ “秒”).否则 分值 ＝ 绝对取整 (秒值 ÷ 60) 堆积 ＝ 分值 × 60 余秒 ＝ 秒值 － 堆积 .如果 (分值 ＜ 60) 返回 (“0小时” ＋ 到文本 (分值) ＋ “分钟” ＋ 到文本 (余秒) ＋ “秒”) .否则 时值 ＝ 绝对取整 (分值 ÷ 60) 堆积2 ＝ 时值 × 60 余分 ＝ 分值 － 堆积2 返回 (到文本 (时值) ＋ “小时” ＋ 到文本 (余分) ＋ “分钟” ＋ 到文本 (余秒) ＋ “秒”) .如果结束
.如果结束

.子程序 _时钟1_周期事件
现行秒数 ＝ 现行秒数 ＋ 1标签1.标题 ＝ 秒转小时 (现行秒数)