以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  日期逻辑问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130679)

--  作者:188802386
--  发布时间:2019/1/28 21:12:00
--  日期逻辑问题
月度新增
Dim t1 As Date = Date.Today
Dim t2 As String = year(t1)
Dim cmd As new SQLCommand
Dim dt As DataTable
cmd.C">cmd.CommandText = "select max(year(成交日期)) as 最大结佣年,max(month(成交日期)) as 最大结佣日,min(month(成交日期)) as 最小结佣日 fr om {佣金} Where Year(成交日期) =  Year(GetDate()) "
dt = cmd.ExecuteReader()
Dim ma As String = dt.compute("max(最大结佣日)")
Dim maa As String = dt.compute("max(最大结佣年)")
Dim mi As Integer = dt.compute("min(最小结佣日)")
Dim su As String
For i As Integer = 1 To ma
su = su & ",sum(case when month(Case When Day(成交日期) > 28 Then DateAdd(d,3,成交日期) Else 成交日期 End) = " & i & " then 已收佣金 else 0 end + case when month(Case When Day(成交日期) > 28 Then DateAdd(d,3,成交日期) Else 成交日期 End) = " & i & " then 未收佣金 else 0 end) as [" & i & "月]" 

我想获得每个月的新增业绩  但是我们公司是每月的28日结算,导致每月的日期应该是12月29日-1月28日,1月29日-2月28日 .........
但是现在的代码是1月1日-1月28日,2月1日-2月28日 ....  少了上月的29到最后一天,请问该如何来修改代码 先谢谢了

--  作者:有点蓝
--  发布时间:2019/1/28 21:18:00
--  
{佣金}表结构和数据是怎么样的,截图看看
--  作者:188802386
--  发布时间:2019/1/28 21:35:00
--  
佣金表有成交日期 部门 姓名 已收佣金 未收佣金 列 想动态生成部门 姓名 1月(12月29日-1月28日) 2月(1月29日-2月28日) …… 佣金表有几月的数据就生成几个月的
--  作者:有点蓝
--  发布时间:2019/1/28 21:40:00
--  
截图或者上传具体实例看看