易语言取北京时间

1. 版本2. 支持库EXMLParser. 支持库internet. 程序集窗口程序集1. 子程序_按钮1_被单击
编辑框1. 内容 = 到文本(北京时间()).
2. 子程序 北京时间
文本型, 公开, 简单的获取北京时间。因网络延时可能会有1-2秒的误差。成功返回类似“2010年10月10日20时21分50秒”的格式，失败返回空文本。
3. 参数 是否同步本地时间
逻辑型, 可空, 选择是否更新本地机器缓存时间。
4. 局部变量 XML对象
文本型。
5. 局部变量 时间
文本型。
6. 局部变量 临时文本
文本型。
7. 是否同步本地时间 = 选择(是否为空(是否同步本地时间), 假, 是否同步本地时间)。
8. 如果真(取反(XML对象.导入(HTTP读文件(“http://www.time.ac.cn/timeflash.asp?user=flash”))))
返回(“”)。
9. 如果真结束
XML对象.取节点值(“@1/@1/year”, 临时文本)
时间 = 临时文本
XML对象.取节点值(“@1/@1/month”, 临时文本)
时间 = 时间 + “年” + 临时文本
XML对象.取节点值(“@1/@1/day”, 临时文本)
时间 = 时间 + “月” + 临时文本
XML对象.取节点值(“@1/@1/hour”, 临时文本)
时间 = 时间 + “日” + 临时文本
XML对象.取节点值(“@1/@1/minite”, 临时文本)
时间 = 时间 + “时” + 临时文本
XML对象.取节点值(“@1/@1/second”, 临时文本)
时间 = 时间 + “分” + 临时文本 + “秒”。
10. 如果真(是否同步本地时间)
置现行时间(到时间(时间))。
11. 如果真结束
返回(时间)。

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/yf3xrrxf3r2yjvx7ye.html