主题：如何快速判断出迟到或者缺勤员工

dim d7 as string = "0700"

dim d8 as string = "0800"

dim d as date = date.today

if format(d,"HHmm") < d7 orelse format(d,"HHmm") > d8

msgbox("不在7~8点之间")

end if

如果看不懂代码，请先学习编程基础：http://www.foxtable.com/webhelp/topics/1592.htm

可以在论坛里搜索“考勤”，看看别人是怎么处理的