获取网络时间问题

LEAYS

有时获取结果会出现100年1月1日，代码如下

  

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

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

返回文本 ＝ 到文本 (HTTP读文件 (“http://cgi.im.qq.com/cgi-bin/cgi_svrtime”))
延迟 (300)
返回文本 ＝ 子文本替换 (返回文本, “ ”, “”, , , 真)
返回文本 ＝ 子文本替换 (返回文本, “-”, “”, , , 真)
返回文本 ＝ 子文本替换 (返回文本, “:”, “”, , , 真)
时间 ＝ 到时间 (到文本 (到长整数 (返回文本)))
返回 (时间)

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

.版本 2<br /> .支持库 internet<br /> .支持库 spec<br /> <br /> .子程序 取网络时间, 日期时间型, 公开<br /> .局部变量 返回文本, 文本型<br /> .局部变量 时间, 日期时间型<br /> <br /> 返回文本 ＝ 到文本 (HTTP读文件 (“<a href="http://cgi.im.qq.com/cgi-bin/cgi_svrtime" rel="nofollow" rel="nofollow" target="_blank">http://cgi.im.qq.com/cgi-bin/cgi_svrtime</a>”))<br /> 延迟 (300)<br /> 返回文本 ＝ 子文本替换 (返回文本, “ ”, “”, , , 真)<br /> 返回文本 ＝ 子文本替换 (返回文本, “-”, “”, , , 真)<br /> 返回文本 ＝ 子文本替换 (返回文本, “:”, “”, , , 真)<br /> 时间 ＝ 到时间 (到文本 (到长整数 (返回文本)))<br /> 返回 (时间)

大司命

  

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

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

循环判断首 ()
返回文本 ＝ 到文本 (HTTP读文件 (“http://cgi.im.qq.com/cgi-bin/cgi_svrtime”))
延迟 (300)
循环判断尾 (寻找文本 (返回文本, “502 Bad Gateway”, , 假) ≠ -1)
返回文本 ＝ 子文本替换 (返回文本, “ ”, “”, , , 真)
返回文本 ＝ 子文本替换 (返回文本, “-”, “”, , , 真)
返回文本 ＝ 子文本替换 (返回文本, “:”, “”, , , 真)
时间 ＝ 到时间 (到文本 (到长整数 (返回文本)))
返回 (时间)

.子程序 取网络时间, 日期时间型, 公开<br /> .局部变量 返回文本, 文本型<br /> .局部变量 时间, 日期时间型<br /> .循环判断首 ()<br />     返回文本 ＝ 到文本 (HTTP读文件 (“<a href="http://cgi.im.qq.com/cgi-bin/cgi_svrtime" rel="nofollow" rel="nofollow" target="_blank">http://cgi.im.qq.com/cgi-bin/cgi_svrtime</a>”))<br />     延迟 (300)<br /> .循环判断尾 (寻找文本 (返回文本, “502 Bad Gateway”, , 假) ≠ -1)<br /> 返回文本 ＝ 子文本替换 (返回文本, “ ”, “”, , , 真)<br /> 返回文本 ＝ 子文本替换 (返回文本, “-”, “”, , , 真)<br /> 返回文本 ＝ 子文本替换 (返回文本, “:”, “”, , , 真)<br /> 时间 ＝ 到时间 (到文本 (到长整数 (返回文本)))<br /> 返回 (时间)

竹竹

  

子程序名	返回值类型	公开	备 注
取网络时间	文本型

变量名	类 型	静态	数组	备 注
return	文本型

return ＝ 到文本 (HTTP读文件 (“http://cgi.im.qq.com/cgi-bin/cgi_svrtime”))
如果 (return ＝ “”)
return ＝ “”
return ＝ 子文本替换 (return, 字符 (10), “”, 寻找文本 (return, 字符 (10), , 假), , 真)
调试输出 (到时间 (return))
返回 (return)

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

.版本 2<br /> .支持库 internet<br /> .支持库 spec<br /> <br /> .子程序 取网络时间, 文本型<br /> .局部变量 return, 文本型<br /> <br /> return ＝ 到文本 (HTTP读文件 (“<a href="http://cgi.im.qq.com/cgi-bin/cgi_svrtime" rel="nofollow" rel="nofollow" target="_blank">http://cgi.im.qq.com/cgi-bin/cgi_svrtime</a>”))<br /> .如果 (return ＝ “”)<br />     return ＝ “”<br /> .否则<br />     return ＝ 子文本替换 (return, 字符 (10), “”, 寻找文本 (return, 字符 (10), , 假), , 真)<br /> .如果结束<br /> 调试输出 (到时间 (return))<br /> 返回 (return)