Foxtable(狐表) → 用户栏目 → 专家坐堂 → 连续两天没值累积计算


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

主题：连续两天没值累积计算
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109487 积分：557097 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/31 13:41:00 [显示全部帖子]

dim max as integer = 0
dim n as integer = 0
dim t as table = tables(xxx)
dim r as row  =  tables(xxx).rows(0)
for i as integer = 1 to 31
if r.isnull("2023-07-" & format(i,"00")) then
n = n+1
if n>max then max = n
else
n = 0
msgbox("连续天数=" & n)
end if
next
msgbox("最大连续天数=" & max)
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109487 积分：557097 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/31 14:49:00 [显示全部帖子]

遍历所有行处理

 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109487 积分：557097 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/31 15:26:00 [显示全部帖子]


 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109487 积分：557097 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/31 16:47:00 [显示全部帖子]

参考这里遍历获取当月日期的方法：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=187590&skin=0
[此贴子已经被作者于2023/7/31 16:47:02编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109487 积分：557097 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/31 17:09:00 [显示全部帖子]

把2楼代码套入遍历行里面

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109487 积分：557097 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/31 19:50:00 [显示全部帖子]

正确的最小量是怎么计算的？是哪些单元格的值？标注一下

 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109487 积分：557097 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/31 21:23:00 [显示全部帖子]

那么第2行怎么会是9呢？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109487 积分：557097 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/31 22:17:00 [显示全部帖子]

我指的是这个

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109487 积分：557097 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/31 22:44:00 [显示全部帖子]

Dim s1 As String = e.form.controls("月份1").Text
Dim d3 As Date = CDate(s1.Insert(4, "-") & "-01")
Dim d1 As Integer = Date.DaysInMonth(d3.Year, d3.Month)
For Each r As DataRow In DataTables("使用监控台_现存量").DataRows
    Dim max As Integer = 0
    Dim n As Integer = 0
    For i As Integer = 1 To d1
        If r.isnull(format(New Date(d3.Year, d3.Month, i), "yyyy-MM-dd")) Then
            n = n + 1
        Else
            If n > 1 Then max = max + n
            n = 0
        End If
    Next
    r("最小量") = max
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询