- 注册时间
- 2011-8-8
- 最后登录
- 1970-1-1
该用户从未签到
|
.版本 2
.支持库 internet
.支持库 spec
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 时间文本, 文本型, , "0"
文本_取中间_批量_正则方式 (到文本 (HTTP读文件 (“ http://www.beijing-time.org/time.asp”)), “=”, “;”, 时间文本, , 4)
调试输出 (时间文本 [1] + “-” + 取文本右边 (“0” + 时间文本 [2], 2) + “-” + 取文本右边 (“0” + 时间文本 [3], 2))
===============
.版本 2
.支持库 spec
.子程序 __启动窗口_创建完毕
调试输出 (取日期 ())
.子程序 取日期, 文本型
.局部变量 年, 文本型
.局部变量 月, 文本型
.局部变量 日, 文本型
年 = 到文本 (取年份 (取现行时间 ()))
月 = 到文本 (取月份 (取现行时间 ()))
日 = 到文本 (取日 (取现行时间 ()))
返回 (年 + “年” + 月 + “月” + 日 + “日”)
=========
只会笨方法
.版本 2
.支持库 spec
调试输出 (取日期 (取现行时间 ()))
调试输出 (到文本 (取年份 (取现行时间 ())) + “-” + 到文本 (取月份 (取现行时间 ())) + “-” + 到文本 (取日 (取现行时间 ())))
|
|