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

  • A+
所属分类:lcx

    VB Timer 按任意时间间隔执行,VB Timer 按任意间隔执行,VB Timer 按任意时间间隔,VB Timer 任意时间间隔执行,VB Timer 任意间隔执行,VB Timer 任意时间执行,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 控件按任意时间间隔执行

相关推荐: C, C++ 控制台输入输出函数功能使用示例

VC,C,C++,控制台输入输出函数功能详解,使用示例,C++ 控制台输入输出函数使用示例: #include int main() {  std::cout  int x;  std::cin>>x;  std::cout  std::cout …

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: