sub StartTimer(x)
StopWatch(x) = timer'计算从半夜12点到现在所经过的秒数
end sub

function StopTimer(x)
EndTime = Timer

'Watch for the midnight wraparound...
if EndTime < StopWatch(x) then
EndTime = EndTime + (86400)
end if

StopTimer = EndTime - StopWatch(x)
end function