易语言不需模块取北京时间

作者:流年 | 创建时间: 2023-08-08
北京时间接口通常不易获取,但我们可以通过网页获取,误差一般小于一秒。...
易语言不需模块取北京时间

操作方法

打开易语言,新建程序。从组件里拖入四个标签,三个编辑框,一个时钟,一个按钮。并对标签和启动窗口美化,编辑框可视设置为假。

找到提供北京时间的网页。打开网页,查看时间显示是否为北京时间,若是,记取网址,备用。

查看网页代码,寻找时间数据及其前后字符。本网站我们找到的一串阿拉伯数字。这串数字还需要加工,将里面的“.”去除,并只取“+”和英文“E”之前的数字。记取前后字符,它们将分别用作提取这串数字的分隔字符。

回到编程,在代码编辑器里输入如下的程序集变量和第一个第二个子程序变量及代码。 .版本 2.支持库 internet .程序集 窗口程序集1.程序集变量 计时, 整数型 .子程序 __启动窗口_创建完毕 时钟1.时钟周期 = 0计时 = 0 .子程序 _按钮1_被单击.局部变量 网页数据, 文本型.局部变量 数据分割, 文本型, , "0" 编辑框1.内容 = 到文本 (HTTP读文件 (“http://24timezones.com/zh_shi/beijing_shi_zhong.php”)).如果真 (取文本长度 (编辑框1.内容) > 500)    数据分割 = 分割文本 (编辑框1.内容, “childNodes[0], ”, )    网页数据 = 数据分割 [2]    数据分割 = 分割文本 (网页数据, “CurrentTime.F24”, )    网页数据 = 子文本替换 (数据分割 [1], “.”, , , , 真)    网页数据 = 取文本左边 (网页数据, 寻找文本 (网页数据, “+”, , 假) - 2)    编辑框2.内容 = 网页数据.如果真结束编辑框3.内容 = 到文本 (取现行时间 ())时钟1.时钟周期 = 1000

输入第二个子程序及代码。 .版本 2 .子程序 _时钟1_周期事件 .如果真 (计时 = 0)    计时 = 0.如果真结束计时 = 计时 + 1标签1.标题 = 到文本 (增减时间 ([1970年1月1日], #秒, 计时 + 到数值 (编辑框3.内容)))标签3.标题 = 到文本 (增减时间 (到时间 (编辑框3.内容), #秒, 计时)) 完毕之后,点击运行,就可以看到北京时间和本地时间,若误差较大,可以进行修正。也可用软件自动修正,看自己喜欢。

温馨提示

网络时间,尽量找比较稳定可靠的网站
多次测试,看看时间会不会显示出错。有的网站数据经过多次测试就会出错。这样的数据一般不可用。
点击展开全文

更多推荐