接上期：excel vba vb.net考勤时间处理通用方法（1）

Dim startTicks As Integer
        startTicks = My.Computer.Clock.TickCount

    。。。。。主要代码。。。。。

        Me.Text = Me.Text + "  用时" + CStr(My.Computer.Clock.TickCount - startTicks) + "ms"

以上代码用于自动计算程序耗时多少毫秒ms,加入这个功能主要是要考虑代码运行效率，培养珍惜机器时间观念，直观观察优化效果。

Dim ws = (New excel).activeworkbook.WorkSheets(3)
        Dim arr = ws.Getgrid("A2:H1236")‘arr数组取得sheets(3)中"A2:H1236"数据
        Dim brr = makegrid(UBound(arr, 1), 6)’生成6列的新数组用来暂存结果
        Dim dd As String
        For i = 1 To UBound(arr, 1)
            brr(i, 1) = arr(i, Abc2INT("A")) '第1列存姓名 
            brr(i, 2) = arr(i, Abc2INT("B")) '第2列存部门
            brr(i, 3) = arr(i, Abc2INT("E")) '第3列存userID
            dd = arr(i, Abc2INT("H"))
            brr(i, 4) = leftstr(dd, 10) '第4列存日期 
            If excelpub.in考勤时间("08:30", "09:00", dd) <> "" Then brr(i, 5) = 1
            If excelpub.in考勤时间("18:00", "18:30", dd) <> "" Then brr(i, 5) = 2
         ‘第5列存
            brr(i, 6) = dd'第1列存实际考勤时间，方便对照
        Next

If excelpub.in考勤时间("08:30", "09:00", dd) <> "" Then brr(i, 5) = 1
If excelpub.in考勤时间("18:00", "18:30", dd) <> "" Then brr(i, 5) = 2

以上两行加入了两个考勤时间范围，使用了上篇文章使用的excelpub.in考勤时间，返回1表示第1次考勤正常，返回2表示第2次考勤正常，没考勤返回空，如果需要更多考勤时间范围，直接加几行。

最后把结果输出：

Dim ws2 = (New excel).activeworkbook.WorkSheets(4)，在第4张输出
        ws2.allcells.Clearcontents() '先清空输出区域
        ws2.allcells.set文本格式()
        ws2.setgrid(brr, 1, 1)’在1行1列开始输出brr数组
        ws2.allcells.autofit()

        Me.Text = Me.Text + "  用时" + CStr(My.Computer.Clock.TickCount - startTicks) + "ms"

注意观察E列获得的结果，D列为日期，判断结果正确，整个行数与原表一样多。

用时约140ms,大约0.14秒完成，速度可以接受。

下一步，把那些不在考勤时间范围的行去掉，有两种方案：

方案1：用代码去逐行删除，因为删除中行号不断在删除，应该从最后一行开始删除。我们先试下删除时间到底是多少（注意这些时间只是在我电脑上的时间，如果你的机器速度更快，或许不需要这长时间）

运行结果：用时3011ms，就是用了3秒多，感觉速度不快啊

方案2：重建新数组，在内存中遍历把E列不为空的（也就是有效的数据行）直接复制到这个新数组，最后再整体输出，完全不需要“先输出再删除”的奇葩操作。

（ps这里顺便吐槽一下，有些博主在介绍很多花式技巧时，非常喜欢用“先拼接成字符串，再把字符串拆解”的奇技淫巧。明明这是在误导他人，还非要反复炫耀。）

看看左边代码和右边运行结果，只用了140ms毫秒，几乎和前面相比没什么变化。与方案1的3000多毫秒相比，简直云泥之别。这就是速度提升的效果。

结论：要通过直观显示运行用时，来检查代码运行效率，不断提高代码技能。