请问怎么取北京时间？

建霞情缘

请问怎么取北京时间啊？
要求按一下按钮就能返回当前北京时间到编辑框。

airpppp

回答问题,赏金拿来!

wbin502

.版本 2

.子程序 _按钮1_被单击
.局部变量 小时
.局部变量 分钟

小时 ＝ 取小时 (取现行时间 ())
分钟 ＝ 取分钟 (取现行时间 ())
编辑框1.内容 ＝ 到文本 (小时) ＋ “:” ＋ 到文本 (分钟)

伤残

回复 2# wbin502


    取现行时间
会不会只是去本地的时间呢？
如果把本地的时间修改了 和LZ要求就不一样了吧 他要的是北京时间

美丽龙

.版本 2
.支持库 INTERNET

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 网页文本, 文本型
.局部变量 文本数组, 文本型, , "0"
.局部变量 日期临时, 文本型, , "0"
.局部变量 时间临时, 文本型, , "0"
.局部变量 时间, 文本型

网页文本 ＝ 到文本 (HTTP读文件 (“http://www.time.ac.cn/stime.asp”))  ' 这个地址基本不会失效,大家放心  by enid
文本数组 ＝ 分割文本 (网页文本, “服务器时间:”, )
.如果真 (取数组成员数 (文本数组) ＜ 2)
    信息框 (“取网络时间失败！链接网络不成功！”, 0 ＋ #信息图标, “网络校时：”)
    标签1.标题 ＝ “取网络时间失败！”
    返回 ()
.如果真结束
网页文本 ＝ 文本数组 [2]
文本数组 ＝ 分割文本 (网页文本, “document.write('”, )
.如果真 (取数组成员数 (文本数组) ＜ 2)
    信息框 (“取网络时间失败！链接网络不成功！”, 0 ＋ #信息图标, “网络校时：”)
    标签1.标题 ＝ “取网络时间失败！”
    返回 ()
.如果真结束
日期临时 ＝ 分割文本 (文本数组 [3], “')”, )
时间 ＝ 日期临时 [1]
日期临时 ＝ 分割文本 (文本数组 [6], “var hrs = ”, )
时间临时 ＝ 分割文本 (日期临时 [2], “;”, )
时间 ＝ 时间 ＋ 时间临时 [1] ＋ “时”
日期临时 ＝ 分割文本 (文本数组 [6], “var min = ”, )
时间临时 ＝ 分割文本 (日期临时 [2], “;”, )
时间 ＝ 时间 ＋ 时间临时 [1] ＋ “分”
日期临时 ＝ 分割文本 (文本数组 [6], “var sec = ”, )
时间临时 ＝ 分割文本 (日期临时 [2], “;”, )
时间 ＝ 时间 ＋ 时间临时 [1] ＋ “秒”
标签1.标题 ＝ “现在的网络时间是：” ＋ 时间

美丽龙

我已经回答完毕  拿奖金咯{:3_242:}

啊兵

他要的是北京的时间 你们给的是本地的时间，把电脑搬到北京再用2楼的代码就是北京时间了{:3_235:}