设定你的ASP程序的执行次数（转）-优快云博客

本文深入探讨了VBA中的定时器函数，包括如何启动和停止定时器，以及计算事件的持续时间。特别注意，这些函数不适用于长时间事件（超过1小时）或极短事件（小于100毫秒）。文章提供了具体的代码示例，帮助读者理解定时器函数的工作原理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

sub StartTimer(x)
'::::::::::::::::::::::::::::::::::::::::::::::::::::
':::　　Here we start the timer　　　　　　　　　:::
'::::::::::::::::::::::::::::::::::::::::::::::::::::
　StopWatch(x) = timer
end sub

function StopTimer(x)
'::::::::::::::::::::::::::::::::::::::::::::::::::::
':::　　Here we 'stop' the timer and calculate　:::
':::　　the elapsed time (allowing for the　　　:::
':::　　midnight wrap-around. NOTE: These　　　　:::
':::　　routines should not be used to time　　　:::
':::　　very long events (>1 hour) or very　　　:::
':::　　short events (< 100 milliseconds)　　　　:::
'::::::::::::::::::::::::::::::::::::::::::::::::::::
　EndTime = Timer

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

　StopTimer = EndTime - StopWatch(x)
end function
%>

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10294527/viewspace-124725/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10294527/viewspace-124725/