VBS计时器2

打开计时器，如果点击暂停，会显示你刚才事物所用的时间（以分钟为单位）

 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*hour(now)+minute(now)-a)+" minutes",,"Stop"
 end if

 c= msgbox("Again?",vbyesno, "Tip")
 wend