跨年度合计查询如何做？

ccczzz

跨年度合计查询如何做？要求年度期间为：本年度6月30日到上年度7月31日。例： 2002-07-01至2003-06-31为一个核算年度。谢谢

ccczzz

跨年度合计查询如何做？要求年度期间为：本年度6月30日到上年度7月31日。例： 2002-07-01至2003-06-31为一个核算年度。谢谢

chenghai

编一段代码吧，根据自己的需要计算年月——类似计算财务年月的。

chenghai

Function CWYear(CWDate As Date) As Integer
  
Dim y  As Integer
Dim ZDDate As Date

  y = Year(CWDate)
  ZDDate = DateSerial(y, 7, 1)

  If CWDate < ZDDate Then
    CWYear = y
  Else
    CWYear = y + 1
  End If
  
End Function

唐小小

我不是太明白你的要求

ccczzz

查询发生在一个注册年度中的费用，例：2002-07-01到2003-06-30为一个注册年度，以[就诊日期]进行分类汇总费用

chenghai

我无法下载你的文件（公司电脑）。
你把案例发到我的电子信箱里吧（在我的资料里有），我来做案例。

sweetduck

就在查询里日期字段准则设置为 between [日期1] and [日期2] 不就行了？
日期可以预先设定或是来源于窗体控件
想问题想那么复杂做什么！

唐小小

八楼说的对，我也是这样想的，为什么要那么麻烦，设置查询条件不就行了吗？

ccczzz

是的，问题已解决。