用VBS实现一个以分钟为单位的计时器: rem msgbox now 'now is the system para msgbox "Timer",,"CreatedByXuTao" dim limit limit = int(inputbox("Set your time in minutes!",,Setting)) dim a,b,c '保证只提醒一次 a= b= c= dim cur cur = m = + minute(now) whi…
打开计时器,如果点击暂停,会显示你刚才事物所用的时间(以分钟为单位) dim c //控制循环 c= vbyes while c<>vbno dim a a= 60*hour(now)+minute(now) dim b b= msgbox("Stop counting now?",vbyesno, "CreatedByXuTao") if b=vbyes then msgbox "You've Spent " +cstr(60*ho…
'================================ ' VBA采用Application.OnTime实现计时器 ' ' http://www.cnhup.com '================================ Public RunWhen As Double ' two minutes Public Const cRunWhat = "TheSub" ' the name of the procedure to run Sub StartTimer…