freezerstuff.bas

来自「Com串口即时通讯工具.有服务端和客启端..是学习的好程度!」· BAS 代码 · 共 30 行

Attribute VB_Name = "FreezerStuff"
'============
'处理延时模块
'============
Option Explicit
Public exitPause As Boolean


'============
'延时函数
'============
Public Function timedPause(secs As Long)
    Dim secStart As Variant
    Dim secNow As Variant
    Dim secDiff As Variant
    Dim Temp%
    
    exitPause = False
    secStart = Format(Now(), "mm/dd/yyyy hh:nn:ss AM/PM") '取得开始时间
    


    Do While secDiff < secs
        If exitPause = True Then Exit Do
        secNow = Format(Now(), "mm/dd/yyyy hh:nn:ss AM/PM") '当前时间
        secDiff = DateDiff("s", secStart, secNow) '时间间隔
        Temp% = DoEvents
    Loop
End Function