以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何比较时间  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56550)
--  作者：jiangxun
--  发布时间：2014/9/8 22:12:00
--  如何比较时间

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

 

dim t as date =date.now

 

if t> #22:30# then

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

 

为什么现在时间是22:15，反而t>22:30还成立呢，输出是“你迟到了”
--  作者：狐狸爸爸
--  发布时间：2014/9/9 9:52:00
--  
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="你迟到了"
--  作者：jiangxun
--  发布时间：2014/9/9 11:05:00
--  
8,30,0能否替换为单元格的值
--  作者：有点甜
--  发布时间：2014/9/9 11:12:00
--  

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

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