سلمت يداك استاذنا .. نعم اعتقد هذا الذي يريد
وهذا مني تعديل بسيط على الشرط ، حتى نقفل عليه الباب
Private Sub TIME_DEFULT_OUT_ARA_LostFocus()
Dim Result As Double
Dim Status As String
Result = (Me.TIME_DEFULT_OUT_ARA - Me.TIME_ACTIVE_OUT_ARA) * 24
Me.TIME_DELAY_OUT_ARA = Result
If Result < 0 Then
Status = "لايوجد تاخير"
ElseIf Result = 0 Then
Status = "الوقت ممتاز جدا"
ElseIf Result > 0 And Result <= 1 Then
Status = "تاخير مسموح به"
ElseIf Result > 1 Then
Status = "تاخير غير مسموح به"
End If
Me.BECAUSE_DELAY_OUT_ARA = Status
'--------------------------------
Me.txtDiffTime = IIf(Result < 0, "-", "") & Format(Abs(Result / 24), "hh:mm")
End Sub