السلام عليكم أخواني
أحتاج إلى كود الفرق بين زمنين مختلفين مثل الكود في برنامج أوقات الصلاة
مثلاً في تكست1 وقت صلاة الظهر 12:45:00
في تكست 2 ساعة الكمبيوتر مثلاً 7:30:00
ما أحتاجه هو كود يحسب الوقت الباقي في تكست 3 ويجب أن يكون الناتج 5:15:00
ويبدأ بعد تنازلى حتى يحين الوقت
أرجوا المساعدة وشكراً لكم سلفاً
(14-10-14, 02:12 PM)b4getws كتب : [ -> ]
كود :
A = "12:45:00"
B = "7:30:00"
C = CDate(A) - CDate(B)
D = FormatDateTime(C, vbShortTime)
MsgBox D
شكرا صديقي على ردك ولكني أحتاج للتالي
لدي وقت ثابت هو 1:00:00 am
والوقت الثاني هو الوقت الحالي وعادة يكون قبل يوم وهذه مشكلتي
استعملت هذا الكود
كود :
Dim timein As Date
Dim timeout As Date
Dim v_diff As Date
Text1.Text = Format(Time, "HH:MM:SS AMPM")
timein = Text2.Text
timeout = Text1.Text
v_diff = (timein - timeout)
'*********************************************
Hourdiff = Hour(v_diff)
minutediff = Minute(v_diff)
seconddiff = Second(v_diff)
'*********************************************
Text3.Text = Hourdiff & " : " & minutediff & " : " & seconddiff
ولكن تواجهني مشكلة عندما يكون الوقت بعد منتصف الليل
مثلا الوقت الثابت هو 1:00:00am
والساعة الآن هي 11:00:00pm
المفروض يكون الفارق هو 2:00:00
ولكن البرنامج لا يحسب فرق الأيام ويظهر لي الباقي 22:00:00
وأحتاج أيضا لزيادة الوقت الثابت مثلاً الوقت الثابت + وقت جديد مثلاً 1:00:00 + 00:30:00
عندها يصبح الوقت الثابت 1:30:00am
والوقت الحالي 11:00:00pm
والتنيجة تكون 2:30:00
أرجوا المساعدة وتصحيح الكود
وشكراً لكم سلفا
يجب ان تستخدم التاريخ للساعة المراد تحديدها فالكمبيوتر لا يفهم ماذا تريد بهذه الطريقة
لان الساعة الواحدة تكون ضمن اليوم الاخر وليس اليوم
لذلك حدد التاريخ والوقت واجعل الحساب للفارق بينهم بالساعات
كذا تكون حساباتك دقيقة
اما اذا كان الوقتين المراد الحساب بينهم في نفس اليوم
اجعل الوقت يكون بنظام 24 ساعة
تحياتي