vba查询access的日期计算问题求助

忘得快

各位老师新年好！
我在查询时计算日期出错，请哪位老师帮我看看，谢谢！
vba查询access的日期计算问题求助.rar (32.23 KB, 下载次数: 7)

2016-12-31 16:11 上传

点击文件名下载附件

wzsy2_mrf

1. Sub 查询库存() '参考：Access联合查询.xls
   
2.     Dim cnn As Object, SQL$, s1$, s2$
   
3.     Dim StrSQL As String
   
4.     Dim rst As New ADODB.Recordset
   
5.     Set cnn = CreateObject("ADODB.connection")
   
6.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\到货记录.mdb"
   
7.     SQL = "select 入库单号,货物名称规格,计划日期,到货日期,iif(not 到货日期 is null,DateDiff(""d"",到货日期,计划日期),DateDiff(""d"",date(),计划日期)) as 准时或延误 from 明细表 where not 计划日期 is null"
   
8.     'SQL = "select 入库单号,货物名称规格,计划日期,到货日期,到货日期-计划日期 as  准时或延误 from 明细表"
   
9.     Range("a1") = SQL
   
10.     rst.Open SQL, cnn, adOpenKeyset
    
11.     Range("B3:G65536,D4:D5").ClearContents
    
12.     Range("b9").Resize(, 5) = Array("单号", "货物规格", "计划日期", "到货日期", "准时或延误") '
    
13.     Range("b10").CopyFromRecordset cnn.Execute(SQL)
    
14.      rst.Close
    
15.      Set rst = Nothing
    
16.      Set cnn = Nothing
    
17.     MsgBox "查询完毕！", , "提示"
    
18. End Sub
    
19. 
    

复制代码

忘得快

wzsy2_mrf 发表于 2016-12-31 17:19

老师新年好！
没有到货日期，为何不能计算准时或延误？如当单号是RKDH201606002时，就不能显示准时或延误。请指点，谢谢！
vba查询access的日期计算问题2求助.rar (32.2 KB, 下载次数: 5)

2017-1-2 09:36 上传

点击文件名下载附件

wzsy2_mrf

忘得快 发表于 2017-1-2 09:36
老师新年好！
没有到货日期，为何不能计算准时或延误？如当单号是RKDH201606002时，就不能显示准时或延 ...

1. Sub 查询库存() '
   
2.     Dim cnn As Object, SQL$, s1$, s2$
   
3.     Dim StrSQL As String
   
4.     Dim rst As New ADODB.Recordset
   
5.     Set cnn = CreateObject("ADODB.connection")
   
6.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\到货记录2.mdb "
   
7.     SQL = "select a.*,b.到货日期,iif(not b.到货日期 is null,DateDiff(""d"",a.计划日期,b.到货日期),DateDiff(""d"",a.计划日期,date())) as 日差 " _
   
8.     & "from ((select 入库单号,货物名称规格,计划日期 from 明细表 where 入库单号='" & Range("D3") & "'" & ") as a " _
   
9.     & "LEFT JOIN (select DISTINCT 入库单号, 到货日期 from 日期记录表) as b on a.入库单号=b.入库单号)"
   
10.     rst.Open SQL, cnn, adOpenKeyset
    
11.     Range("B10:G65536,D4:D5").ClearContents
    
12.     Range("b9").Resize(, 5) = Array("单号", "货物规格", "计划日期", "到货日期", "准时或延误") '
    
13.     Range("b10").CopyFromRecordset cnn.Execute(SQL)
    
14.      rst.Close
    
15.      Set rst = Nothing
    
16.      Set cnn = Nothing
    
17.     MsgBox "查询完毕！", , "提示"
    
18. End Sub
    

复制代码

忘得快

wzsy2_mrf 发表于 2017-1-2 17:22

老师你好！
不能改了format(到货日期,'yyyy-mm-dd')这一句改为“到货日期”，否则你选择RKDH201606001查询时原本只有3条记录就会变为9条记录了。
问题是“format(到货日期,'yyyy-mm-dd')”引起的，请你再看看，谢谢！

wzsy2_mrf

1. Sub 查询库存() '
   
2.     Dim cnn As Object, SQL$, s1$, s2$
   
3.     Dim StrSQL As String
   
4.     Dim rst As New ADODB.Recordset
   
5.     Set cnn = CreateObject("ADODB.connection")
   
6.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\到货记录2.mdb "
   
7.     SQL = "select DISTINCT a.*,b.到货日期,iif(not b.到货日期 is null,DateDiff(""d"",a.计划日期,b.到货日期),DateDiff(""d"",a.计划日期,date())) as 日差 " _
   
8.     & "from ((select 入库单号,货物名称规格,计划日期 from 明细表 where 入库单号='" & Range("D3") & "'" & ") as a " _
   
9.     & "LEFT JOIN (select DISTINCT 入库单号, 货物名称规格,到货日期 from 日期记录表) as b on a.入库单号=b.入库单号 and a.货物名称规格 = b.货物名称规格)"
   
10.     rst.Open SQL, cnn, adOpenKeyset
    
11.     Range("B10:G65536,D4:D5").ClearContents
    
12.     Range("b9").Resize(, 5) = Array("单号", "货物规格", "计划日期", "到货日期", "准时或延误") '
    
13.     Range("b10").CopyFromRecordset cnn.Execute(SQL)
    
14.      rst.Close
    
15.      Set rst = Nothing
    
16.      Set cnn = Nothing
    
17.     MsgBox "查询完毕！", , "提示"
    
18. End Sub
    

复制代码

忘得快

wzsy2_mrf 发表于 2017-1-2 18:31

请教wzsy2_mrf老师：
为什么“到货日期”改为“format(到货日期,'yyyy-mm-dd')”后就不能计算了呢？我发现有到货日期的依旧能计算，而只是没有到货日期的条目计算结果为空，能指明这是什么原因吗？谢谢！

wzsy2_mrf

忘得快 发表于 2017-1-2 19:10
请教wzsy2_mrf老师：
为什么“到货日期”改为“format(到货日期,'yyyy-mm-dd')”后就不能计算了呢？我发 ...

我也是调试出来的，并不是一看就懂。
估计format之后类型会改变，这样再用datediff之后会出错，而错误又被sql忽略了。
有到货日期当然能算，只要你理解iif(not b.到货日期 is null,DateDiff(""d"",a.计划日期,b.到货日期),DateDiff(""d"",a.计划日期,date()))这个函数就能明了：当存在到货日期的时候，DateDiff(""d"",a.计划日期,date())这部分不会发生作用。

忘得快

wzsy2_mrf 发表于 2017-1-2 19:16
我也是调试出来的，并不是一看就懂。
估计format之后类型会改变，这样再用datediff之后会出错，而错误又 ...

同样都是format(到货日期,'yyyy-mm-dd')，当到货日期不存在的时候，DateDiff(""d"",a.计划日期,date())这部分为什么不会发生作用？请哪位老师再指点一下，谢谢！

wzsy2_mrf

忘得快 发表于 2017-1-2 19:25
同样都是format(到货日期,'yyyy-mm-dd')，当到货日期不存在的时候，DateDiff(""d"",a.计划日期,date())这 ...

自己去百度一下iif函数。