VBS计时器2

2024-10-14 06:05:45

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

 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

最新文章

热门文章