中国DOS联盟

已经考虑到了。
所以。


a=Wsh.Run("at "&hour(now)&":"&((minute(now)+5) mod 60)&" 1.vbs",0,False)

问题解决

算了吧直接给你代码算了,at不支持上午下午的,还要格式化24小时制的
NewTime = Split(Time, ":" ,-1) if NewTime(1)+5 > 59 Then mm=NewTime(1)+5-60 Newnn=Split(NewTime(0), " " ,-1) if Newnn(1)+1 = 13 Then nn="01" else nn=Newnn(1)+1 end if Times = Newnn(0) & " " & nn & chr(58) & mm & chr(58) & NewTime(2) else Times = NewTime(0) & chr(58) & NewTime(1)+5 & chr(58) & NewTime(2) end if dim wsh set wsh=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") command = "at " &Chr(34) & FormatDateTime (Times ,vbShortTime) &Chr(34) &" 1.vbs" retodate=wsh.Run(command),vbHide

hour(now)&":"&((minute(now)+5) mod 60
哦之前，知道有这样计算方法,就是不知道参数怎么写

f
Newnn=Split(NewTime(0), " " ,-1)
这句你那里是通的麽？

h？
你那叫考虑了？你那样要等1天才运行吧？

12:56+5=13:01

你那样到12:01去执行……也叫考虑了。。。

Newnn=Split(NewTime(0), " " ,-1)
if Newnn(1)+1 = 13 Then
nn="01"
else
nn=Newnn(1)+1
end if
已经转换了

NewTime(0)里面不包含空格……你这个是什么意思啊？
按空格分割后，newnn(1)是不存在的……你那样就下标越界了……

第一次将time分割后，0 1 2分别是h,m,s

Wscript.echo Time
下午空格HH:MM:SS

TimeTmp="下午 12:56:00"
NewTime = Split(TimeTmp, ":" ,-1)
if NewTime(1)+5 > 59 Then
mm=NewTime(1)+5-60
Newnn=Split(NewTime(0), " " ,-1)
if Newnn(1)+1 = 13 Then
nn="01"
else
nn=Newnn(1)+1
end if
Times = Newnn(0) & " " & nn & chr(58) & mm & chr(58) & NewTime(2)
else
Times = NewTime(0) & chr(58) & NewTime(1)+5 & chr(58) & NewTime(2)
end if
Wscript.echo Times
Wscript.echo FormatDateTime (Times ,vbShortTime)

2种代码能达到楼主的目的讨论没有意义了

Originally posted by fastslz at 2008-1-26 23:19:
2种代码能达到楼主的目的讨论没有意义了

。。。。是说当系统选用24制的时候是不会出现“下午 ”字样的……
这个代码的移植性……

他的代码没有做进位虽然是1句话……

我是说这个问题。。。与方法无关。

哦也。讨论得还真激烈。当然我一句话只是达到我的目的，因为我不需要上午下午的判断 只要系统当时间+5就行了。

大家讨论的也对。是另一种思路

不管什么方法。我只希望代码能尽量的精简

[ Last edited by hackhd on 2008-1-26 at 11:29 PM ]

就一个DateAdd
Wscript.echo FormatDateTime(DateAdd("n",5,now),vbShortTime)

晕DateAdd函数原来这么简单，之前我把它复杂化了
Vbs时间换算太灵活了
vbs脚本如果英语基础好的话，写脚本如同写短句，之所以中国软件业不如后来居上印度也是因为本地化语言障碍。

Wsh.Run "at "&hour(now)&":"&((minute(now)+5) mod 60)&" 1.vbs",0,False
FormatDateTime(DateAdd("n",5,now),vbShortTime)
也不错啊。。