【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

文章来源于lcx.cc:【VB技巧】VB Timer按任意时间间隔执行

相关推荐: 讨论：如何在网络上保护个人隐私？互联网时代的隐私泄露与安全保护？

如何在网络上保护个人隐私？ 猪猪侠 (每次有人骂我是猪我都说自己是猪猪侠) | 2014-12-25 15:48 简而言之我妈用百度直接搜到了我的知乎、乌云、微博、QQ 这件事太严重了。我实在不想让她知道我哪一天关注了失眠话题，哪一天关注了恋爱话题。 所以，在…