|
发表于 2011-10-9 09:09:24
|
显示全部楼层
浙江省宁波市
本帖最后由 帆帆 于 2011-10-9 09:48 编辑
[e]
.子程序 _启动窗口_创建完毕
.参数 事件控件句柄, 整数型
.局部变量 网络时间, 日期时间型
.局部变量 到期时间, 日期时间型
.局部变量 时间差, 双精度小数型
' 启动窗口.图标 ()
网络时间 = 到时间 (取北京时间 ())
到期时间 = 到时间 (“2011/10/8/22:12:7”)
时间差 = 到数值 (到期时间) - 到数值 (网络时间)
.如果真 (时间差<0)
结束 ()
[/e]
.版本 2
.子程序 取北京时间, 日期时间型
.局部变量 局_返回数据, 文本型
.局部变量 局_起始位置, 整数型
.局部变量 局_结束位置, 整数型
.局部变量 局_取出字符, 文本型
.局部变量 局_字符长度, 整数型
局_返回数据 = 到文本 (HTTP.访问网络 (“http://open.baidu.com/special/time/”))
局_起始位置 = 寻找文本 (局_返回数据, “window.baidu_time(”, , 假) + 取文本长度 (“window.baidu_time(”)
局_结束位置 = 寻找文本 (局_返回数据, “)”, 局_起始位置, 假)
局_字符长度 = 局_结束位置 - 局_起始位置
局_取出字符 = 取文本中间 (局_返回数据, 局_起始位置, 局_字符长度)
返回 (增减时间 ([1970年1月1日8时], #秒, 到数值 (局_取出字符) ÷ 1000))
[/e]
|
|