易语言获取程序已运行时间的代码

.版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 _时钟1_周期事件
.局部变量 hr, 整数型, 静态
.局部变量 min, 整数型, 静态
.局部变量 sec, 整数型, 静态
sec ＝ sec ＋ 1
.如果真 (sec ＝ 60)
  sec ＝ 0
  min ＝ min ＋ 1
.如果真结束
.如果真 (min ＝ 60)
  min ＝ 0
  hr ＝ hr ＋ 1
.如果真结束
状态条1.置文本 (0, “已运行：” ＋ 取文本右边 (“0” ＋ 到文本 (hr), 2) ＋ “:” ＋ 取文本右边 (“0” ＋ 到文本 (min), 2) ＋ “:” ＋ 取文本右边 (“0” ＋ 到文本 (sec), 2))