易语言怎么取网络时间

需要一个客户组件

客户1.连接 (“time-a.timefreq.bldrdoc.gov”, 13) '他的返回时间是英国格林威治时间

反馈代码如下

.版本 2

.子程序 _客户1_数据到达
.局部变量 取回数据, 文本型
.局部变量 时间, 文本型, , "0"
.局部变量 日期, 文本型, , "3"
.局部变量 sj1, 日期时间型

取回数据 ＝ 取字节集数据 (客户1.取回数据 (), #文本型, )
时间 ＝ 分割文本 (取回数据, “ ”, )
日期 ＝ 分割文本 (时间 [2], “-”, )
日期 [1] ＝ “20” ＋ 日期 [1]
sj1 ＝ 增减时间 (到时间 (日期 [1] ＋ “/” ＋ 日期 [2] ＋ “/” ＋ 日期 [3] ＋ “/” ＋ 时间 [3]), #小时, 8)
信息框 (sj1, 0, )
客户1.断开连接 ()