Foxtable(狐表)用户栏目专家坐堂 → 数据统计时间分段设置问题


  共有3327人关注过本帖树形打印复制链接

主题:数据统计时间分段设置问题

帅哥哟,离线,有人找我吗?
xblxbl
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:28 积分:407 威望:0 精华:0 注册:2019/6/5 10:24:00
数据统计时间分段设置问题  发帖心情 Post By:2020/3/4 12:24:00 [只看该作者]

如附件:要对“时间”按30分钟或任意时间进行分段,统计汇总“金额”,怎么设置?请各位高手指点。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table


图片点击可在新窗口打开查看此主题相关图片如下:数据统计.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110784 积分:563852 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/4 13:38:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
xblxbl
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:28 积分:407 威望:0 精华:0 注册:2019/6/5 10:24:00
谢谢!!!  发帖心情 Post By:2020/3/4 18:52:00 [只看该作者]

 

Dim dr As DataRow = e.DataRow

Select Case e.DataCol.name

     Case "时间"

         If dr.isnull("时间") Then

             dr("时段") = Nothing

         Else

             Dim dt As Date = dr("时间")

             If dt.minute >= 0 And dt.minute < 30 Then

                 dr("时段") = dt.hour & ":00-" & dt.hour & ":30"

               Else

                  dr("时段") = dt.hour & ":30-" & dt.hour+1 & ":00"

                End If

            End If

 End Select


图片点击可在新窗口打开查看此主题相关图片如下:12.jpg
图片点击可在新窗口打开查看

 回到顶部