精易模块7.6 时间_同步校时BUG

刘米其丶

我用7.3的模块测试是正常的

项目部004

Aurora

  

子程序名	返回值类型	公开	备 注
时间_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 /> .局部变量 stime, 精易_时间<br /> .局部变量 DateFormat, 日期时间型<br /> <br /> InternetTimeToSystemTime (GMT时间, stime, 0)<br /> DateFormat ＝ 指定时间 (stime.年, stime.月, stime.日, stime.时, stime.分, stime.秒)<br /> DateFormat ＝ 增减时间 (DateFormat, #小时, 8)<br /> 返回 (DateFormat)

  

子程序名	返回值类型	公开	备 注
时间_同步校时	日期时间型		调用http://www.baidu.com网址接口,win8以上系统需要管理员权限
参数名	类 型	参考	可空	数组	备 注
参_是否同步	逻辑型				是否同步到北京时间，为空默认不同步

变量名	类 型	静态	数组	备 注
返回文本	文本型
取出的时间	文本型
时间	日期时间型

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

.版本 2<br /> <br /> .子程序 时间_同步校时, 日期时间型, 公开, 调用<a href="http://www.baidu.com" rel="nofollow" rel="nofollow" target="_blank">http://www.baidu.com</a>网址接口,win8以上系统需要管理员权限<br /> .参数 参_是否同步, 逻辑型, 可空, 是否同步到北京时间，为空默认不同步<br /> .局部变量 返回文本, 文本型<br /> .局部变量 取出的时间, 文本型<br /> .局部变量 时间, 日期时间型<br /> <br /> 网页_访问S (“https://www.baidu.com”, 2, , , , , 返回文本)<br /> 取出的时间 ＝ 删首尾空 (文本_取出中间文本 (返回文本, “Date:”, #换行符))<br /> 时间 ＝ 时间_GMT转为时间 (取出的时间)<br /> 时间 ＝ 增减时间 (时间, #小时, 8)<br /> .如果真 (参_是否同步)<br />     置现行时间 (时间)<br /> .如果真结束<br /> 返回 (时间)

时间_GMT转为时间 加了8小时   时间_GMT转为时间又加了8小时  所以多了8小时

Aurora

  

子程序名	返回值类型	公开	备 注
时间_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 /> .局部变量 stime, 精易_时间<br /> .局部变量 DateFormat, 日期时间型<br /> <br /> InternetTimeToSystemTime (GMT时间, stime, 0)<br /> DateFormat ＝ 指定时间 (stime.年, stime.月, stime.日, stime.时, stime.分, stime.秒)<br /> DateFormat ＝ 增减时间 (DateFormat, #小时, 8)<br /> 返回 (DateFormat)

  

子程序名	返回值类型	公开	备 注
时间_同步校时	日期时间型		调用http://www.baidu.com网址接口,win8以上系统需要管理员权限
参数名	类 型	参考	可空	数组	备 注
参_是否同步	逻辑型				是否同步到北京时间，为空默认不同步

变量名	类 型	静态	数组	备 注
返回文本	文本型
取出的时间	文本型
时间	日期时间型

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

.版本 2<br /> <br /> .子程序 时间_同步校时, 日期时间型, 公开, 调用<a href="http://www.baidu.com" rel="nofollow" rel="nofollow" target="_blank">http://www.baidu.com</a>网址接口,win8以上系统需要管理员权限<br /> .参数 参_是否同步, 逻辑型, 可空, 是否同步到北京时间，为空默认不同步<br /> .局部变量 返回文本, 文本型<br /> .局部变量 取出的时间, 文本型<br /> .局部变量 时间, 日期时间型<br /> <br /> 网页_访问S (“https://www.baidu.com”, 2, , , , , 返回文本)<br /> 取出的时间 ＝ 删首尾空 (文本_取出中间文本 (返回文本, “Date:”, #换行符))<br /> 时间 ＝ 时间_GMT转为时间 (取出的时间)<br /> 时间 ＝ 增减时间 (时间, #小时, 8)<br /> .如果真 (参_是否同步)<br />     置现行时间 (时间)<br /> .如果真结束<br /> 返回 (时间)

时间_同步校时  加了8小时   时间_GMT转为时间  又加了8小时  所以多了8小时