+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : هل يمكن حساب الفرق بالساعة؟ (/showthread.php?tid=14705)
هل يمكن حساب الفرق بالساعة؟ - ahmedegyptien - 11-02-16
اساتذى الكرام
هل هناك دالة يمكنها ان تحسب الفرق بين وقتين ؟
مثال : المباراه بدأت الساعة 00:30 وانتهت 0225
كيف يمكن حساب الفرق ؟
متأكد من التعاون وسرعة الرد -وهذا يدل على عظمة المنتدى والقائمين علية
خالص تحياتى
RE: هل يمكن حساب الفرق بالساعة؟ - administrator - 11-02-16
PHP كود :
minutes = DateDiff("n", time1, time2)
RE: هل يمكن حساب الفرق بالساعة؟ - Ahmed_Mansoor - 12-02-16
أهلا أخي الكريم , إعمل مشروع جديد ثم أدرج 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
RE: هل يمكن حساب الفرق بالساعة؟ - ahmedegyptien - 12-02-16
(12-02-16, 12:43 AM)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
منتدى اكثر من رائع- لكم خالص التحية