من يعرف الكودات الخاصة بالعمليات الحسابية على الوقت من طرح وجمع..

السلام عليكم...

هذه دوال معالجة الوقت في VB6:

* الدالة Time للحصول على الوقت الحالي.

* الدالة Hour للحصول على الساعة (بنظام 24) من الوقت:

Dim H As Long
H = Hour(ATime)

حيث ATime أي قيمة وقت مقبولة.

* الدالة Minute للحصول على الدقائق من الوقت:

Dim M As Long
M = Minute(ATime)

* الدالة Second للحصول على الثواني من الوقت:

Dim S As Long
S = Second(ATime)

* الدالة TimeSerial لإنشاء قيمة وقت:

Dim MyTime As Date
MyTime = TimeSerial(H, M, S)

حيث H الساعة (بنظام 24) و M الدقائق و S الثةاني.

* الدالة TimeValue لتحويل نص (string) إلى قيمة من النوع Date تحتوي على الوقت:

Dim MyTime As Date
MyTime = TimeValue(Text1.Text)

* الدالة DateDiff للحصول على الفرق بين وقتين (أو تاريخين) بوحدة معينة (يعني الفرق بالساعات أو الدقائق أو الثواني ... إلخ):

Dim Interval As Long
Interval = DateDiff(unit, date1, date2)

حيث unit وحدة قياس الفرق (string) و يمكن أن تكون:

"h" للحصول على الفرق بالساعات.

"n" للحصول على الفرق بالدقائق.

"s" للحصول على الفرق بالثواني.

بالإضافة إلى رموز أخرى تستعمل مع التواريخ.

أما date1 و date2 فهما الوقتان (أو التاريخان) اللذان نريد إيجاد الفرق بينهما. إذا كان الوقت المحدد في date2 أقدم من الوقت المحدد في date1 فإن الناتج (الفرق) يكون بالسالب.

* الدالة DateAdd لإضافة فترة معينة إلى الوقت أو طرح فترة معينة من الوقت:

Dim NewTime As Date
NewTime = DateAdd(unit, number, ATime)

حيث unit كما في الدالة DateDiff، أي نوع الوحدات التي نريد إضافتها أو طرحها (ساعات أو دقائق أو ثوان). أما number فهو عدد الوحدات التي نريد إضافتها أو طرحها. إذا كان هذا العدد موجباً فذلك يعني إضافة (زيادة) و إذا كان سالباً فذلك يعني طرح (إنقاص).

أما البارامتر الثالث ATime فهو الوقت الذي نريد الزيادة عليه أو الطرح منه.

نرجو الاستفادة و السلام.

ااااالسلام عليكم

مممعلومات قيمة بالحقيقة وياريت لو برنامج بسيط يظهر تطبيق هذه الاكواد والطرق

تفضل اخي العزيز هذا حل منطقي

الحل النهائي لطرح وقت من وقت.rar

الشكر الكثير للأخ "najy_zl" لوضع معلومات قيمة ومهمة جداً , الكل يحتاجها لبرمجة أنظمتهم الخاصة.