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