主题：如何比较时间

我做一个考勤系统，上班时间是8:30，在【考勤表】里的【上班时间】列

 

dim t as date =date.now

 

if t> #22:30# then

e.form.control("label1").text="你迟到了"

 

为什么现在时间是22:15，反而t>22:30还成立呢，输出是“你迟到了”

dim t1 as date =date.now
Dim t2 As New Date(t1.Year,t1.Month,t1.Day,8,30,0)
if t1> t2 then
e.form.control("label1").text="你迟到了"

8,30,0能否替换为单元格的值

Dim t As Date = Tables("表A").Current("第一列")

Dim t2 As New Date(t1.Year,t1.Month,t1.Day, t.Hour, t.Minute, 0)