Foxtable(狐表)用户栏目专家坐堂 → 关于统计数据问题


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

主题:关于统计数据问题

帅哥,在线噢!
有点蓝
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112121 积分:570795 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/1/22 11:26:00 [只看该作者]

没看懂,请举例说明一下

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


加好友 发短信
等级:九尾狐 帖子:2107 积分:13513 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2025/1/22 12:10:00 [只看该作者]

假如“某某卡”统计开始日期是每年的4月15日到统计结束日期次年的4月14日 假如今天是2025年1月22日就应该统计2024年4月15日到2025年4月14日所有“某某卡”的交易数据,如果今天是2025年4月16号了就应该统计2025年4月15日到2026年4月14日所有“某某卡”的交易数据,就是这样每个交易卡都是这个思路把所有交易卡符合条件的交易数据都实时统计出来,

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


加好友 发短信
等级:超级版主 帖子:112121 积分:570795 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/1/22 13:39:00 [只看该作者]

Dim 开始 As String = "4月15日"
Dim 结束 As String = "4月14日"
Dim 今天 As String = format(Date.today, "M月d日")
Dim d1, d2 As Date
If 今天 < 开始 Then
    d1 = CDate(Date.today.AddYears( - 1).year & "-" & 开始.replace("月", "-").replace("日", ""))
    d2 = CDate(Date.today.year & "-" & 结束.replace("月", "-").replace("日", ""))
Else
    d1 = CDate(Date.today.year & "-" & 开始.replace("月", "-").replace("日", ""))
    d2 = CDate(Date.today.AddYears(1).year & "-" & 结束.replace("月", "-").replace("日", ""))
End If
msgbox(d1 & "~" & d2)

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


加好友 发短信
等级:九尾狐 帖子:2107 积分:13513 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2025/1/22 14:17:00 [只看该作者]

这只是已知的某一张卡筛选吧?我要实现的是几十张卡都是在信用卡资料表中获取的,根据卡号卡名和日期来进行对流水表进行筛选的,应该怎么实现呀?

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


加好友 发短信
等级:超级版主 帖子:112121 积分:570795 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/1/22 14:25:00 [只看该作者]

遍历信用卡资料表所有行,逐个计算出日期然后合并为条件,最后大概合并为这种条件

卡号='001' and 日期>#2014-4-15# and 日期 <#2015-4-14# or 卡号='002' and 日期>#2015-4-15# and 日期 <#2016-4-14# or ......

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


加好友 发短信
等级:九尾狐 帖子:2107 积分:13513 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2025/1/22 14:43:00 [只看该作者]

卡很多这得多长的代码呀

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


加好友 发短信
等级:超级版主 帖子:112121 积分:570795 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/1/22 14:59:00 [只看该作者]

这种数据只能如此。

或者考虑在信用卡资料表增加2个日期列,把开始结束的真正日期计算存储下来。然后使用sql进行查询

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


加好友 发短信
等级:九尾狐 帖子:2107 积分:13513 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2025/1/22 15:34:00 [只看该作者]

怎么增加日期列,年份都不是固定的是变化的,是每一周期循环的

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


加好友 发短信
等级:超级版主 帖子:112121 积分:570795 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/1/22 15:42:00 [只看该作者]

需要统计的时候,就重置列,全表重新计算一次日期值

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


加好友 发短信
等级:狐神 帖子:4819 积分:34953 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2025/1/22 15:56:00 [只看该作者]

Dim 开始月 As Integer = val(regex.Match("4月15日", "(\d+)月(\d+)日").Groups(1).Value)
Dim 开始日 As Integer = val(regex.Match("4月15日", "(\d+)月(\d+)日").Groups(2).Value)
Dim 开始日期 As Date = New Date(Date.Today.Year - 1, 开始月, 开始日)
If Date.Today > New Date(Date.Today.Year, 开始月, 开始日) Then
    开始日期 = New Date(Date.Today.Year, 开始月, 开始日)
End If 
Dim 结束日期 As Date = 开始日期.AddYears(1).AddDays( - 1)

 回到顶部
总数 44 上一页 1 2 3 4 5 下一页