判断最大值语句怎么写啊（刚接触VB。NET）

数据表如下
year day1 day2 day3 day4。。。。。。day244
1990年 0 1.7 2.1 0                 1.8
1991年 0 0 0 0                 0.4
。
。
。

2007年 0 0.9 0 0.8               0.2

请问怎么写语句得到每一年的七天（连续）的累加量最大值
--------------------编程问答-------------------- dim intDay as long  ’天数计数
dim  day7 as long   ’7天计数
dim  temp as long    ，暂时的7天数值和
dim  sumValue as long ‘7天和最大值


  for intDay=1 to (244-7)
      for day7=intDay to intDay+7 
         
        '下面setData.Table.row.item.（day7)是表格行数据变量
         ’你可用自己的变量代替。
         temp +=setData.Table.row.item.（day7)
      next
      
      '判断连续7天是否是最大
       if temp > sumValue then
          sumValue=temp
      end if
      
      temp=0 

  next
    
   '最后sumValue是7天的最大值  
  --------------------编程问答--------------------         Dim dtData As New DataTable '现有数据表
        Dim dblMaxDay As Double = 0  '结果
        Dim intYear As Integer '年循环变量
        'Dim intDay7 As Integer = 0 '每个7天的值
        For intYear = 0 To 2007 - 1990 - 1
            Dim intDay As Integer '天循环变量
            Dim dblDayAdd As Double = 0 '累加天的值
            For intDay = 1 To 244
                dblDayAdd += CDbl(dtData.Rows(intYear).Item(intDay))
                If intDay Mod 7 = 0 Then
                    If dblDayAdd > dblMaxDay Then
                        dblMaxDay = dblDayAdd
                    End If
                    dblDayAdd = 0
                End If
            Next
        Next

        Return dblMaxDay '结果 --------------------编程问答-------------------- 楼主是说的每礼拜计算比较，还是滚动的七天计算比较？ --------------------编程问答-------------------- 滚动的

补充：.NET技术 ,  VB.NET