كيف يمكن حساب الفرق بين وقتين ؟

بسيطه

if text1.text="02:34" then
msgbox "asdsuez"
end if

للمعلومية لو بحثت لوجدت هذه المسألة مكرره <_< عشرات المرات

الشفرة كالتالي -_-

Private Sub Form_Load()
'HnHn : الوقت
	Text1.Text = Time
	Text2.Text = Time
End Sub

ثم ضع التنفيذ تحت زر أمر

Private Sub Command1_Click()
'HnHn : الفرق بين الوقتين
Text3.Text = DateDiff("s", Text1.Text, Text2.Text) & " ثانية"
End Sub

ثم غير في ثواني Text2.Text وقم بالضغط على زر الامر ولاحظ

S = ثواني

N = دقائق

H = ساعات

اقتباس

كيف يمكن أن أحدد وقت معين فى Textbox حتى عندما يحين هذا الوقت يقوم البرنامج بتنفيذ خطوة معينة ؟

الحل موجود على هذا الرابط فقط استبدل المسألة من Date إلى Time وطبق العملية السابقة في فرق التوقيت وانتهى الامر

شكرا أخوى الأعزاء Hnhn & asdsuez وجزاكم الله كل خير .

أما بخصوص أن الموضوع مكرر فأنا آسف لأن النت عندى سرعته بطيئة جدا والسعر عالى جدا "modem" وما بقدر أطول لذلك ما بجد الوقت للبحث وأنا آسف إنى أضفت موضوع مكرر لكن ما باليد حيلة .

وآسف مرة أخرى

أريد معرفة كيف يمكن تنفيذ أمر معين بعد عدد معين من الساعات ؟

عن طريق التيمر اخي الكريم Timer

يمكنك اخى النظر في توقيعي ستجد موضوع يفيدك

شكرا جميعا على المرور