.支持库 spec
.支持库 internet
调试输出 (时间_取北京时间 ())
置现行时间 (时间_取北京时间 ())
.子程序 时间_取北京时间, 日期时间型, 公开, 联网取北京时间
.局部变量 返回文本, 文本型
.局部变量 取出的时间, 文本型
.局部变量 时间, 日期时间型
返回文本 = 到文本 (HTTP读文件 (“https://gss0.baidu.com/8aQDcnSm2Q5IlBGlnYG/special/time/”))
取出的时间 = 文本_取出中间文本 (返回文本, “window.baidu_time(”, “)”)
时间 = 增减时间 ([1970年1月1日8时], #秒, 到数值 (取出的时间) ÷ 1000)
返回 (时间)
这个问题可以这样解决:写进去可以按照你的方法,读的时候把 读日期时间("shangbanshijia",日期) 改为 读文本("shangbanshijia",日期)(日期为文本型) 超级列表框1.置标题 (超级列表框1.取表项数 () - 1, 1, 到文本(日期)) 改成 超级列表框1.置标题 (超级列表框1.取表项数 () - 1, 1, 到文本(到时间(日期)))欢迎分享,转载请注明来源:夏雨云
评论列表(0条)