.版本 2
.支持库 internet
.子程序 取北京时间, 日期时间型
.局部变量 局_返回数据, 文本型
.局部变量 局_起始位置, 整数型
.局部变量 局_结束位置, 整数型
.局部变量 局_取出字符, 文本型
.局部变量 局_字符长度, 整数型
局_返回数据 = 到文本 (HTTP读文件 (“https://gss0.baidu.com/8aQDcnSm2Q5IlBGlnYG/special/time/”))
局_起始位置 = 寻找文本 (局_返回数据, “window.baidu_time(”, , 假) + 取文本长度 (“window.baidu_time(”)
局_结束位置 = 寻找文本 (局_返回数据, “)”, 局_起始位置, 假)
局_字符长度 = 局_结束位置 - 局_起始位置
局_取出字符 = 取文本中间 (局_返回数据, 局_起始位置, 局_字符长度)
标签1.标题 = 到文本 (增减时间 ([1970年1月1日8时], #秒, 到数值 (局_取出字符) ÷ 1000))
返回 (增减时间 ([1970年1月1日8时], #秒, 到数值 (局_取出字符) ÷ 1000))
参考资料的地方,下载源码即可
楼主请采纳“热心网友”的解答,注意一下回答的时间,发源码链接那个后来才答的