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

وردنى هذا المثال لتجربته فى حساب الفرق بين وقتين للاستفاده به فى تحديد الاتي كمثال:

وقت انتهاء العمل - وقت بدء العمل = الزمن الذى استغرقه العمل

وقت وصول العامل الى مكان العمل - الوقت المفترض وصول العامل فيه لبدء العمل = زمن التاخير عن بدء العمل

والكود الذى ورد الى هو كالتالى :

Dim dtime1 As Date

Dim dTime2 As Date

Dim dTimeDiff As Date

dtime1 = CDate(Textbox1.Text)

dTime2 = CDate(Textbox2.Text)

dTimeDiff = dTime2 - dtime1

Textbox3.Text = Format$(dTimeDiff, "hh:nn") 'nn is forminutes... if you use MM you'll get months...

ولكن عند تجربته حصلت على رسالة خطأ (run-time error "424" object required)

ويتوقف البرنامج عند الجمله التاليه

dtime1=cdate(textbox1.text

ارجو معاونتى فى تصحيح الخطأ

fkwinna متواجد حالياً تقرير بمشاركة سيئة رد مع اقتباس