一个有趣的统计

出于好玩的态度，我从4月起开始持续对我的博客每日访问情况在excel中做了个记录，记录的格式如下：

今天头脑中突然闪过一个念头，对周末和非周末的访问情况做个统计，于是写了个模块：

Sub statistic()'    Dim i As Integer    Dim visitdatestr As String    Dim visitdate As Date    Dim weekindex As Integer        Dim visitCount As Integer    Dim visitWeekendCount As Integer    Dim visitNoWCount As Integer        Dim visitPersonCount As Long    Dim visitPersonWCount As Long    Dim visitPersonNoWcount As Long        visitCount = 0    visitWeekendCount = 0    visitPersonCount = 0    visitPersonWCount = 0    visitNoWCount = 0    visitPersonNoWcount = 0        Dim visitPersonCountPerDay As Integer            For i = 3 To 185        visitdatestr = Range("A" & i).Value        visitPersonCountPerDay = Range("B" & i).Value - Range("B" & (i - 1)).Value  '每日增量                visitCount = visitCount + 1                visitPersonCount = visitPersonCount + visitPersonCountPerDay                visitdate = DateValue(Left(visitdatestr, 4) & "-" & Mid(visitdatestr, 5, 2) & "-" & Right(visitdatestr, 2))        weekindex = Weekday(visitdate, vbMonday)                Select Case weekindex            Case 6, 7                'Range("A" & i).Interior.ColorIndex = 43                visitWeekendCount = visitWeekendCount + 1                visitPersonWCount = visitPersonWCount + visitPersonCountPerDay            Case Else                visitNoWCount = visitNoWCount + 1                visitPersonNoWcount = visitPersonNoWcount + visitPersonCountPerDay                        End Select    Next        MsgBox ("记录总日期：" & visitCount & " 天，周末：" & visitWeekendCount & " 天，非周末：" & visitNoWCount & "天" & vbCrLf & _    "平均访问人次：" & (visitPersonCount / visitCount) & vbCrLf & _    "周末平均访问人次：" & (visitPersonWCount / visitWeekendCount) & vbCrLf & _    "非周末平均访问人次：" & (visitPersonNoWcount / visitNoWCount))    End Sub

被注释的部分是将周六周日用绿色背景标出。

结果如下：

看来还是非周末的时候学习的人数更多。

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

学习更多vb.net知识，请参看vb.net 教程 目录