اجراء عمليات حسابية علي الوقت

الطرح يتم بطريقة عادية جدا اذا ازلت النص مثل (م) وتعنى مساء او(ص) وتعنى صباحا

ويمكن ازالتها بدالة format

اليك هذا المثال : قمت ببرمجته سابقاً

ادخال الوقت ومن ثم يعد عد تنازلى الثانيه والدقيقه والساعه 14 Apr 2005

او راجع هذا الرابط ستجد ما شرح للدالة التاليه:

قمت ببرمجتها في برنامج اللغة الانجليزيه المثبت حالياً وهي لطرح 1 ثانية من وقت بهذا التنسيق "00:00:00"

اما هنا قمت بالتعديل على الدالة بإضافة وسيط ثالث حتى لا تكون عمليه الطرح بـ 1 ثانية ثابته اي يمكنك من خلال هذا الوسيط تحدية قيمة الطرح 1 و 2 و 3 ........... ثانيه .

وهذا هو كود الداله :

Public Function m_time(strTime As String, ints As Integer)
Dim hh, mm, ss As Integer

hh = Format(strTime, "hh")
mm = Format(strTime, "nn")
ss = Format(strTime, "ss")

If mm = 0 And ss = 0 And hh = 0 Then
	strTime = strTime
ElseIf mm = 0 And ss = 0 Then
	hh = hh - ints
	mm = 59
	ss = 59
ElseIf ss = 0 Then
	mm = mm - ints
	ss = 59
Else
	ss = ss - ints
End If

strTime = hh & ":" & mm & ":" & ss
m_time = Format(strTime, "hh:mm:ss")
End Function

ولااستدعائها قم بأستخدام هذا الكوود:

Private Sub Command1_Click()
Dim strTime As String
strTime = Text1.Text
 MsgBox m_time(strTime, Val(Text2))
End Sub

مرفق الدالة واستخدامها واي سؤال تحت امرك

تحياتي ,,,,,

A7med_prof

Subtract_Time.zip

فكره يمكنك تحويل ال time الى ثواني ثم اجراء عمليه الطرح منه ثم ارجاعه الى الصيغه الاصليه hh:mm:ss

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

في الجافا يمكنك استعمال Gregorian Calendar للتعامل مع التاريخ والوقت

GregorianCalendar thisday = new GregorianCalendar 
this day.setTime(new java.util.DAte());
thisday.setTimezone(...)
// yesterday
thisday.add(Calendar.DAY_OF_MONTH,-1)

thisday.getTime()

كما يمكنك انقاص الوقت الذي تريده بواسطه الدوال الموجوده في ال api مثلا اخذ الوقت قبل 10 دقاءق , ساعه , ساعه وعشر دفائق البارحه اي قبل 24 ساعه وقبل اسبوع , قبل ثلاثين يوم , شهر الخ...

http://java.sun.com/j2se/1.4.2/docs/api/ja...anCalendar.html

http://java.sun.com/j2se/1.4.2/docs/api/ja...l/Calendar.html

ابحث في ال visual basic لعلك تجد شيء مشابه.

او ربما يمكنك استعمال الدوال الخاصه بال visual basic مثل ال DateDiff وال DateAdd

http://msdn2.microsoft.com/en-us/library/b5xbyt6f.aspx

الأخ الفاضل ...

يمكنك أستخدام دالة DateAdd فى الأضافة أو الطرح (رقم سالب) من الوقت أو التاريخ، فلطرح 10 دقائق من 2:00 (أضف -10) أستخدم:

	MsgBox DateAdd("n", -10, CDate("2:00"))

حيث n تعبر عن الدقائق، كذلك:

yyyy: تعبر عن السنين

q: ربع سنة (3 اشهر)

m: شهر

d: يوم

ww: أسيوع

h: ساعة

n: دقيقة

s: ثانية

شكراً

بارك الله فيك يا اخوان وجعلة الله في ميزان حسناتكم

وفيك اخي

بالتوفيق ,,,,,,,,,

A7med_prof

مشكورين اخواني

الحل بسيط للغاية يمكنا عمل لك باستخدام الدالة

newtime=timeserial ( hour(oldtime),second(oldtime),0)

اشكرك لقد وجد الحل والي اللقاء