|
楼主 |
发表于 2010-10-11 10:40:39
|
显示全部楼层
广东省东莞市
.版本 2
.子程序 月份转换, 文本型
.参数 jx, 文本型
.如果真 (jx = “Jan ”)
返回 (“1-”)
.如果真结束
.如果真 (jx = “Feb ”)
返回 (“2-”)
.如果真结束
.如果真 (jx = “Mar ”)
返回 (“3-”)
.如果真结束
.如果真 (jx = “Apr ”)
返回 (“4-”)
.如果真结束
.如果真 (jx = “May ”)
返回 (“5-”)
.如果真结束
.如果真 (jx = “June”)
返回 (“6-”)
.如果真结束
.如果真 (jx = “July”)
返回 (“7-”)
.如果真结束
.如果真 (jx = “Aug ”)
返回 (“8-”)
.如果真结束
.如果真 (jx = “Sept”)
返回 (“9-”)
.如果真结束
.如果真 (jx = “Oct ”)
返回 (“10-”)
.如果真结束
.如果真 (jx = “Nov ”)
返回 (“11-”)
.如果真结束
.如果真 (jx = “Dec ”)
返回 (“12-”)
.如果真结束
返回 (“”)
.子程序 系统_取网络时间, 文本型, 公开
.局部变量 XML对象, 对象
.局部变量 时间文本, 文本型
.局部变量 sjrq, 文本型
.局部变量 yf, 文本型
.局部变量 xj, 文本型
.局部变量 nf, 文本型
.如果真 (XML对象.创建 (“MSXML2.XMLHTTP”, ) = 假)
.如果真 (XML对象.创建 (“Microsoft.XMLHTTP”, ) = 假)
返回 (“获取失败”)
.如果真结束
.如果真结束
XML对象.方法 (“open”, “GET”, “http://www.baidu.com/”, 假)
XML对象.方法 (“send”, )
时间文本 = XML对象.读文本属性 (“getResponseHeader”, “Date”)
sjrq = 取文本中间 (时间文本, 寻找文本 (时间文本, “,”, , 假) + 2, 20)
yf = 月份转换 (取文本中间 (sjrq, 4, 4))
xj = 取文本右边 (sjrq, 9)
nf = 取文本中间 (sjrq, 8, 4)
sjrq = nf + “-” + yf + 取文本左边 (sjrq, 2) + xj
sjrq = 到文本 (增减时间 (到时间 (sjrq), #小时, 8))
返回 (sjrq) |
|