让Timer控件每5分钟触发一次事件

看到很多人在找这个，发给大家

Timer控件的Interval属性可以设置为0到65535之间的任意直，所以用Timer触发事件的最大时间间隔只能有65秒，因此如何能设置更长的时间间隔呢？可以在事件中建立代码，用系统时间确定这个时间间隔。

Dim dtNextTime as Date

Private Sub Form_load()

Timer1.interval=500

Timer1.Enabled=True

dtNextTime=DateAdd("n",5,Now)

End Sub

Private Sub Timer1_Timer()

if Now>=dtNextTime Then

Timer1.Enabled=False

'在此加入你的代码

dtNextTime=DateAdd("n",5,Now)

Timer1.Enabled=True

End if

End Sub

此程序的关键是DateAdd函数，它用于计算在将来的五分钟内的