طرح الوقت لتحديد ساعات العمل

[mohamedamrawy]

السلام عليكم ورحمه الله وبركاته 

بعد اذن الاساتذة الافاضل محتاج كود طرح الوقت لتحديد ساعات العمل كما موضح باليوزرفورم علما بانني بحثت بالمنتدي

test.xlsm

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته

Private Sub TextBox2_Change()
On Error Resume Next
Diff_n = DateDiff("n", TextBox1, TextBox2)
Diff_h = Diff_n \ 60
Diff_m = Diff_n - (Diff_h * 60)
TextBox3 = Format(Diff_h, "00") & ":" & Format(Diff_m, "00")
On Error GoTo 0
End Sub

 

test.xlsm

[mohamedamrawy]

مشكور اخي الكريم