|
发表于 2013-12-11 10:05:05
|
显示全部楼层
广东省东莞市
一个很粗糙的例子!
[e]
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 局_检测, 文本型
.局部变量 局_开始, 文本型
.局部变量 局_现在时间, 文本型
局_检测 = 读配置项 (取运行目录 () + “\配置.ini”, “测试”, “b”, “1”)
局_开始 = 读配置项 (取运行目录 () + “\配置.ini”, “测试”, “a”, )
局_现在时间 = 时间到文本 (取现行时间 (), #日期部分)
.如果真 (局_开始 ≠ “”)
.如果真 (到整数 (局_检测) < 2)
写配置项 (取运行目录 () + “\配置.ini”, “测试”, “a”, 时间到文本 (取现行时间 (), #日期部分))
写配置项 (取运行目录 () + “\配置.ini”, “测试”, “b”, “3”)
.如果真结束
_启动窗口.标题 = _启动窗口.标题 + 到文本 (到整数 (取时间间隔 (到时间 (局_现在时间), 到时间 (局_开始), #日)))
.如果真结束
[/e] |
|