°´¼ü¾«Áé×Ô¶¯ÊäÈëϵͳʱ¼ä

ÄãµÄ°´¼ü¾«ÁéÊÇ8»¹ÊÇ7ÒÔ7ΪÀýÇ븴Öƽű¾

DimRunTime,RTFormat,InputLen,DiffDate,PromptStr,MyBox,Tittle

Tittle="[·ÉÁúÈýÉÙ]°´¼ü¾«Á鶨ʱÆ÷"

//¡þ¡þ¡þ¡þ¡þ¡þ¡î¡þ¡þ¡þ¡þ¡þ¡þ¡î¡þ¡þ¡þ¡ïÖ÷³ÌÐò¡ï¡þ¡þ¡þ¡î¡þ¡þ¡þ¡þ¡þ¡þ¡î¡þ¡þ¡þ¡þ¡þ¡þ//

Rem¶¨Ê±Æ÷¿ªÊ¼

GosubSetRunTime

GosubCheckTime

Rem¶¨Ê±Æ÷½áÊø

EndScript

//¡þ¡þ¡þ¡þ¡þ¡þ¡î¡þ¡þ¡þ¡þ¡þ¡þ¡î¡þ¡þ¡þ¡ï×Ó³ÌÐò¡ï¡þ¡þ¡þ¡î¡þ¡þ¡þ¡þ¡þ¡þ¡î¡þ¡þ¡þ¡þ¡þ¡þ//

SubSetRunTime

PromptStr="ÇëÉèÖóÌÐò¶¨Ê±ÔËÐеÄʱ¼ä£¡"&Chr(13)&Chr(13)&"ÇëÎñ±Ø°´Îı¾¿òÄÚ¸ñʽ½øÐÐÉ趨£¡"

//É趨ʱ¼ä¸ñʽ

RTFormat=Date&""&h**our(Now)&":"&Mi**te(Now)

//ÉèÖö¨Ê±ÔËÐÐʱ¼ä

RunTime=InputBox(PromptStr,Tittle,RTFormat)

InputLen=Len(RunTime)

IfInputLen>0

RunTime=FormatDateTime(RunTime)

PromptStr="µ±Ç°¶¨Ê±Ê±¼ä"&Chr(13)&Chr(13)&"È·È϶¨Ê±ÉèÖò¢Æô¶¯¶¨Ê±Æ÷£¿"

MyBox=Msgbox(PromptStr,33,Tittle)

IfMyBox=2

Goto¶¨Ê±Æ÷½áÊø

EndIf

Else

PromptStr="ÄúÒÑÈ¡ÏûÉèÖö¨Ê±£¡¶¨Ê±Æ÷Í˳ö£¡"

MyBox=Msgbox(PromptStr,48,Tittle)

Goto¶¨Ê±Æ÷½áÊø

EndIf

ReturnSetRunTime

SubCheckTime

//¼ÆË㵱ǰϵͳʱ¼äÓ붨ʱʱ¼äµÄʱ¼ä¼ä¸ô

//¼ä¸ô60ÃëÒÔÄÚ£¬¿ªÊ¼Ö´ÐÐ×Ó³ÌÐòMainµÄ½Å±¾

//Èôϵͳʱ¼ä³¬¹ý¶¨Ê±Ê±¼ä60Ã룬¶¨Ê±Æ÷Í˳ö

//¶¨Ê±Æ÷ÿ¸ô45Ãë¼ÆËãÒ»´Îʱ¼ä¼ä¸ô

DiffDate=DateDiff("s",Now,RunTime)

IfAbs(DiffDate)