[shadi_alfares]

---

(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
 أرجوا المساعدة وتصحيح الكود
وشكراً  لكم سلفا