易语言取北京时间

2390517751

.版本 2
.支持库 internet

.子程序 取北京时间, 日期时间型, , 冷血封情取网络时间
.局部变量 局_返回数据, 文本型
.局部变量 局_起始位置, 整数型
.局部变量 局_结束位置, 整数型
.局部变量 局_取出字符, 文本型
.局部变量 局_字符长度, 整数型

局_返回数据 ＝ 到文本 (HTTP读文件 (“http://open.baidu.com/special/time/”))
局_起始位置 ＝ 寻找文本 (局_返回数据, “window.baidu_time(”, , 假) ＋ 取文本长度 (“window.baidu_time(”)
局_结束位置 ＝ 寻找文本 (局_返回数据, “)”, 局_起始位置, 假)
局_字符长度 ＝ 局_结束位置 － 局_起始位置
局_取出字符 ＝ 取文本中间 (局_返回数据, 局_起始位置, 局_字符长度)
返回 (增减时间 ([1970年1月1日8时], #秒, 到数值 (局_取出字符) ÷ 1000))

duanyijun

先拿下 研究研究  看着不错。

878141001

你这运行的时间不对

qi115300

感谢楼主的无私贡献精神，先学习了。

lxwan

感谢楼主的无私贡献精神，先学习了。