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


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

主题:比较时间的大小问题

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


加好友 发短信
等级:二尾狐 帖子:555 积分:5037 威望: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


加好友 发短信
等级:二尾狐 帖子:555 积分:5037 威望: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


加好友 发短信
等级:二尾狐 帖子:555 积分:5037 威望: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 [只看该作者]

那你就用最后一个判断

 回到顶部