直接使用时间比较While Truemytime = time If mytime > "12:12:00" and mytime < "12:13:00" Then Call A() End If Delay 59000 Wend Function A //你的代码End Function //一分钟比较次当前时间,最好使用小于60秒delay,不然容易出现问题