حساب الزمن بين الاوقات

1/ أخي , اللي انا أعرفه , إنك تضع الدقائق والأوقات والساعات كل واحد في مربع نص مختلف , يعني نموذجك يصير كده مثلاً :

والكود :

Private Sub Command1_Click()
t5.Text = Val(t1.Text) - Val(t3.Text)
t6.Text = Val(t2.Text) - Val(t4.Text)
End Sub

أنا حاولت استخدم Now هو يعيد الوقت الحالي لساعة الكمبيوتر لكنه لم يظبط وقام بحساب خاطئ

مع تحيات ...

علاء VB

تم ارفاق مثالين

الاول بدائي وه الذي استخدمة الاخ Ala2 VB مع استخدام الدوال

hour(now),minute(now),second(now)

والثاني متطور و هو الصحيح

EX.rar

_____________.rar

مشكورين وبارك الله فيكم

ومن تقدم الي تقدم

ارجو ان تكون قد استفدت

اخي ان المتال المرفق يعمل بشكل صحيح ادا كانت الوقت الاول اصغر من الوقت التاني

متال 23:45-22:45=1:00

اما في حالة اما في حالة 23:45-04:45=؟؟؟؟؟؟

الناتج خطا

ارجوا المساعدة

اولا ارجو تحديد المثال

هل هو المثال البدائي

ام المثال الصحيح

الرجاء التوضيح

هذا الكود لحساب الفرف بين الوقتين

myTime=Datediff("n","12:00","12:33")

تحياتي

انه المتال الصحيح ومع داك قد تغلبت علي هده المشكله ودالك ان قمت

في حلة الزمن المطروح منه اكبر من الزمن الاخر تستخدم المتال السابق

اما ادا كان الزمن المطروح منه اصغر اي متل 23:00-04:12=؟

1تقوم بطرح الزمن الحالي وهو 23:00 من ال 23:59 بنفس الطرقة المتال الصحيح اي نهاية اليوم الحالي وليكن الناتج س

2 ليكن الزمن الاخر وهو 4:12 ص تقوم بجمع س+ص وبدالك نحصل علي الناتج الصحيح