1. 使用Timer函数, 但是时间超过午夜时就不好用了
2. 先使用Now获取两次的时间, 使用DateDiff进行时间差计算
3. 使用MercuryTimers
MercuryTimers("Test").Start
Wait 5
MercuryTimers("Test").Stop
msgbox MercuryTimers("Test")