以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  连续两天没值累积计算  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187625)

--  作者:nuoyan89
--  发布时间:2023/7/31 12:57:00
--  连续两天没值累积计算
老师,我把在临时表中统计连续两天没值累积的停机天数,如图1,请帮忙看看,谢谢
ZK-A-01这台设备的连续停机天数:
     连续停机天数:18天(标注紫色的部分,连续两天没有值的累计相加,低于2天(如黄色部分单元格)或者有值不予计算(如绿色部分单元格)。
ZK-A-11这台设备的连续停机天数:
     连续停机天数:15天(标注紫色的部分,连续两天没有值的累计相加,低于2天(如黄色部分单元格)或者有值不予计算(如绿色部分单元格)。
ZK-A-12这台设备的连续停机天数:
     连续停机天数:7天(标注紫色的部分,连续两天没有值的累计相加,低于2天(如黄色部分单元格)或者有值不予计算(如绿色部分单元格)。

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





--  作者:有点蓝
--  发布时间: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)

--  作者:nuoyan89
--  发布时间:2023/7/31 14:47:00
--  
老师,我累积的天数能填写到临时表的最小量里面吗?连续两天的空白值累积相加,小于2天的不予累积

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


--  作者:有点蓝
--  发布时间:2023/7/31 14:49:00
--  
遍历所有行处理
--  作者:nuoyan89
--  发布时间:2023/7/31 15:21:00
--  
怎么调整呢?有帮忙可以参考吗?
--  作者:有点蓝
--  发布时间:2023/7/31 15:26:00
--  
http://www.foxtable.com/webhelp/topics/1438.htm
--  作者:nuoyan89
--  发布时间:2023/7/31 16:45:00
--  
老师,我这个每日日期是变动的,帮助里的有点看不明白,怎么能和实际的连贯起来呢
--  作者:有点蓝
--  发布时间: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编辑过]

--  作者:nuoyan89
--  发布时间:2023/7/31 17:05:00
--  
老师,要达到3楼的功能还是无从下手,能帮忙看看吗?2楼的代码只统计的最大的连续停机天数
[此贴子已经被作者于2023/7/31 17:06:00编辑过]

--  作者:有点蓝
--  发布时间:2023/7/31 17:09:00
--  
把2楼代码套入遍历行里面