Dim T1 As Integer
Dim T2 As Integer    

Dim T3 As Integer
Dim T22 As Integer
Dim T32 As Integer
T1 = CT.Value
T2 = INF.Value
T22 = Left([T2], 2)    'คิดเวลาชั่วโมงให้เป็น เช่น 01:30 คิดทางซ้ายขวาบวกกัน
T23 = Right([T2], 2)
T2 = (T22 * 60) + (T23)   
    If CK.Value = True Then
               If T2 - T1 > 110 Then
               T3 = T
               ANSWER.Value = T3
               ElseIf T2 - T1 > 110 And T2 < 120 Then
                            T3 = Y
                            ANSWER.Value = T3
                            Else
                            T3 = R
                             ANSWER.Value = T3
                    End If
     End If
จำนวนรอบผมทำให้เป็นนาที
แต่ผมติดตรงบรรทัด T2 = INF.Value ครับเหมือนมันไม่ยอมว่าวันที่ไม่ใช่ integer
ผมจะต้องแก้ยังไงครับ ผมมั่วๆได้มาแบบนี้หละครับ ช่วยแนะด้วยครับ

ขอบคุณครับ

อ่านไม่รู้เรื่องเลย เว้นวรรคไม่มี จับใจความไม่ค่อยได้ ดำน้ำไปแล้วกัน โค้ดออกมาแบบนี้มังครับ ลองไปปรับดูแล้วกัน

    Select Case Abs(DateDiff("n", CDate(INF), CDate(CT)))
        Case Is > 110
            If CB Then Answer = "T"
        Case 60 To 110
            If CB Then Answer = "Y"
        Case Else
            If Not CB Then Answer = "R"
    End Select


แต่ระวังเรื่องของเวลาที่ข้ามวันด้วยครับ ไปทดสอบดูเองแล้วกัน

ขอบคุณครับ