Foxtable(狐表) → 用户栏目 → 专家坐堂 → 比较时间的大小问题


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

主题：比较时间的大小问题
帅哥，在线噢！
zhangchi96
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：556 积分：5053 威望：0 精华：0 注册：2012/2/11 13:27:00 		比较时间的大小问题  发帖心情 Post By：2015/12/6 12:35:00 [只看该作者]

有两个表【外部数据表A】【内部数据表B】，结构相同，都有列“存盘时间”，日期时间型，列属性为DateTime

 

1、把外部数据表加载到【外部数据表A】，然后通过SQL命令，保存到本机的mdb 文件中，

 

2、用Merge命令，把mdb文件的数据合并到【内部数据表B】

 

3、代码：

Dim gzbz1 As DateTime 

Dim gzbz2 As DateTime  

gzbz1 = DataTables("内部数据表A").Compute("Max(存盘时间)", " ")

gzbz2 = DataTables("外部数据表B").Compute("Max(存盘时间)", " ")

Dim X As Integer  ‘ 返回两个时间的比较结果

If gzbz1 > gzbz2 then

X = 0

Elseif gzbz1 = gzbz2 then

   X = 0

Elseif gzbz1 < gzbz2 then

    X = 1

End if


4、返回x的结果始终都是1 ，请问这是什么原因，两个时间的值的都是2015-12-06 09:47，在不要求太精准的情况，在时间相差1分钟内，都能返回 X = 0
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/6 15:07:00 [只看该作者]

弹出值看看。

 

msgbox(gzbz1 & " " & gzbz2)
 回到顶部
帅哥，在线噢！
zhangchi96
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：556 积分：5053 威望：0 精华：0 注册：2012/2/11 13:27:00 		  发帖心情 Post By：2015/12/6 16:49:00 [只看该作者]

弹出了 都是 2015-12-06 09:47
会不会和EXCEL 里 一样 ，用 差额 再取个 近似值 ，可以吗？（我不知道怎么减法）
[此贴子已经被作者于2015/12/6 16:50:01编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/6 16:52:00 [只看该作者]

弹出

 

msgbox(gzbz1 & " " & gzbz2)

 

msgbox(gzbz1 = gzbz2)

 

msgbox(format(gzbz1, "yyyyMMddHHmmss") = format(gzbz2, "yyyyMMddHHmmss"))
 回到顶部
帅哥，在线噢！
zhangchi96
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：556 积分：5053 威望：0 精华：0 注册：2012/2/11 13:27:00 		  发帖心情 Post By：2015/12/6 17:01:00 [只看该作者]

三个结果 ：

2015-12-06 09:47  2015-12-06 09:47
false
true
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/6 17:24:00 [只看该作者]

那你就用最后一个判断

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询