（20JB求助）取网络时间后在天数上增加数值(高手进啊)

245271830

.版本 2
.支持库 internet

.局部变量 网页文本, 文本型
.局部变量 临时文本, 文本型
.局部变量 所需文本, 文本型, , "0"
.局部变量 中间时间, 文本型, , "0"
.局部变量 网络时间, 文本型
.局部变量 时间, 文本型
.局部变量 时间1, 文本型
.局部变量 时间2, 文本型
.局部变量 时间3, 文本型

            网页文本 ＝ 到文本 (HTTP读文件 (“http://www.time.ac.cn/stime.asp”))  ' 这是国家授时中心网络服务器时间发布网站
            所需文本 ＝ 分割文本 (网页文本, “服务器时间:”, )  ' 将取回的文本分割，因为我们需要的网络时间在其后面
            .如果真 (取数组成员数 (所需文本) ＜ 2)  ' 判断是否取回所需数据
                信息框 (“连接网络失败.请稍后重试”, #错误图标, “错误”)
                销毁 ()
            .如果真结束
            临时文本 ＝ 所需文本 [2]
            所需文本 ＝ 分割文本 (临时文本, “document.write('”, )
            中间时间 ＝ 分割文本 (所需文本 [3], “')”, )
            时间1 ＝ 中间时间 [1]  ' 取出年/月/日{:1_87:} 就是在这里加入天数，这是别人写的。我不知道怎么增加天数（日子）。高手们帮帮我啊{:1_123:}
            临时文本 ＝ 所需文本 [6]
            所需文本 ＝ 分割文本 (临时文本, “var hrs = ”, )
            临时文本 ＝ 所需文本 [2]
            中间时间 ＝ 分割文本 (临时文本, “;”, )
            时间2 ＝ 中间时间 [1]  ' 取出小时
            所需文本 ＝ 分割文本 (临时文本, “var min = ”, )
            临时文本 ＝ 所需文本 [2]
            中间时间 ＝ 分割文本 (临时文本, “;”, )
            时间3 ＝ 中间时间 [1]  ' 取出分钟
            网络时间 ＝ 时间1 ＋ 时间2 ＋ “时” ＋ 时间3 ＋ “分”
            信息框 (网络时间, 0, )

果子

0.e (2.66 KB, 下载次数: 58)

2010-2-23 21:49 上传

点击文件名下载附件
看看是不是你想要的

341455770

你把年、月、日、中日变量里加1不就可以实现了么？
程序运行时自动写入一个隐蔽点的文本文件，启动的时候再读取{:2_141:}

lihuanboy

增加什么天数？我没看明白，楼主举个例子

时间1 ＝ 中间时间 [1]

假如上面的代码取出来的是
2010年2月22日

然后？

245271830

增加什么天数？我没看明白，楼主举个例子

时间1 ＝ 中间时间 [1]

假如上面的代码取出来的是
2010年2 ...
lihuanboy 发表于 2010-2-22 13:18

读取之后再将它变为2010年2月29日  该怎么写？

猪哥亮

[e].版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 XML对象, 对象
.局部变量 时间文本, 文本型

按钮1.禁止 ＝ 真

.如果真 (XML对象.创建 (“MSXML2.XMLHTTP”, ) ＝ 假)
    .如果真 (XML对象.创建 (“Microsoft.XMLHTTP”, ) ＝ 假)
        返回 ()
    .如果真结束

.如果真结束

XML对象.方法 (“open”, “GET”, “http://www.baidu.com/”, 假)
XML对象.方法 (“send”, )

时间文本 ＝ XML对象.读文本属性 (“getResponseHeader”, “Date”)

标签1.标题 ＝ “当前服务器时间为：” ＋ 到文本 (时间格式化 (时间文本))

按钮1.禁止 ＝ 假

.子程序 时间格式化, 日期时间型
.参数 时间文本, 文本型
.局部变量 临时数组, 文本型, , "0"
.局部变量 临时变量, 文本型
.局部变量 时间变量, 日期时间型
.局部变量 临时时间, 日期时间型
.局部变量 日, 文本型
.局部变量 月, 文本型
.局部变量 年, 文本型
.局部变量 时, 文本型
.局部变量 分, 文本型
.局部变量 秒, 文本型

临时数组 ＝ 分割文本 (时间文本, “, ”, )
临时变量 ＝ 临时数组 [2]
临时变量 ＝ 子文本替换 (临时变量, “ GMT”, , , , 真)
清除数组 (临时数组)
临时数组 ＝ 分割文本 (临时变量, “ ”, )
日 ＝ 临时数组 [1]
.判断开始 (临时数组 [2] ＝ “Jan”)
    月 ＝ “01”
.判断 (临时数组 [2] ＝ “Feb”)
    月 ＝ “02”
.判断 (临时数组 [2] ＝ “Mar”)
    月 ＝ “03”
.判断 (临时数组 [2] ＝ “Apr”)
    月 ＝ “04”
.判断 (临时数组 [2] ＝ “Mar”)
    月 ＝ “05”
.判断 (临时数组 [2] ＝ “Jun”)
    月 ＝ “06”
.判断 (临时数组 [2] ＝ “Jul”)
    月 ＝ “07”
.判断 (临时数组 [2] ＝ “Aug”)
    月 ＝ “08”
.判断 (临时数组 [2] ＝ “Sep”)
    月 ＝ “09”
.判断 (临时数组 [2] ＝ “Oct”)
    月 ＝ “10”
.判断 (临时数组 [2] ＝ “Nov”)
    月 ＝ “11”
.判断 (临时数组 [2] ＝ “Dec”)
    月 ＝ “12”
.默认

.判断结束
年 ＝ 临时数组 [3]
临时变量 ＝ 临时数组 [4]
清除数组 (临时数组)
临时数组 ＝ 分割文本 (临时变量, “:”, )
时 ＝ 到文本 (到整数 (临时数组 [1]))
分 ＝ 临时数组 [2]
秒 ＝ 临时数组 [3]
时间变量 ＝ 到时间 (年 ＋ “/” ＋ 月 ＋ “/” ＋ 日 ＋ “/” ＋ 时 ＋ “/” ＋ 分 ＋ “/” ＋ 秒)
时间变量 ＝ 增减时间 (时间变量, #日, 1)  ' 这里修改需要加多少时间，单位为：年 月 日 时 分 秒。
' (时间变量,#日,1)，这是加一天
' (时间变量,#时,8)，这是加8小时
返回 (时间变量)[/e]


这个是网上别人，拿回来改了一下，现在是你需要的那代码了。

猪哥亮

点击进入下载－20084811314250739.e


是这样的嘛

lihuanboy

把代码

1. 时间1 ＝ 中间时间 [1]

复制代码

改成

1. 时间1 ＝ 到文本 (增减时间 (到时间 (中间时间 [1]), #日, 2))

复制代码

上面的2 改成你想增加的时间

PLLB

这个我一直在找。。{:3_232:}

孤独爱恋

lihuanboy 发表于 2010-2-23 23:31
把代码改成上面的2 改成你想增加的时间

你这个很容易加错的，等下跑出2月40号来了