Egyption Programmer Expert: كيفية حساب الفرق بين وقتين

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

كثيرا مايتساءل البعض عن كيفية حساب الفرق بين وقتين والحصول على الناتج بالساعات والدقائق والثواني

وإليكم الطريقة :

نفتح الفيجوال ستوديو ونقوم بإنشاء فورم جديد :

ونرسم على هذا الفورم ثلاثة TextBox بحيث تكون أسمائهم : Text1,Text2,Text3

ونقوم بإضافة مفتاح ويكون اسمه Command 1

نعدل في الخاصيه text لكل من الثلاثه textbox ونمسح مابداخلها كما بالشكل التالي :

نقوم بتغيير caption من الخصائص الخاصه بالمفتاح إلى (حساب) كما بالشكل التالي :

نقوم بالضغط على أي مكان في الفورم حتى نقوم بفتح شاشة الكود ونختار منها General Declaration

كما بالشكل التالي :

ونقوم بتعريف ثلاثة متغيرات وهم :

Dim timein as date

Dim v_diff as date

ومن تحت المفتاح نكتب الكود التالي :

timein = Text1.Text

timeout = Text2.Text

v_diff = (timein - timeout)

'*********************************************

Hourdiff = Hour(v_diff)

minutediff = Minute(v_diff)

seconddiff = Second(v_diff)

'*********************************************

Text3.Text = Hourdiff & " : " & minutediff & " : " & seconddiff

شرح الكود السابق :

أول وثاني سطر نضع القيم الموجوده في text1 , text2 في المتغيرين timein , timeout

السطر الثالث نقوم بطرح المتغيرين ونضع الناتج في المتغير الثالث v_diff

السطر الرابع والخامس والسادس نستخدم الداله diff ونضع فيها ناتج طرح الساعات وناتج طرح الدقائق وناتج طرح الثواني في كلا من hourdiff , minutediff , seconddiff

السطر الأخير يتم وضع القيم الثلاثة بداخل textbox3 والفصل بين القيم الثلاثة بالعلامة ( : )

ثم نقوم بالضغط على F5 لعمل run للبرنامج :

ونكتب أي وقتين ثم نضغط على مفتاح حساب كما بالشكل التالي :