[易语言源码] [分享源码] 软件已运行时间

.版本 2
.支持库 EThread
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 启动时间, 整数型

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

启动时间 ＝ 取启动时间 ()

启动线程 (&运行时间, , )

.子程序 运行时间
.局部变量 a
.局部变量 当前时间
.局部变量 已运行秒数
.局部变量 提示文本, 文本型
.局部变量 分钟
.局部变量 小时
.局部变量 天
.局部变量 月
.局部变量 年
.局部变量 秒

.判断循环首 (a ＜ 1)
    当前时间 ＝ 取启动时间 ()
    已运行秒数 ＝ (当前时间 － 启动时间) ÷ 1000
    分钟 ＝ 已运行秒数 ÷ 60
    小时 ＝ 分钟 ÷ 60
    天 ＝ 小时 ÷ 24
    月 ＝ 天 ÷ 30
    年 ＝ 月 ÷ 12
    秒 ＝ 已运行秒数 ％ 60
    分钟 ＝ 分钟 ％ 60
    小时 ＝ 小时 ％ 24
    天 ＝ 天 ％ 24
    月 ＝ 月 ％ 30
    年 ＝ 年 ％ 12

    提示文本 ＝ “已稳定运行” ＋ 到文本 (年) ＋ “年” ＋ 到文本 (月) ＋ “个月” ＋ 到文本 (天) ＋ “天” ＋ 到文本 (小时) ＋ “小时” ＋ 到文本 (分钟) ＋ “分钟” ＋ 到文本 (秒) ＋ “秒”
    标签1.标题 ＝ 提示文本
    延迟 (1000)
.判断循环尾 ()