电脑开机时间及运行时间计算源码

.子程序 时间计算, 文本型
.参数 运行时间, 文本型, 可空, 返回共运行的时间
.局部变量 天, 整数型
.局部变量 小时, 整数型
.局部变量 分, 整数型
.局部变量 秒, 整数型
.局部变量 时间头部, 文本型
.局部变量 开机时间, 文本型
秒 ＝ 取启动时间 ()
.如果真 (秒 ≥ 86400000)
    天 ＝ 秒 ÷ 86400000
    秒 ＝ 秒 － 天 × 86400000
.如果真结束

小时 ＝ 秒 ÷ 3600000
秒 ＝ 秒 － 小时 × 3600000
分 ＝ 秒 ÷ 60000
秒 ＝ (秒 － 分 × 60000) ÷ 1000
运行时间 ＝ “运行时间为：” ＋ 到文本 (天) ＋ “天” ＋ 到文本 (小时) ＋ “时” ＋ 到文本 (分) ＋ “分” ＋ 到文本 (秒) ＋ “秒”
时间头部 ＝ 取文本左边 (到文本 (增减时间 (取现行时间 (), 5, 天 － 天 × 2)), 13)
小 ＝ 取小时 (增减时间 (取现行时间 (), 6, 小时 － 小时 × 2))
分 ＝ 取分钟 (增减时间 (取现行时间 (), 7, 分 － 分 × 2))
秒 ＝ 取秒 (增减时间 (取现行时间 (), 8, 秒 － 秒 × 2))
开机时间 ＝ “开机时间为：” ＋ 时间头部 ＋ 到文本 (小时) ＋ “时” ＋ 到文本 (分) ＋ “分” ＋ 到文本 (秒) ＋ “秒”