【VB技巧】VB Timer按任意时间间隔执行

VB Timer按任意时间间隔执行，VB timer按分钟执行，VB timer按小时执行。

Dim TmpTime As String, NowTime As String '临时时间,当前时间

Private Sub Timer1_Timer()
NowTime = Year(Date) & "-" & Month(Date) & "-" & Day(Date) & " " & Time '获取当前时间
If Len(TmpTime) = 0 Then TmpTime = NowTime '如果临时时间为空则设置临时时间

If DateDiff("S", TmpTime, NowTime) >= 5 Then '比较时间,S:以秒为单位;H以小时为单位;D:以天为单位;M:以月为单位
MsgBox "时间到!"
TmpTime = NowTime '设置临时时间
End If
End Sub