回 帖 发 新 帖 刷新版面

主题:一个简单而又值得研究的问题

新建一FORM,在上面建一按钮。在Command1_Click中输入:

Dim d1 As Date
Dim d2 As Date
d1 = #1/1/2003 11:00:00 AM#
d2 = #1/1/2003 10:00:00 AM#
d2 = DateAdd("h", 1, d2)
MsgBox d1 = d2

是什么结果呢,应该是TRUE,但结果是False。
我把时间改了一下,D1的11点改为10点,D2的10点改为9点,得出的结果是TRUE,这是为什么呀???急急急…………

回复列表 (共7个回复)

沙发

错在日期比较,应用DateDiff函数

板凳

不错。是一个好的解决方案,用datediff("s",d1,d2)=0来判断。
但为什么上面的代码行不通呢?

3 楼

你做个试验就明白了
不要声明 res

res=d1-d2
看一下res 值

4 楼

谢谢y393!为什么其它时间就能得出正确结果呢?我发现就11点不能用这种方法比较

5 楼

应该说成功的这个是“碰巧“
你可多试几次

6 楼

知道了,以后记住了,不能直接比较两日期。再次感谢

7 楼

好,实践出真知

我来回复

您尚未登录,请登录后再回复。点此登录或注册