中国DOS联盟

It has been considered.

So.


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

Problem solved

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

Forget it, just give you the code. AT doesn't support AM/PM, and it also needs to format it in 24-hour format.

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)
Is this working for you?

h?
Did you consider that? You'll have to wait a whole day for it to run like that?

12:56 + 5 = 13:01

Running it at 12:01 like that... that's called considering...

Newnn = Split(NewTime(0), " ", -1)
if Newnn(1) + 1 = 13 Then
nn = "01"
else
nn = Newnn(1) + 1
end if
Has been converted

The "NewTime(0)" does not contain spaces... What do you mean by that? After splitting by spaces, newnn(1) does not exist... Then you will have a subscript out of bounds...

The first time you split time, 0, 1, 2 are h, m, s respectively

Wscript.echo Time
Afternoon space HH:MM:SS

TimeTmp="Afternoon 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)

Discussing which of the two codes can achieve the LZ's purpose is meaningless.

Originally posted by fastslz at 2008-1-26 23:19:
The discussion about the two types of code achieving the LZ's purpose is meaningless

......It means that when the system selects the 24-hour system, the word "afternoon" will not appear...
The portability of this code...

His code does not do carry although it is one sentence...

I mean this problem... has nothing to do with the method.

Oh yeah. The discussion is really intense. Of course my sentence is just to achieve my purpose, because I don't need the judgment of morning and afternoon, just let the system add 5 to the time.

What everyone discussed is also right. It's another train of thought

No matter what method, I just hope the code can be as concise as possible

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

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

Just one DateAdd

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

Oh, the DateAdd function is actually so simple. I overcomplicated it before. Vbs time conversion is too flexible. If one has a good command of English in writing vbs scripts, it's like writing short sentences. The reason why the Chinese software industry is not as good as the later - catching - up India is also because of the language barrier of localization.

Wsh.Run "at " & hour(now) & ":" & ((minute(now) + 5) mod 60) & " 1.vbs", 0, False
FormatDateTime(DateAdd("n", 5, now), vbShortTime)
It's also good.