易语言 取网络时间（纯数字型的）

以下代码就是你想要的别看起来很复杂他们都是重复的··因为要取年份，月份，日，小时，分钟，秒所以才这么长的： 透明标签1标题 ＝ 到文本 (取年份 (取现行时间 ())) ＋ 到文本 (取月份 (取现行时间 ())) ＋ 到文本 (取日 (取现行时间 ())) ＋ 到文本 (取小时 (取现行时间 ())) ＋ 到文本 (取分钟 (取现行时间 ())) ＋ 到文本 (取秒 (取现行时间 ()))

版本 2
子程序 _时钟1_周期事件
时钟1时钟周期=1
标签1标题 ＝ 到文本 (取现行时间 ())
直接复制粘帖就行了

这个时间是动态 不是死的

版本 2
支持库 internet
子程序 取网络时间, 文本型, 公开, 成功返回一个时间文本 失败反回 “”
局部变量 网页文本, 文本型
局部变量 文本数组, 文本型, , "0"
局部变量 日期临时, 文本型, , "0"
局部变量 时间临时, 文本型, , "0"
局部变量 时间, 文本型
处理事件 ()
网页文本 ＝ 到文本 (>版本 2
子程序 时间_取时间标记, 文本型, 公开, 返回时间标记
局部变量 time, 日期时间型
局部变量 s, 文本型
局部变量 f, 文本型
局部变量 m, 文本型
time ＝ 时间_取北京时间 ()
s ＝ 到文本 (取小时 (time))
f ＝ 到文本 (取分钟 (time))
m ＝ 到文本 (取秒 (time))
如果真 (取文本长度 (s) ＜ 2)
    s ＝ “0” ＋ s
如果真结束
如果真 (取文本长度 (f) ＜ 2)
    f ＝ “0” ＋ f
如果真结束
如果真 (取文本长度 (m) ＜ 2)
    m ＝ “0” ＋ m
如果真结束
返回 (s ＋ “:” ＋ f ＋ “:” ＋ m))
 
子程序 时间_取北京时间, 日期时间型, 公开, 联网取北京时间
局部变量 返回文本, 文本型
局部变量 取出的时间, 文本型
局部变量 时间, 日期时间型
返回文本 ＝ 到文本 (>返回 (时间)

先在窗口那创一个编辑框
双击窗口
进入
__启动窗口_创建完毕
编辑页面
输入
编辑框1内容
＝
到文本
(取现行时间
())
有问题
QQ865986590

---