月度新增
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到最后一天，请问该如何来修改代码 先谢谢了
加好友 
发短信
Post By：2019/1/28 21:12:00 [显示全部帖子]
