嗯嗯，学习了

回复 1# suyanchao


    看看{:3_242:}

这个蛮好 下载了

感觉有点慢~~~~慢

先顶再用 hoho

看不懂。地方个。。

谢谢。学习了。。顶了。

很不错{:3_244:}

.版本 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)