Foxtable(狐表)用户栏目专家坐堂 → [求助]关于时间的比较


  共有1710人关注过本帖树形打印复制链接

主题:[求助]关于时间的比较

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/20 15:03:00 [显示全部帖子]

Dim tbl As Table = Tables("预约_Table1")
Dim T1 As Date = #00:00#
Dim T2 As Date = #12:00#

t1 = new Date(1900, 1, 1, t1.Hour, t1.Minute, 0)
t2 = new Date(1900, 1, 1, t2.Hour, t2.Minute, 0)
tbl.Filter = " [开始时间] >= #" & T1 & "# And   [结束时间] <= #" & T2 & "#"

[此贴子已经被作者于2017/9/20 23:20:26编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/20 23:23:00 [显示全部帖子]

我在表C这样测试,没问题

 

Dim tbl As Table = Tables("表c")
Dim T1 As Date = #00:00#
Dim T2 As Date = #12:00#

t1 = new Date(1900, 1, 1, t1.Hour, t1.Minute, 0)
t2 = new Date(1900, 1, 1, t2.Hour, t2.Minute, 0)
tbl.Filter = " [第七列] >= #" & T1 & "# And  [第七列] <= #" & T2 & "#"

 


 回到顶部