时间网取网络时间，永久可用，简单方便 源码

米米工具

对你有用的话，好评一下呗！

  

子程序名	返回值类型	公开	备 注
取网络时间	日期时间型		使用精易模块 网页_访问()

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

网络时间 ＝ 到时间 (“1970.01.01 08:00:00”)
返回文本 ＝ 到文本 (网页_访问 (“http://v.time.org.cn/com16/”, 0, , , , “VER:1.6”))  ' *1445824688062 必须附加协yi VER:1.6
如果真 (返回文本 ≠ “”)
返回文本 ＝ 取文本右边 (返回文本, 取文本长度 (返回文本) － 1)  ' 1445824688062
网络时间 ＝ 增减时间 (网络时间, #秒, 到整数 (到长整数 (返回文本) ÷ 1000))  ' 长整数才能容纳 毫秒时间戳
调试输出 (网络时间)
返回 (网络时间)  ' [2015年10月26日9时58分8秒]
返回 (网络时间)  ' 取出失败返回 [1970年01月01日8时]

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 取网络时间, 日期时间型, 公开, 使用精易模块 网页_访问()<br /> .局部变量 返回文本, 文本型<br /> .局部变量 网络时间, 日期时间型<br /> <br /> 网络时间 ＝ 到时间 (“1970.01.01 08:00:00”)<br /> 返回文本 ＝ 到文本 (网页_访问 (“http://v.time.org.cn/com16/”, 0, , , , “VER:1.6”))  ' *1445824688062 必须附加协yi VER:1.6<br /> .如果真 (返回文本 ≠ “”)<br />     返回文本 ＝ 取文本右边 (返回文本, 取文本长度 (返回文本) － 1)  ' 1445824688062<br />     网络时间 ＝ 增减时间 (网络时间, #秒, 到整数 (到长整数 (返回文本) ÷ 1000))  ' 长整数才能容纳 毫秒时间戳<br />     调试输出 (网络时间)<br />     返回 (网络时间)  ' [2015年10月26日9时58分8秒]<br /> .如果真结束<br /> 返回 (网络时间)  ' 取出失败返回 [1970年01月01日8时]

laniv

感谢分享。

無聞

用的什么模块

czg108

dddddddddddddddddd

Shanks

失效了好吗

Astranger

66666666666666666666666666

jr433

感谢楼主分享

逺屾暮色

地址已经失效了

逺的方

来学习下，可能需要

2446789312

By末凉 发表于 2015-11-10 11:50

  

[/quote]
[e=2].版本 2

子程序名	返回值类型	公开	备 注
时间_取网络时间	日期时间型		[2017年3月1日16时51分3秒]

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

返回时间 ＝ 到文本 (网页_访问 (“hhttp://92xx.top/time.asp”, , , , , , , , , ))
返回时间 ＝ 子文本替换 (返回时间, 字符 (10), , , , 真)
返回 (到时间 (返回时间))

i支持库列表	支持库注释
internet	互联网支持库

.版本 2<br /> .支持库 internet</blockquote></div><br /> [e=2].版本 2<br /> <br /> .子程序 时间_取网络时间, 日期时间型, 公开, [2017年3月1日16时51分3秒]<br /> .局部变量 返回时间, 文本型<br /> <br /> 返回时间 ＝ 到文本 (网页_访问 (“hhttp://92xx.top/time.asp”, , , , , , , , , ))<br /> 返回时间 ＝ 子文本替换 (返回时间, 字符 (10), , , , 真)<br /> 返回 (到时间 (返回时间))

je4h4d

收藏了