mytimer.vbs
dim t,tt,ttt,tttt msgbox "ボタン押すと測定開始" t=timer() msgbox "ボタン押すと測定停止(経過時間表示)" ttt=( timer()-t) tt= int(ttt/60) ttt=int(ttt-(tt*60)) tttt= tt&"M "&ttt&"S" msgbox tttt
dim t,tt,ttt,tttt msgbox "ボタン押すと測定開始" t=timer() msgbox "ボタン押すと測定停止(経過時間表示)" ttt=( timer()-t) tt= int(ttt/60) ttt=int(ttt-(tt*60)) tttt= tt&"M "&ttt&"S" msgbox tttt