1,453
社区成员




[code=VB]
Dim dtNextTime as Date
Private Sub Form_load()
Timer1.interval=500
Timer1.Enabled=True
dtNextTime=DateAdd("n",15,Now)'15分钟执行一次任务
End Sub
Private Sub Timer1_Timer()
if Now>=dtNextTime Then
Timer1.Enabled=False
'在此加入你的代码
dtNextTime=DateAdd("n",15,Now)
Timer1.Enabled=True
End if
End Sub