【VB技巧】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