以文本方式查看主题 - 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 -- 截图或者上传具体实例看看 |