返回午夜 12 时以后已经过去的秒数。
Timer
下面的例子使用 Timer 函数来确定 For...Next 循环 N 次所需的时间：
Function TimeIt(N) Dim StartTime, EndTime StartTime = Timer For I = 1 To N Next EndTime = Timer TimeIt = EndTime - StartTimeEnd Function 原文：http://www.jb51.net/article/4579.htm