请教一个获取网络时间的问题

sosoby

各位老师中午好。我现在有这样一个问题：我的程序界面上有时间显示。我想优先获取网络时间显示在上面 ，获取不到网络时间的话，就用本地时间。因为要实时显示，所以我把获取网络时间放在了时钟事件里。这样的话，请求网络实在太多，我觉得是有问题的。
想法是这样的。请求一次网络获取到网络时间后，之后显示的时间都基于获取到的网络时间来走。这个实现起来容易么？请各位老师不吝赐教。谢谢！

雨落无声

同步京东时间.e (6.94 KB, 下载次数: 7)

2021-6-30 19:04 上传

点击文件名下载附件

这是我原来写关于京东程序使用的同步时间！大致原理是京东返回的是一个毫秒级的时间戳！get到这个时间保存起来同时获取启动时间，时钟周期下重新获取启动时间-之前保存的启动时间，将之前get到的时间戳加上启动时间差就是现行时间！

梅钏酷紫

没看懂

meng9934

demo.e (871.74 KB, 下载次数: 18)

2021-6-30 12:13 上传

点击文件名下载附件

sosoby

梅钏酷紫 发表于 2021-6-30 12:07
没看懂

额，就是在少请求网络的情况下，获取网络时间，然后实时显示在程序界面上。这样的话我说明白了么？

小羊要吃狼

  

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

变量名	类 型	静态	数组	备 注
北京时间	文本型

北京时间 ＝ 文本_取出中间文本 (编码_utf8到gb2312 (到文本 (HTTP读文件 (“http://time.tianqi.com/beijing/”))), #前, #后, , )
如果 (北京时间 ＝ “”)
调试输出 (取现行时间 ())
调试输出 (北京时间)

常量名称	常量值	公 开	备 注
前	<文本长度: 27>
后	<文本长度: 5>

简简单单，你看看，记得给好评哦

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

.版本 2<br /> .支持库 internet<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 北京时间, 文本型<br /> <br /> 北京时间 ＝ 文本_取出中间文本 (编码_utf8到gb2312 (到文本 (HTTP读文件 (“http://time.tianqi.com/beijing/”))), #前, #后, , )<br /> .如果 (北京时间 ＝ “”)<br />     调试输出 (取现行时间 ())<br /> .否则<br />     调试输出 (北京时间)<br /> .如果结束<br /> <br /> .版本 2<br /> <br /> .常量 前, "<文本长度: 27>"<br /> .常量 后, "<文本长度: 5>"<br /> <br /> <br /> <br /> <br /> 简简单单，你看看，记得给好评哦

补充内容 (2021-6-30 12:30):
文本常量"前"的内容：<th colspan="2" id="clock">
文本常量"后"的内容：</th>

复制出来格式变了，你新建两个文本常量复制进去就行

小羊要吃狼

还是发出来源码吧，怕你不会复制

帅气与大侠

  

子程序名	返回值类型	公开	备 注
_时钟1_周期事件			时钟周期应设置为1000，也就是一秒

变量名	类 型	静态	数组	备 注
北京时间	日期时间型			如果复制的代码为勾选静态，请自行勾选上“静态”
是否获取到网络时间	逻辑型			如果复制的代码为勾选静态，请自行勾选上“静态”

判断 (是否获取到网络时间 ＝ 假)
北京时间 ＝ 时间_取北京时间 ()
判断 (北京时间 ＜ [1971年1月1日])  ' 如果获取北京时间失败，则取用本地电脑时间
北京时间 ＝ 取现行时间 ()
是否获取到网络时间 ＝ 假
是否获取到网络时间 ＝ 真

北京时间 ＝ 增减时间 (北京时间, #秒, 1)  ' 从第二次开始，就自增时间1秒
调试输出 (北京时间)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _时钟1_周期事件, , , 时钟周期应设置为1000，也就是一秒<br /> .局部变量 北京时间, 日期时间型, 静态, , 如果复制的代码为勾选静态，请自行勾选上“静态”<br /> .局部变量 是否获取到网络时间, 逻辑型, 静态, , 如果复制的代码为勾选静态，请自行勾选上“静态”<br /> <br /> .判断开始 (是否获取到网络时间 ＝ 假)<br />     北京时间 ＝ 时间_取北京时间 ()<br />     .判断开始 (北京时间 ＜ [1971年1月1日])  ' 如果获取北京时间失败，则取用本地电脑时间<br />         北京时间 ＝ 取现行时间 ()<br />         是否获取到网络时间 ＝ 假<br />     .默认<br />         是否获取到网络时间 ＝ 真<br /> <br />     .判断结束<br /> <br /> .默认<br />     北京时间 ＝ 增减时间 (北京时间, #秒, 1)  ' 从第二次开始，就自增时间1秒<br /> <br /> .判断结束<br /> 调试输出 (北京时间)

小羊要吃狼

  

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

变量名	类 型	静态	数组	备 注
北京时间	文本型

北京时间 ＝ 文本_取出中间文本 (编码_utf8到gb2312 (到文本 (HTTP读文件 (“http://time.tianqi.com/beijing/”))), “”, “”, , )
如果 (北京时间 ＝ “”)
调试输出 (取现行时间 ())
调试输出 (北京时间)

‘优化了一下，一行搞定，自己加一个精易模块

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

.版本 2<br /> .支持库 internet<br /> .支持库 spec<br /> <br /> .子程序 取时间<br /> .局部变量 北京时间, 文本型<br /> <br /> 北京时间 ＝ 文本_取出中间文本 (编码_utf8到gb2312 (到文本 (HTTP读文件 (“http://time.tianqi.com/beijing/”))), “”, “”, , )<br /> .如果 (北京时间 ＝ “”)<br />     调试输出 (取现行时间 ())<br /> .否则<br />     调试输出 (北京时间)<br /> .如果结束<br /> <br /> ‘优化了一下，一行搞定，自己加一个精易模块

小生小白

“先对比一下本机时间和网络时间，计算出时间差

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
a	整数型
b	整数型
本机时间	文本型
网络时间	文本型

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

时钟1.时钟周期 ＝ 1000
a ＝ 取整 (取时间间隔 (时间_取北京时间 (), 取现行时间 (), #分钟 ))
b ＝ 取整 (取时间间隔 (时间_取北京时间 (), 取现行时间 (), #秒 ))
调试输出 (a, b)

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

本机时间 ＝ 到文本 (增减时间 (取现行时间 (), 7, a))
本机时间 ＝ 到文本 (增减时间 (取现行时间 (), 8, b))
网络时间 ＝ 到文本 (时间_取北京时间 ())  ' 为了参照对比检验
调试输出 (“网络时间：” ＋ 网络时间)
调试输出 (“本机时间” ＋ 本机时间)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 a, 整数型<br /> .程序集变量 b, 整数型<br /> .程序集变量 本机时间, 文本型<br /> .程序集变量 网络时间, 文本型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 时钟1.时钟周期 ＝ 1000<br /> a ＝ 取整 (取时间间隔 (时间_取北京时间 (), 取现行时间 (), #分钟))<br /> b ＝ 取整 (取时间间隔 (时间_取北京时间 (), 取现行时间 (), #秒))<br /> 调试输出 (a, b)<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 本机时间 ＝ 到文本 (增减时间 (取现行时间 (), 7, a))<br /> 本机时间 ＝ 到文本 (增减时间 (取现行时间 (), 8, b))<br /> 网络时间 ＝ 到文本 (时间_取北京时间 ())  ' 为了参照对比检验<br /> 调试输出 (“网络时间：” ＋ 网络时间)<br /> 调试输出 (“本机时间” ＋ 本机时间)

补充内容 (2021-6-30 12:43):
精易模块