时间_取北京时间 () 在断网状态下也能取到时间。精易模块

airaz

时间_取北京时间 ()   在断网状态下也能取到时间。。。而   时间_同步校时 () 在断网状态下就是错误时间
.版本 2
.子程序 时间_取北京时间, 日期时间型, 公开, 获取北京时间，超稳定，长久不失效，代码提供者：aqwvwv
.参数 参_网址, 文本型, 可空
.局部变量 局_返回协议头, 文本型
.局部变量 局_时间, 日期时间型

.如果真 (是否为空 (参_网址))
    参_网址 ＝ “http://www.baidu.com/”
.如果真结束
网页_访问_对象 (参_网址, 2, , , , , 局_返回协议头, , , , , , , , , , , , )
局_返回协议头 ＝ 文本_取出中间文本 (局_返回协议头, “Date:”, #换行符)
局_时间 ＝ 时间_GMT转为时间 (局_返回协议头)
返回 (局_时间)








.版本 2

.子程序 时间_同步校时, 日期时间型, 公开, 调用http://www.baidu.com网址接口,win8以上系统需要管理员权限
.参数 参_是否同步, 逻辑型, 可空, 是否同步到北京时间，为空默认不同步
.局部变量 返回文本, 文本型
.局部变量 取出的时间, 文本型
.局部变量 时间, 日期时间型

网页_访问S (“https://www.baidu.com”, 2, , , , , 返回文本)
取出的时间 ＝ 删首尾空 (文本_取出中间文本 (返回文本, “Date:”, #换行符))
时间 ＝ 时间_GMT转为时间 (取出的时间)
.如果真 (参_是否同步)
    置现行时间 (时间)
.如果真结束
返回 (时间)

金叶

看上去很牛   没网  也能取到时间

airaz

fire9 发表于 2024-4-20 20:02
总有意想不到的bug

删首尾空

fire9

总有意想不到的bug

huai668

断网取的是本机时间

Suky

  

子程序名	返回值类型	公开	备 注
时间_取北京时间	日期时间型		获取北京时间，超稳定，长久不失效，代码提供者：aqwvwv
参数名	类 型	参考	可空	数组	备 注
参_网址	文本型

变量名	类 型	静态	数组	备 注
局_返回协议头	文本型
局_时间	日期时间型

如果真 (是否为空 (参_网址))
参_网址 ＝ “http://www.baidu.com/”
网页_访问_对象 (参_网址, 2, , , , , 局_返回协议头, , , , , , , , , , , , )
局_返回协议头 ＝ 文本_取出中间文本 (局_返回协议头, “Date:”, #换行符 )
局_时间 ＝ 时间_GMT转为时间 (局_返回协议头)
返回 (局_时间)

.版本 2<br /> <br /> .子程序 时间_取北京时间, 日期时间型, 公开, 获取北京时间，超稳定，长久不失效，代码提供者：aqwvwv<br /> .参数 参_网址, 文本型, 可空<br /> .局部变量 局_返回协议头, 文本型<br /> .局部变量 局_时间, 日期时间型<br /> <br /> .如果真 (是否为空 (参_网址))<br />     参_网址 ＝ “<a href="http://www.baidu.com/" rel="nofollow" rel="nofollow" target="_blank">http://www.baidu.com/</a>”<br /> .如果真结束<br /> 网页_访问_对象 (参_网址, 2, , , , , 局_返回协议头, , , , , , , , , , , , )<br /> 局_返回协议头 ＝ 文本_取出中间文本 (局_返回协议头, “Date:”, #换行符)<br /> 局_时间 ＝ 时间_GMT转为时间 (局_返回协议头)<br /> 返回 (局_时间)

  

调试输出 (时间_GMT转为时间 (“”))

调试输出 (时间_GMT转为时间 (“”))

  

子程序名	返回值类型	公开	备 注
时间_GMT转为时间	日期时间型		感谢会员shituo提供代码，将GMT文本时间 转换成日期时间型
参数名	类 型	参考	可空	数组	备 注
GMT时间	文本型
东八区时差	逻辑型				默认为真

变量名	类 型	静态	数组	备 注
stime	精易_时间
DateFormat	日期时间型

InternetTimeToSystemTime (GMT时间, stime, 0)
DateFormat ＝ 指定时间 (stime.年, stime.月, stime.日, stime.时, stime.分, stime.秒)
如果真 (是否为空 (东八区时差) 或 东八区时差)
DateFormat ＝ 增减时间 (DateFormat, #小时, 8)
返回 (DateFormat)

.版本 2<br /> <br /> .子程序 时间_GMT转为时间, 日期时间型, 公开, 感谢会员shituo提供代码，将GMT文本时间 转换成日期时间型<br /> .参数 GMT时间, 文本型<br /> .参数 东八区时差, 逻辑型, 可空, 默认为真<br /> .局部变量 stime, 精易_时间<br /> .局部变量 DateFormat, 日期时间型<br /> <br /> InternetTimeToSystemTime (GMT时间, stime, 0)<br /> DateFormat ＝ 指定时间 (stime.年, stime.月, stime.日, stime.时, stime.分, stime.秒)<br /> .如果真 (是否为空 (东八区时差) 或 东八区时差)<br />     DateFormat ＝ 增减时间 (DateFormat, #小时, 8)<br /> .如果真结束<br /> 返回 (DateFormat)

指定时间（）
返回包含指定年、月、日、小时、分、秒的时间。如果指定了无效时间，将自动使用最相近的有效时间代替

xf702

拔了网线，试试看。。。

观音

牛啊 要是按你这么说 我以后买电脑不用接网线了 什么宽带也不需要了 而且也不用电了 靠爱发电

shaokui123

断网怎么能获取服务器上标准时间？
只是本地时间吧？

zhao1907

看上去不错