因为网吧每天晚上半个小时要让员工打一次卡，我想写个程序让上网的员工，运行本程序，能隔半小时提醒一次打卡，不知道为什么这个程序调戏没反应，求高手指教，
加了个计时器，程序载入设定计时器每一秒钟运行一次， 然后在计时器中输入的代码来选择判断，
Dim a As Variant rem '定义变量
----------------------
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
---------------------------
Private Sub Timer1_Timer()
a = Time rem '把当前系统时间赋值给变量A
Select Case a
Case a = CDate("00:30:00")  rem '判断当时时间是否是00:30:00
MsgBox "打卡时间到"
Case a = CDate("01:00:00")  rem '判断当时时间
MsgBox "第二次打卡时间到"
Case a = CDate("01:30:00")  rem '判断当时时间
MsgBox "第三次打卡时间到"
Case a = CDate("02:00:00")  rem '判断当时时间
MsgBox "第四次打卡时间到"
Case a = CDate("02:30:00")  rem '判断当时时间
MsgBox "第五次打卡时间到"
Case a = CDate("03:00:00")  rem '判断当时时间
MsgBox "第六次打卡时间到"
Case a = CDate("03:30:00")  rem '判断当时时间
MsgBox "第七次打卡时间到"
Case a = CDate("04:00:00")  rem '判断当时时间
MsgBox "第八次打卡时间到"
Case a = CDate("04:30:00")  rem '判断当时时间
MsgBox "第九次打卡时间到"
Case a = CDate("05:00:00")  rem '判断当时时间
MsgBox "第十次打卡时间到"
Case a = CDate("05:30:00")  rem '判断当时时间
MsgBox "第十一次打卡时间到"
Case a = CDate("06:00:00")  rem '判断当时时间
MsgBox "第十二次打卡时间到"
End Select

End Sub


[ 本帖最后由 a414715440 于 2011-9-17 00:27 编辑 ]

为什么这个判断语句没用呢，我换成
if a = CDate("01:00:00") then
MsgBox "第三次打卡时间到"
else if
......
end if
就可以了，，

Private Sub Timer1_Timer()
dim a as date
a = Time rem '把当前系统时间赋值给变量A
Select Case a
Case #00:30:00#  rem '判断当时时间是否是00:30:00
MsgBox "打卡时间到"
Case #"01:00:00"#  rem '判断当时时间
MsgBox "第二次打卡时间到"
Case #01:30:00#  rem '判断当时时间
MsgBox "第三次打卡时间到"
Case #02:00:00#  rem '判断当时时间
MsgBox "第四次打卡时间到"
Case #02:30:00#  rem '判断当时时间
MsgBox "第五次打卡时间到"
Case a = CDate("03:00:00")  rem '判断当时时间
MsgBox "第六次打卡时间到"
Case #03:30:00#  rem '判断当时时间
MsgBox "第七次打卡时间到"
Case #04:00:00#  rem '判断当时时间
MsgBox "第八次打卡时间到"
Case a = CDate("04:30:00")  rem '判断当时时间
MsgBox "第九次打卡时间到"
Case #05:00:00#  rem '判断当时时间
MsgBox "第十次打卡时间到"
Case #"05:30:00"#  rem '判断当时时间
MsgBox "第十一次打卡时间到"
Case #06:00:00#  rem '判断当时时间
MsgBox "第十二次打卡时间到"
End Select

End Sub

Private Sub Timer1_Timer()
Dim y As Long, s As String
s = "一,二,三,四,五,六,七,八,九,十,十一,十二"
x = Split(s, ",")
y = DateDiff("s", CDate(Date & " 00:30:00"), Now)
If y Mod 1800 = 0 And y <= 18000 + 1800 Then
y = y / 1800
MsgBox "第" & x(y) & "次打卡时间到"
End If
End Sub

我对你上边的代码做了些简化 timer Timer1.Interval = 1000
就OK了呵呵

看了你的代码，虽然没有去试验，但觉得你的代码在这个运用中是最完美的代码了，

回复回复，学习一下。