Call Application.SetTimer(0,5*100) if time>"23:30:40" thencall Application.KillTimer(0)end ifEnd Sub
//学习下VBA里面的时间函数