上下班考勤代码VBA执行错误

大家帮忙看下，哪里写错了呢，执行的代码，只显示了3个结果，而且结果还错位了。只写了A班的情况。
对班次进行判断，如果A班，要求8：31前上班，18:00后下班。
班次 上班 下班 判断结果
A 8:39:58 18:01:25
B 8:30:30 18:11:57 迟到
C 8:38:20 18:06:11 准时
D 8:37:05 18:03:35 准时
Sub 计算()
Dim I As Integer
Dim JG As String
For I = 1 To 100
Do Until Cells(I, 1) = ""
If Cells(I, 1) = "A" And Cells(I, 2) > 0.36 Then
Cells(I, 4) = JG
JG = "迟到"
Else: Cells(I, 4) = JG
JG = "准时"
End If
I = I + 1
Loop
Next I
End Sub