vbs编程问题。请问vbs中如何比较系统时间(时,分,秒)?假如我要在8点过后执行一条dos命令,

2026年09月09日 05:02
有2个网友回答
网友(1):

Option Explicit
Dim sysTime,sysHour,sysMinute,sysSecond,userTime,userHour,userMinute,userSecond
userTime="8:00:00"
'这里设置时间(时:分:秒).特别提醒:分钟和秒钟如果只有个位的话,那就一定要在十位上补零.如8点5分3秒就写成(8:05:03),记住哟~
userTime=Split(userTime,":")
userHour=userTime(0)
userMinute=userTime(1)
userSecond=userTime(2)
Do
 sysTime=Split(Split(Now()," ")(1),":")
 sysHour=sysTime(0)
 sysMinute=sysTime(1)
 sysSecond=sysTime(2)
 Select Case True
 Case sysHour>userHour
  Exit Do
 Case sysHour=userHour
  Select Case True
  Case sysMinute>userMinute
   Exit Do
  Case sysMinute=userMinute
   If sysSecond=userSecond Then Exit Do
  End Select
 End Select
Loop
'时间到后程序会执行"Loop"下面的脚本.
WScript.CreateObject("WScript.Shell").Run "cmd.exe /C MSG * 时间到!",0
WScript.Quit

网友(2):

时间是可以直接比大小的,还可以相减,差为天数。例如:
d1 - d2 > 0