用Dmax给date变量赋值，格式为dd，输出的结果竟然出错这么多。

多疑的小强　发表于：2018-05-26 14:00:30 　

复制

代码如下，为了测试，【打卡】表内只有一个数据，“2018-04-16 17:33:27"

Private Sub Command32_Click()
Dim d1, d2, d3, d4 As Date

d1 = DMin("打卡", "打卡")
d2 = DMax("打卡", "打卡")
d3 = Format(d1, "dd")
d4 = Format(d2, "dd")

MsgBox "d1=" & d1 & ",d2=" & d2
MsgBox "d3=" & d3 & ",d4=" & d4
End Sub

输出结果，d1 d2正常，都是 2018-04-16 17:33:27，d3也正常，16.

但是d4就出问题，最后的msgbox显示的是“d4=1900-01-15”.

如果d1~d4都为string，一切正常。

尝试了几种组合，发现问题应该是和dmax有关，但到底是什么问题，不得而知，有大神知道原因么？

Top

张志发表于：2018-05-26 17:24:31

 Dim d1 As Date
    Dim d2 As Date
    Dim d3 As String
    Dim d4 As String
    
    d1 = DMin("打卡", "打卡")
    d2 = DMax("打卡", "打卡")
    d3 = Format(d1, "yyyy-mm-dd")
    d4 = Format(d2, "yyyy-mm-dd")
    
    MsgBox "d1=" & d1 & ",d2=" & d2
    MsgBox "d3=" & d3 & ",d4=" & d4

Top

leoyoung 发表于：2018-05-27 08:02:11

Dim d1, d2, d3, d4 As Date

声明有问题，只有d4为日期，其他的都不是

d4 = Format(d2, "dd")的结果为16

因为你声明为日期，数字16转化为日期的结果就是：1900-01-15

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

用Dmax给date变量赋值，格式为dd，输出的结果竟然出错这么多。