- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 统计月的起止日期与自然月不同，怎么处理才好！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=66843)
-- 发布时间：2015/4/14 20:18:00
-- 统计月的起止日期与自然月不同，怎么处理才好！
各位老师好：
-- 发布时间：2015/4/14 20:20:00
--
自己发一个示例文件上来！
-- 发布时间：2015/4/14 20:26:00
--
你可以增加一个月份列，用于手工输入月份
-- 发布时间：2015/4/14 21:13:00
--
截止日期以后的单据转入下个月
-- 发布时间：2015/4/14 22:23:00
--
发文件不会吗？
-- 发布时间：2015/4/14 23:19:00
--
回程老师：我初学中，没有文件，只是想起这么个问题想问问，看有什么好的思路。
-- 发布时间：2015/4/15 1:19:00
--
那我就告诉您：可以指定每月起、止日为任意一天！
-- 发布时间：2015/4/15 8:19:00
--
S elect IIF(Day(日期) >25,DateAdd(\'d\',5, 日期),日期) AS 日期 From{Data}
-- 发布时间：2015/4/15 8:52:00
--
好办，增加一个统计日期列，DataColchanged事件代码设置为：
Select Case e.DataCol.name
Case "日期"
If e.NewValue Is Nothing Then
e.DataRow("统计日期") = Nothing
Else
Dim dt As Date = e.NewValue
Dim ds As Integer = 0
If dt.Day > 25 Then
Select Case Date.DaysInMonth(dt.Year,dt.Month)
Case 31
ds = 6
Case 30
ds = 5
Case 29
ds = 4
Case 28
ds =3
End Select
End If
e.DataRow("统计日期") = dt.AddDays(ds)
End If
End Select
参考文件：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目8.rar |
以后根据统计日期列进行分组统计即可
-- 发布时间：2015/4/15 8:59:00
--
这样好点：
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
dt = new Date(dt.year,dt.month,1)
dt= dt.AddMonths(1)
End If
e.DataRow("统计日期") = dt
End If
End Select