取北京时间，不知道这个效率还行不行。网络获取北京时间。

墨晨

  

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

变量名	类 型	静态	数组	备 注
t	双精度小数型
日期文本	文本型

t ＝ 取启动时间 ()
日期文本 ＝ 功能_网页访问 ()
输出调试文本 (取文本左边 (日期文本, 16) ＋ “星期” ＋ 取文本右边 (日期文本, 1))
输出调试文本 (“0|” ＋ 到文本 (取启动时间 () － t))

子程序名	返回值类型	公开	备 注
功能_网页访问	文本型		网络时间无需取到秒无法精确到秒有误差

变量名	类 型	静态	数组	备 注
局_网址	文本型
局_方式	整数型
局_结果	字节集
局_返回	文本型
局_时间数组	文本型		0
局_i	整数型
局_新时间	文本型
局_北京时间	文本型
局_星期数	文本型

局_网址 ＝ “http://time1903.beijing-time.org/time.asp”
局_方式 ＝ 0
局_结果 ＝ 网页_访问 (局_网址, 局_方式)
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))
文本_取中间_批量 (局_返回, “=”, “;”, 局_时间数组, , , , , , , )
局_i ＝ 2
判断循环首 (取数组成员数 (局_时间数组) ＞ 局_i)
处理事件 ()
判断 (取文本长度 (局_时间数组 [局_i]) ＜ 2)
局_新时间 ＝ “0” ＋ 到文本 (局_时间数组 [局_i])
局_新时间 ＝ 局_时间数组 [局_i]
判断 (局_i ＝ 2)
局_北京时间 ＝ 局_新时间
判断 (局_i ＝ 5)
局_星期数 ＝ 局_时间数组 [局_i]
局_北京时间 ＝ 局_北京时间 ＋ “-” ＋ 局_新时间
局_i ＝ 局_i ＋ 1
判断循环尾 ()
返回 (局_北京时间 ＋ “|” ＋ 局_星期数)

.版本 2<br /> <br /> .子程序 获取北京时间<br /> .局部变量 t, 双精度小数型<br /> .局部变量 日期文本, 文本型<br /> <br /> t ＝ 取启动时间 ()<br /> 日期文本 ＝ 功能_网页访问 ()<br /> 输出调试文本 (取文本左边 (日期文本, 16) ＋ “星期” ＋ 取文本右边 (日期文本, 1))<br /> 输出调试文本 (“0|” ＋ 到文本 (取启动时间 () － t))<br /> <br /> .子程序 功能_网页访问, 文本型, , 网络时间无需取到秒无法精确到秒有误差<br /> .局部变量 局_网址, 文本型<br /> .局部变量 局_方式, 整数型<br /> .局部变量 局_结果, 字节集<br /> .局部变量 局_返回, 文本型<br /> .局部变量 局_时间数组, 文本型, , "0"<br /> .局部变量 局_i, 整数型<br /> .局部变量 局_新时间, 文本型<br /> .局部变量 局_北京时间, 文本型<br /> .局部变量 局_星期数, 文本型<br /> <br /> 局_网址 ＝ “http://time1903.beijing-time.org/time.asp”<br /> 局_方式 ＝ 0<br /> 局_结果 ＝ 网页_访问 (局_网址, 局_方式)<br /> 局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))<br /> 文本_取中间_批量 (局_返回, “=”, “;”, 局_时间数组, , , , , , , )<br /> 局_i ＝ 2<br /> .判断循环首 (取数组成员数 (局_时间数组) ＞ 局_i)<br />     处理事件 ()<br />     .判断开始 (取文本长度 (局_时间数组 [局_i]) ＜ 2)<br />         局_新时间 ＝ “0” ＋ 到文本 (局_时间数组 [局_i])<br />     .默认<br />         局_新时间 ＝ 局_时间数组 [局_i]<br />     .判断结束<br />     .判断开始 (局_i ＝ 2)<br />         局_北京时间 ＝ 局_新时间<br />     .默认<br />         .判断开始 (局_i ＝ 5)<br />             局_星期数 ＝ 局_时间数组 [局_i]<br />         .默认<br />             局_北京时间 ＝ 局_北京时间 ＋ “-” ＋ 局_新时间<br />         .判断结束<br /> <br />     .判断结束<br />     局_i ＝ 局_i ＋ 1<br /> .判断循环尾 ()<br /> 返回 (局_北京时间 ＋ “|” ＋ 局_星期数)

别问我为什么不转换为时间格式的，易语言和其它语言，进行合作使用的时候，就经常出现，需要把易语言的时间转换成非中文的时间，有些麻烦还不如直接用非中文的。
里面顺便把星期一块取出来了。大神们看看代码还有什么可以优化的。现在喜欢搞单功能优化了。

墨晨

  

子程序名	返回值类型	公开	备 注
墨晨	文本型

变量名	类 型	静态	数组	备 注
t	双精度小数型
http	WinHttpW
日期文本	文本型

日期文本 ＝ 功能_网页访问 ()
返回 (取文本左边 (日期文本, 16) ＋ “星期” ＋ 取文本右边 (日期文本, 1))

子程序名	返回值类型	公开	备 注
功能_网页访问	文本型		网络时间无需取到秒无法精确到秒有误差

变量名	类 型	静态	数组	备 注
局_网址	文本型
局_方式	整数型
局_结果	字节集
局_返回	文本型
局_时间数组	文本型		0
局_i	整数型
局_新时间	文本型
局_北京时间	文本型
局_星期数	文本型

局_网址 ＝ “http://time1903.beijing-time.org/time.asp”
局_方式 ＝ 0
局_结果 ＝ 网页_访问 (局_网址, 局_方式)
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))
文本_取中间_批量 (局_返回, “=”, “;”, 局_时间数组, , , , , , , )
局_i ＝ 2
判断循环首 (取数组成员数 (局_时间数组) ＞ 局_i)
处理事件 ()
判断 (取文本长度 (局_时间数组 [局_i]) ＜ 2)
局_新时间 ＝ “0” ＋ 到文本 (局_时间数组 [局_i])
局_新时间 ＝ 局_时间数组 [局_i]
判断 (局_i ＝ 2)
局_北京时间 ＝ 局_新时间
判断 (局_i ＝ 5)
局_星期数 ＝ 局_时间数组 [局_i]
局_北京时间 ＝ 局_北京时间 ＋ “-” ＋ 局_新时间
局_i ＝ 局_i ＋ 1
判断循环尾 ()
返回 (局_北京时间 ＋ “|” ＋ 局_星期数)

子程序名	返回值类型	公开	备 注
骇客技术	文本型

变量名	类 型	静态	数组	备 注
http	WinHttpW

http.Auto ()
http.Open (“HEAD”, “http://time1903.beijing-time.org/time.asp”)
http.Send (, , )
' http.GetResponseHeader (“Date”)
返回 (http.GetResponseHeader (“Date”))

子程序名	返回值类型	公开	备 注
yppy988现在时间	日期时间型

变量名	类 型	静态	数组	备 注
时间	文本型
L1	整数型
L2	整数型

时间 ＝ 到文本 (HTTP读文件 (“http://quan.suning.com/getSysTime.do”))
如果真 (时间 ＝ “”)
返回 (取现行时间 ())
L1 ＝ 寻找文本 (时间, #引号 ＋ “:” ＋ #引号, , 假) ＋ 3
L2 ＝ 寻找文本 (时间, #引号, L1, 假)
返回 (到时间 (取文本中间 (时间, L1, L2 － L1)))

子程序名	返回值类型	公开	备 注
墨晨2	文本型

变量名	类 型	静态	数组	备 注
时间字节集	字节集

时间字节集 ＝ HTTP读文件 (“http://quan.suning.com/getSysTime.do”)
判断 (时间字节集 ＝ {  })
返回 (“”)



返回 (取文本左边 (取文本右边 (到文本 (时间字节集), 16), 14))

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

.版本 2<br /> .支持库 internet<br /> <br /> .子程序 墨晨, 文本型<br /> .局部变量 t, 双精度小数型<br /> .局部变量 http, WinHttpW<br /> .局部变量 日期文本, 文本型<br /> <br /> <br /> 日期文本 ＝ 功能_网页访问 ()<br /> 返回 (取文本左边 (日期文本, 16) ＋ “星期” ＋ 取文本右边 (日期文本, 1))<br /> <br /> <br /> <br /> .子程序 功能_网页访问, 文本型, , 网络时间无需取到秒无法精确到秒有误差<br /> .局部变量 局_网址, 文本型<br /> .局部变量 局_方式, 整数型<br /> .局部变量 局_结果, 字节集<br /> .局部变量 局_返回, 文本型<br /> .局部变量 局_时间数组, 文本型, , "0"<br /> .局部变量 局_i, 整数型<br /> .局部变量 局_新时间, 文本型<br /> .局部变量 局_北京时间, 文本型<br /> .局部变量 局_星期数, 文本型<br /> <br /> 局_网址 ＝ “http://time1903.beijing-time.org/time.asp”<br /> 局_方式 ＝ 0<br /> 局_结果 ＝ 网页_访问 (局_网址, 局_方式)<br /> 局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))<br /> 文本_取中间_批量 (局_返回, “=”, “;”, 局_时间数组, , , , , , , )<br /> 局_i ＝ 2<br /> .判断循环首 (取数组成员数 (局_时间数组) ＞ 局_i)<br />     处理事件 ()<br />     .判断开始 (取文本长度 (局_时间数组 [局_i]) ＜ 2)<br />         局_新时间 ＝ “0” ＋ 到文本 (局_时间数组 [局_i])<br />     .默认<br />         局_新时间 ＝ 局_时间数组 [局_i]<br />     .判断结束<br />     .判断开始 (局_i ＝ 2)<br />         局_北京时间 ＝ 局_新时间<br />     .默认<br />         .判断开始 (局_i ＝ 5)<br />             局_星期数 ＝ 局_时间数组 [局_i]<br />         .默认<br />             局_北京时间 ＝ 局_北京时间 ＋ “-” ＋ 局_新时间<br />         .判断结束<br /> <br />     .判断结束<br />     局_i ＝ 局_i ＋ 1<br /> .判断循环尾 ()<br /> 返回 (局_北京时间 ＋ “|” ＋ 局_星期数)<br /> <br /> <br /> .子程序 骇客技术, 文本型<br /> .局部变量 http, WinHttpW<br /> <br /> http.Auto ()<br /> http.Open (“HEAD”, “http://time1903.beijing-time.org/time.asp”)<br /> http.Send (, , )<br /> ' http.GetResponseHeader (“Date”)<br /> 返回 (http.GetResponseHeader (“Date”))<br /> <br /> .子程序 yppy988现在时间, 日期时间型<br /> .局部变量 时间, 文本型<br /> .局部变量 L1, 整数型<br /> .局部变量 L2, 整数型<br /> <br /> 时间 ＝ 到文本 (HTTP读文件 (“http://quan.suning.com/getSysTime.do”))<br /> .如果真 (时间 ＝ “”)<br />     返回 (取现行时间 ())<br /> .如果真结束<br /> L1 ＝ 寻找文本 (时间, #引号 ＋ “:” ＋ #引号, , 假) ＋ 3<br /> L2 ＝ 寻找文本 (时间, #引号, L1, 假)<br /> 返回 (到时间 (取文本中间 (时间, L1, L2 － L1)))<br /> <br /> .子程序 墨晨2, 文本型<br /> .局部变量 时间字节集, 字节集<br /> <br /> 时间字节集 ＝ HTTP读文件 (“http://quan.suning.com/getSysTime.do”)<br /> .判断开始 (时间字节集 ＝ {  })<br />     返回 (“”)<br /> <br /> .默认<br /> <br />     返回 (取文本左边 (取文本右边 (到文本 (时间字节集), 16), 14))<br /> .判断结束

墨晨2借用了易友

yppy988 提供的网站获取信息。效率都一样了。只能看截取字符串的效率了。用json解析不知道会不会快一些。

1326554131

66666666666666666666666666

你不丑

oippio;iiuiou

iAmBition

新技能已get√

asy

新技能已get√

xu2644

1211111111111111111111111111111111111111111

sostemp

新技能已get√

墨晨

kmskik 发表于 2019-6-1 16:53
用精易模块的不就行了

我测出精易模块的效率太低了500毫秒出结果

kmskik

用精易模块的不就行了

墨晨

骇客技术 发表于 2019-5-31 17:07
.版本 2

.局部变量 http, WinInet

但是头部返回的时间好像不准