同步时间 提前感谢

176942599

Decimal

这是北京时间

  

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

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

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

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

这个参数不填 自己返回时间 填真就同步本地时间

本地时间可用  取现行时间（）  获得

cuijinqiao

.版本 2
.支持库 internet

.子程序 __启动窗口_创建完毕, 日期时间型
.局部变量 网络时间, 文本型
.局部变量 年, 整数型
.局部变量 月, 整数型
.局部变量 日, 整数型
.局部变量 时, 整数型
.局部变量 分, 整数型
.局部变量 秒, 整数型

网络时间 ＝ 到文本 (HTTP读文件 (“http://cgi.im.qq.com/cgi-bin/cgi_svrtime”))
年 ＝ 到整数 (取文本中间 (网络时间, 1, 4))
月 ＝ 到整数 (取文本中间 (网络时间, 6, 2))
日 ＝ 到整数 (取文本中间 (网络时间, 9, 2))
时 ＝ 到整数 (取文本中间 (网络时间, 12, 2))
分 ＝ 到整数 (取文本中间 (网络时间, 15, 2))
秒 ＝ 到整数 (取文本中间 (网络时间, 18, 2))
置现行时间 (指定时间 (年, 月, 日, 时, 分, 秒))
这是最简单的

然后

.版本 2
.支持库 internet
.支持库 spec

.程序集 窗口程序集1
.程序集变量 北京时间, 文本型
.程序集变量 转成时间, 日期时间型

.子程序 _时钟1_周期事件

标签_系统时间.标题 ＝ 到文本 (取现行时间 ())
标签_北京时间.标题 ＝ 到文本 (HTTP读文件 (“http://cgi.im.qq.com/cgi-bin/cgi_svrtime”))

.子程序 __启动窗口_创建完毕

时钟1.时钟周期 ＝ 1000

.子程序 _按钮1_被单击
.局部变量 sj, 文本型
.局部变量 wb1, 文本型, , "0"
.局部变量 wb2, 文本型, , "0"
.局部变量 wb3, 文本型, , "0"
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 c, 整数型
.局部变量 sj1, 文本型
.局部变量 sj2, 文本型
.局部变量 sj3, 文本型

sj ＝ 到文本 (HTTP读文件 (“http://cgi.im.qq.com/cgi-bin/cgi_svrtime”))
调试输出 (sj)
.如果真 (sj ＝ “”)
    _按钮1_被单击 ()
    返回 ()
.如果真结束
wb1 ＝ 分割文本 (sj, “ ”, )
.计次循环首 (取数组成员数 (wb1), a)
    .如果 (a ＝ 1)
        wb2 ＝ 分割文本 (wb1 [a], “-”, )
    .否则
        wb3 ＝ 分割文本 (wb1 [a], “:”, )
    .如果结束

.计次循环尾 ()

子文本替换 (wb2 [2], “0”, “”, , , 真)
sj1 ＝ wb2 [1] ＋ “年” ＋ wb2 [2] ＋ “月” ＋ wb2 [3] ＋ “日”
sj2 ＝ wb3 [1] ＋ “时” ＋ wb3 [2] ＋ “分钟” ＋ wb3 [3] ＋ “秒”
sj3 ＝ sj1 ＋ sj2
调试输出 (sj3)
置现行时间 (到时间 (“2017年02月14日20时28分钟17秒”))

冯古屋

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
北京时间	文本型
转成时间	日期时间型

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

标签_系统时间.标题 ＝ 到文本 (取现行时间 ())
标签_北京时间.标题 ＝ 到文本 (取北京时间 ())

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

时钟1.时钟周期 ＝ 1000

子程序名	返回值类型	公开	备 注
_按钮1_被单击

置现行时间 (到时间 (标签_北京时间.标题))

子程序名	返回值类型	公开	备 注
取北京时间	日期时间型

变量名	类 型	静态	数组	备 注
局_返回数据	文本型
局_数值	文本型

局_返回数据 ＝ 到文本 (HTTP读文件 (“http://biaozhunshijian.51240.com ... nshijian/time.js/?/”))
局_返回数据 ＝ 子文本替换 (局_返回数据, “window.baidu_time({” ＋ #引号 ＋ “time” ＋ #引号 ＋ “:”, “”, , , 真)  ' window.baidu_time({"time":
局_返回数据 ＝ 子文本替换 (局_返回数据, “});”, “”, , , 真)
调试输出 (局_返回数据)
返回 (增减时间 ([1970年1月1日8时], #秒, 到数值 (局_返回数据) ÷ 1000))

i支持库列表	支持库注释
internet	互联网支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 internet<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 北京时间, 文本型<br /> .程序集变量 转成时间, 日期时间型<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 标签_系统时间.标题 ＝ 到文本 (取现行时间 ())<br /> 标签_北京时间.标题 ＝ 到文本 (取北京时间 ())<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 时钟1.时钟周期 ＝ 1000<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 置现行时间 (到时间 (标签_北京时间.标题))<br /> <br /> <br /> .子程序 取北京时间, 日期时间型<br /> .局部变量 局_返回数据, 文本型<br /> .局部变量 局_数值, 文本型<br /> <br /> 局_返回数据 ＝ 到文本 (HTTP读文件 (“<a href="http://biaozhunshijian.51240.com/web_system/51240_com_www/system/file/biaozhunshijian/time.js/?/" rel="nofollow" rel="nofollow" target="_blank">http://biaozhunshijian.51240.com ... nshijian/time.js/?/</a>”))<br /> 局_返回数据 ＝ 子文本替换 (局_返回数据, “window.baidu_time({” ＋ #引号 ＋ “time” ＋ #引号 ＋ “:”, “”, , , 真)  ' window.baidu_time({"time":<br /> 局_返回数据 ＝ 子文本替换 (局_返回数据, “});”, “”, , , 真)<br /> 调试输出 (局_返回数据)<br /> 返回 (增减时间 ([1970年1月1日8时], #秒, 到数值 (局_返回数据) ÷ 1000))