VB问题,如何比较时间的大小?

Question

想做一个考勤系统
但是发现我该如何判断时间呢？
比如说正常上班时间为8点30，当打卡时间为8点40的时候，提示已经迟到
正常下班时间为17点30，当打卡为时间为16点50的时候，提示还没到下班时间
不能打卡。

高手 赐教~
最好能给一段实例代码谢谢

Answer 1

Private Sub Command1_Click()
Dim 上班时间 As Date, 下班时间 As Date
上班时间 = "08:30"
下班时间 = "17:30"
If Now > 0.5 Then
If Now < 下班时间 Then
MsgBox "下班时间未到，请不要早退！"
Else
MsgBox "平平安安又一天，明天见！"
End If
Else
If Now > 上班时间 Then
MsgBox "上班时间已过，你迟到了。以后要注意。"
Else
MsgBox "安全第一，预防为主。欢迎你回到工作岗位。"
End If
End If
End Sub

Answer 2

if format(打卡时间,"hh:mm") > "08:04" then print "迟到了！"

if format(打卡时间,"hh:mm") < "17:30" then print "还未到下班时间，不能打卡！"

Answer 3

'上班时间
If Time > "08:30" Then Print "迟到了！"

'下班时间
If Time < "17:30" Then Print "还未到下班时间，不能打卡！"