主题：非自然月的统计

部分企业在统计数据的时候，并不使用自然月，例如有的从上月的26日到本月的25日算做一个月，如何完成种非自然月的统计呢？

我们下面介绍两个两个方法。

 

增加一个统计日期列

 

我们可以在表中再增加一个统计日期列，然后将表的DataColChanged事件代码设置为：

 

Select Case e.DataCol.name
    Case "日期"
        If e.NewValue Is Nothing Then
            e.DataRow("统计日期") = Nothing
        Else
            Dim dt As Date = e.NewValue
            If dt.Day > 25 Then '如果为25日以后的日期
                dt = new Date(dt.year,dt.month,1) '改为下个月的第一天
                dt= dt.AddMonths(1)
            End If
            e.DataRow("统计日期") = dt
        End If
End Select

 

之后我们根据这个新增加的统计日期列进行统计即可。

 

利用自定义表达式

 

如果使用SQLGroupTableBuilder或SQLCrossTableBuilder进行统计，那么我们无需增加额外一列，可以直接用自定义表达式作为分组，实现非自然月的统计，例如：

 

Dim b As New SQLGroupTableBuilder("统计表1","订单")
b.Groups.AddExp("年","Year(iif(Day(日期)> 25,DateAdd('d',6,日期),日期))")
b.Groups.AddExp("月","Month(iif(Day(日期)> 25,DateAdd('d',6,日期),日期))")
b.Totals.AddDef("数量")
b.Totals.AddExp("金额","数量 * 单价")
b.Build()
MainTable = Tables("统计表1")

 

上述代码利用表达式，如果如果是25日之后的日期，则将此日期增加6天，使其成为下个月的日期，然后再取年月参与统计。

 

需要注意的是，SQL Server的数据源并不支持iif函数，需要用Case When语句代替，此外DateAdd的第一个参数也不需要用单引号括起来，所以代码需要改为：

 

Dim b As New SQLGroupTableBuilder("统计表1","订单")
b.ConnectionName = "数据源名称"
b.Groups.AddExp("年","Year(Case When Day(日期) > 25 Then DateAdd(d,6,日期) Else 日期 End)")
b.Groups.AddExp("月","Month(Case When Day(日期) > 25 Then DateAdd(d,6,日期) Else 日期 End)")
b.Totals.AddDef("数量")
b.Totals.AddExp("金额","数量 * 单价")
b.Build()
MainTable = Tables("统计表1")

 

关于Access和SQL Server的语法和函数差异，我们的《SQL相关》这一章，有较为详细的介绍。

顶，可以参考一下，还有种情况，截止日期不固定，如：正常情况下，提前两个工作日截止，如果提前截止，另行通知

不能漏掉，顶上，收藏。

老师，“如果如果是25日之后的日期，则将此日期增加6天，使其成为下个月的日期，然后再取年月参与统计”这与2月份、30天、31天的月，是不是取得月会有问题呢？

不会有问题，仅仅是使得时间处于下个月而已，用来获取年和月。不是获取天数

获取年没问题，二月是不是有问题呀，25+6=31号，月不是就是当月了，遇到一个月30天时，31号是次月的1日，月就是当月加1了，对不同的月份来讲，获得的月是不是不同呢。

 代码没问题啊，大于25号，就是26等等以上的数字了，那么加上6天，怎么也是到了下一个月了吧？然后获取月份，都是正确的啊。