时间_取NTP服务器时间戳

项目部004 · 发表于 2021-9-30 10:55:41

子程序名	返回值类型	公开	备注
时间_取NTP服务器时间戳	长整数型		通过NTP服务器获取网络时间！成功返回10位数的时间戳，失败返回-1。
参数名	类型	参考	可空	数组	备注
NTP服务器	文本型				time.windows.com

变量名	类型	静态	数组	备注
aryTimeURL	文本型		0
len	整数型
i	整数型
nTimestamp	文本型

置随机数种子 ()
加入成员 (aryTimeURL, “cn.ntp.org.cn”)
加入成员 (aryTimeURL, “time” ＋到文本 (取随机数 (1, 5)) ＋ “.cloud.tencent.com”)  ' TX云
加入成员 (aryTimeURL, “ntp.ntsc.ac.cn”)  ' ntp.ntsc.ac.cn 国家授时中心
加入成员 (aryTimeURL, “time.pool.aliyun.com”)  ' time.pool.aliyun.com 阿里云
加入成员 (aryTimeURL, “ntp” ＋到文本 (取随机数 (1, 5)) ＋ “.aliyun.com”)  ' ntp(1-5).aliyun.com 阿里云
加入成员 (aryTimeURL, “time” ＋到文本 (取随机数 (1, 5)) ＋ “.aliyun.com”)  ' time1-5.aliyun.com 阿里云
加入成员 (aryTimeURL, 到文本 (取随机数 (0, 3)) ＋ “.north-america.pool.ntp.org”)  ' 0.north-america.pool.ntp.org 北美NTP
加入成员 (aryTimeURL, 到文本 (取随机数 (0, 3)) ＋ “.europe.pool.ntp.org”)  ' 0.europe.pool.ntp.org 欧洲TP
len ＝取数组成员数 (aryTimeURL)

计次循环首 (len, i)

nTimestamp ＝到文本 (时间_取NTP服务器时间戳 (aryTimeURL [ i ]))

调试输出 (aryTimeURL [ i ], nTimestamp, 时间_时间戳转文本 (nTimestamp, ))

计次循环尾 ()