質問: "23:59:59" End If cr.WriteL
回答: すいません 自己解決です If (UBound(sA) = 4) Then dt = CDate(sA(0)) If (dic.Exists(sA(3))) Then If (dic(sA(3)) = dt) Then sA(4) = "変更完了" dic.Remove sA(3) ElseIf (sA(1) = "10:00:00") Then dic(sA(3)) = dt + 1 End If ElseIf (sA(1) = "10:00:00") Then dic(sA(3)) = dt + 1 End If fw.WriteLine Join(sA, ",") End If