|
发表于 2018-12-29 22:59:06
|
显示全部楼层
江苏省徐州市
.版本 2
.子程序 时间_取北京时间, 文本型, 公开, 获取北京时间,超稳定,长久不失效,代码提供者:aqwvwv
.参数 网站, 文本型, 可空
.局部变量 返回协yi, 文本型
.局部变量 GMT时间, 文本型
' 网页_访问_对象 (“http://www.baidu.com/”, 2, , , , , 返回协yi)
' 返回协yi = 文本_取出中间文本 (返回协yi, “Date:”, #换行符)
' 时间 = 时间_GMT转为时间 (返回协yi)
' 时间 = 增减时间 (时间, #小时, 8)
' 返回 (时间)
.if (IsMissing (网站))
网站 = “http://www.baidu.com”
.如果真结束
网页_访问_对象 (网站, , , , , , 返回协yi, , , , , , , , , , )
GMT时间 = 文本_取出中间文本 (返回协yi, “Date:”, “GMT”, , )
GMT时间 = str (TimeChg (时间_GMT转为时间 (GMT时间), #小时, 8))
return (GMT时间)
|
评分
-
查看全部评分
|