GetTickCount取系统运行总时间

.子程序 取系统运行时间, 文本型, 公开, 从系统开机到现在总共运行了多久
.局部变量 ret, 整数型
.局部变量 h, 长整数型
.局部变量 m, 长整数型
.局部变量 s, 长整数型
.局部变量 Ok, 文本型

ret ＝ 取运行时间_ ()
h ＝ ret ＼ 3600000
m ＝ (ret ％ 3600000) ＼ 60000
s ＝ (ret ％ 3600000) ＼ 1000 ％ 60
Ok ＝ 到文本 (h) ＋ “时” ＋ 到文本 (m) ＋ “分” ＋ 到文本 (s) ＋ “秒”
取系统运行总时间例子。