[已解决]请教：如何用查询得出两个给定日期之间的所有日期列表？

aslxt

如题，希望用查询的方式得出结果，不用表。
比如：
给定日期  2013-4-23、2013-5-26
通过查询得出：
2013-4-23
2013-4-24
2013-4-25
...
2013-5-26

解决办法总结：
http://www.access-cn.com/info/3696-cn.html

todaynew

function datelist(byval d1 as date,byval d2 as date) as string
  '功能：为组合框或列表框提供数据源（值列表）
  dim str as string
  dim d as date
  d=d1
  do while true
     if d>d2 the exit do
     str=str & d & ";"
     d=dateadd("d",1,d)
  loop
  datelist=left(str,len(str)-1)
end function

aslxt

todaynew 发表于 2013-5-30 12:40
function datelist(byval d1 as date,byval d2 as date) as string
  '功能：为组合框或列表框提供数据源 ...

谢谢版主的回复。
我的用途不是解决组合框或列表框的数据源，而是解决“查询指定时间段内所有日期的营业收入，如果某天没有营业，也就没有收入的记录，但是又需要体现那天的收入为零”这样的需求。
是不是只有用临时表来列出所有的日期，然后才能用查询得出结果？

todaynew

aslxt 发表于 2013-5-30 13:10
谢谢版主的回复。
我的用途不是解决组合框或列表框的数据源，而是解决“查询指定时间段内所有日期的营业 ...

将缺少的日期追加到收入表中即可。

cgsilicone

用查询可以实现，两个查询即可。
第一步，任意选择一个表（数据足够多，能够唯一排序，有自动编号最好），然后就生成所需记录条数（结束时间-开始时间）的查询1。
第二步，利用以上查询1，很容易得出如下结果的查询2：
2013-4-23
2013-4-24
2013-4-25
...
2013-5-26
第三步，利用查询2就可以做很多事了，

aslxt

cgsilicone 发表于 2013-5-30 18:29
用查询可以实现，两个查询即可。
第一步，任意选择一个表（数据足够多，能够唯一排序，有自动编号最好）， ...

数据足够多，是指多到保证明天都有记录吗？
如果是那样就好办了，数据没有多到那种程度！
如附件，“营业报表”是数据源，“查询结果”是需要的查询结果示意。

cgsilicone

aslxt 发表于 2013-5-31 09:06
数据足够多，是指多到保证明天都有记录吗？
如果是那样就好办了，数据没有多到那种程度！
如附件，“ ...

我不能处理你的附件，请检查附件。
数据足够多的意思是，如果你要得到2013-1-1至2013-12-31的连续日期,数据库中表的数据需要达到356条无重复数据。对这个要使用的表是没有太多限制的，只需要记录条数够（不重复），不管字段有多少，是什么字段。

aslxt

cgsilicone 发表于 2013-5-31 15:37
我不能处理你的附件，请检查附件。
数据足够多的意思是，如果你要得到2013-1-1至2013-12-31的连续日期, ...

达不到你说的数据量，就像自动编号被删了一样，不连续

cgsilicone

aslxt 发表于 2013-5-31 17:56
达不到你说的数据量，就像自动编号被删了一样，不连续

我没有讲清思路，请看看附件，很容易实现，效率也高。
表中数据的多少，决定了查询“第2步查询2”中“union” 的多少。数据够多，就不用“union“。

netguestcn

供参考：
1、建一临时表：日期表
2、利用自定义函数将营业起止日期间的所有日期追加到“日期表”
3、生成查询：无营业额日期
4、利用联合查询得到最终结果