[Ahmed_Mansoor]

أهلا أخي الكريم , إعمل مشروع جديد ثم أدرج 3 تكست بوكس الأول لوقت البداية والثاني لوقت النهاية والثالث لإظهار الفرق فيه وأدرج زر أمر واحد , ,وعند كتابتك للوقت إستخدم التنسيق AM/PM أو نظام 24 ساعة , مثال :

- تنسيق AM/PM :

PHP كود :

02:30 PM 


- تنسيق بنظام 24 ساعة :

PHP كود :

14:30 


ثم إستخدم هذا الكود في الزر :

PHP كود :

Private Sub Command1_Click()

Dim zTime1 As String
Dim zTime2 As String
Dim Diff_Minutes As Integer

zTime1 = Format$(Text1.Text, "HH:MM:SS")
zTime2 = Format$(Text2.Text, "HH:MM:SS")

Diff_Minutes = DateDiff("n", zTime1, zTime2)

Text3.Text = Format$(TimeSerial(0, Diff_Minutes, 0), "HH:MM:SS")

End Sub