today=Date() years=DatePart("yyyy",today)-1981-1 Days=DatePart("y",today)+25 If DatePart("m",today)=12 Then if DatePart("d",today)>=9 Then MsgBox "ok" Years=Years+1 Days=DatePart("d",Date)-9 end if end If MsgBox "AT ^"& Years & "C!"&Days&"D^ SPACE-TIME!",4096+64,"武林网提示" set wshshell=CreateObject("WScript.Shell") Do WScript.Sleep 900000 getstr=MsgBox("15分钟过去了!",4097,"......!") If getstr=vbCancel Then wshshell.Popup "Bye-Bye!",2,"......!" WScript.Quit End If Loop