Private Sub Timer1_Timer()
Label1 = Date
Label2 = Time & ":" & Format((Timer - Int(Timer)) * 1000, "000")
If lbFix = True Then
If DateDiff("n", Now, CDate(Date & " " & txtHour & ":" & txtMinter)) = 0 Then
shutWindows
End If
Debug.Print DateDiff("n", Now, CDate(Date & " " & txtHour & ":" & txtMinter))
End If
End Sub
跟这个类似