数据报UDP获取NTP服务器UNIX时间戳！ - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
网络数据报1	网络数据报		网络通讯支持库（2.0#2版）

子程序名	返回值类型	公开	备注
_按钮_数据报_被单击			核心库,窗口组件,数据报

数据报1.发送数据 (“time.windows.com”, 123, 取重复字节集 (48, { 27 }))

子程序名	返回值类型	公开	备注
_数据报1_数据到达

调试输出 (“数据报”, NTP协议解析 (数据报1.取回数据 (), 假))

子程序名	返回值类型	公开	备注
_按钮_网络数据报_被单击

变量名	类型	静态	数组	备注
NTP	对方信息

网络数据报1.配置 (0)  ' 自动分配本网络数据报的端口号
NTP.对方IP ＝转换为IP地址 (“time.windows.com”)  ' 域名转ip
NTP.对方端口＝ 123  ' 固定端口号

如果真 (网络数据报1.发送 (NTP, 取重复字节集 (48, { 27 }), 500)) ' 固定协议格式,长度48

调试输出 (“网络数据报”, NTP协议解析 (网络数据报1.接收 (500, NTP, ), 真))
网络数据报1.关闭 ()

子程序名	返回值类型	公开	备注
NTP协议解析	文本型		返回“”表示失败
参数名	类型	参考	可空	数组	备注
时间戳字段	字节集
精确到毫秒	逻辑型

变量名	类型	静态	数组	备注
NTP时间戳整数秒	长整数型
UNIX时间戳	长整数型
NTP时间戳小数秒	文本型
局_返回	文本型

如果真 (取字节集长度 (时间戳字段) ＝ 48)

NTP时间戳整数秒＝取字节集数据 (到字节集 (反转整数字节序 (取字节集数据 (时间戳字段, #整数型, 41))), #长整数型, ) ' NTP时间戳从1900年1月1日开始计时

UNIX时间戳＝ NTP时间戳整数秒－ 2208988800 ' UNIX时间戳从1970年1月1日开始计时,需减70年的秒数差

判断 (精确到毫秒)

NTP时间戳小数秒＝到文本 (四舍五入 (取字节集数据 (到字节集 (反转整数字节序 (取字节集数据 (时间戳字段, #整数型, 45))), #长整数型, ) ÷ 4294967296, 3) × 1000)

局_返回＝到文本 (UNIX时间戳) ＋ NTP时间戳小数秒

局_返回＝到文本 (UNIX时间戳)

返回 (局_返回)

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

_按钮_数据报_被单击 ()
_按钮_网络数据报_被单击 ()
' NTP服务器：
' “time.windows.com”
' “cn.ntp.org.cn”
' “time1.cloud.tencent.com”
' “ntp.ntsc.ac.cn”
' “time.pool.aliyun.com”
' “ntp1.aliyun.com”
' “time1.aliyun.com”
' “0.north-america.pool.ntp.org”
' ”0.europe.pool.ntp.org”
' 开始运行被调试程序
' * “网络数据报” | “1761099130268”
' * “数据报” | “1761099130”
' * “网络数据报” | “1761099131250”
' * “数据报” | “1761099131”
' * “网络数据报” | “1761099132242”
' * “数据报” | “1761099132”
' * “网络数据报” | “1761099133237”
' * “数据报” | “1761099133”
' 被调试易程序运行完毕

i支持库列表	支持库注释
sock	网络通讯支持库
spec	特殊功能支持库

.版本 2<br />
.支持库 sock<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 网络数据报1, 网络数据报, , , 网络通讯支持库 （2.0#2版）<br />
<br />
.子程序 _按钮_数据报_被单击, , , 核心库,窗口组件,数据报<br />
<br />
数据报1.发送数据 (“time.windows.com”, 123, 取重复字节集 (48, { 27 }))<br />
<br />
.子程序 _数据报1_数据到达<br />
<br />
调试输出 (“数据报”, NTP协议解析 (数据报1.取回数据 (), 假))<br />
<br />
.子程序 _按钮_网络数据报_被单击<br />
.局部变量 NTP, 对方信息<br />
<br />
网络数据报1.配置 (0)  ' 自动分配本网络数据报的端口号<br />
NTP.对方IP ＝ 转换为IP地址 (“time.windows.com”)  ' 域名转ip<br />
NTP.对方端口 ＝ 123  ' 固定端口号<br />
.如果真 (网络数据报1.发送 (NTP, 取重复字节集 (48, { 27 }), 500))  ' 固定协议格式,长度48<br />
    调试输出 (“网络数据报”, NTP协议解析 (网络数据报1.接收 (500, NTP, ), 真))<br />
.如果真结束<br />
网络数据报1.关闭 ()<br />
<br />
.子程序 NTP协议解析, 文本型, , 返回“”表示失败<br />
.参数 时间戳字段, 字节集<br />
.参数 精确到毫秒, 逻辑型<br />
.局部变量 NTP时间戳整数秒, 长整数型<br />
.局部变量 UNIX时间戳, 长整数型<br />
.局部变量 NTP时间戳小数秒, 文本型<br />
.局部变量 局_返回, 文本型<br />
<br />
.如果真 (取字节集长度 (时间戳字段) ＝ 48)<br />
    NTP时间戳整数秒 ＝ 取字节集数据 (到字节集 (反转整数字节序 (取字节集数据 (时间戳字段, #整数型, 41))), #长整数型, )  ' NTP时间戳从1900年1月1日开始计时<br />
    UNIX时间戳 ＝ NTP时间戳整数秒 － 2208988800  ' UNIX时间戳从1970年1月1日开始计时,需减70年的秒数差<br />
    .判断开始 (精确到毫秒)<br />
        NTP时间戳小数秒 ＝ 到文本 (四舍五入 (取字节集数据 (到字节集 (反转整数字节序 (取字节集数据 (时间戳字段, #整数型, 45))), #长整数型, ) ÷ 4294967296, 3) × 1000)<br />
        局_返回 ＝ 到文本 (UNIX时间戳) ＋ NTP时间戳小数秒<br />
    .默认<br />
        局_返回 ＝ 到文本 (UNIX时间戳)<br />
    .判断结束<br />
<br />
.如果真结束<br />
返回 (局_返回)<br />
<br />
<br />
.子程序 _时钟1_周期事件<br />
<br />
_按钮_数据报_被单击 ()<br />
_按钮_网络数据报_被单击 ()<br />
<br />
' NTP服务器：<br />
' “time.windows.com”<br />
' “cn.ntp.org.cn”<br />
' “time1.cloud.tencent.com”<br />
' “ntp.ntsc.ac.cn”<br />
' “time.pool.aliyun.com”<br />
' “ntp1.aliyun.com”<br />
' “time1.aliyun.com”<br />
' “0.north-america.pool.ntp.org”<br />
' ”0.europe.pool.ntp.org”<br />
<br />
' 开始运行被调试程序<br />
' * “网络数据报” | “1761099130268”<br />
' * “数据报” | “1761099130”<br />
' * “网络数据报” | “1761099131250”<br />
' * “数据报” | “1761099131”<br />
' * “网络数据报” | “1761099132242”<br />
' * “数据报” | “1761099132”<br />
' * “网络数据报” | “1761099133237”<br />
' * “数据报” | “1761099133”<br />
' 被调试易程序运行完毕