فكرة برمجة استعصت علي

بامكانك أخي ان تستخدم المقارنة نفسها DateDiff و تستخدم ال time() بدل الشهر و الله اعلم كما ايضا يمكنك تنسيق الوقت كالتالي :

 formatDatetime(now,vbShortTime) ' -->  12:15

 formatDatetime(now,vbLongTime) ' -->  12:15:13 PM



' أيضا تذكر انك تضيف يوما عندما تكتب

now( )+1

' اذا نفس ستزيد ساعة عندما تكتب

time( ) + 1

من المثال يتضح انك تستطيع استخدام الدالة الاولى dateDiff لكن انا انصحك ان تستخدم الدالة ( )cLng للتعامل مع التاريخ في حال ظهور خطأ ليتم احتساب الناتج على انه long number ثم قم بتحويله لساعة عن طريـــق ال ( )cDate ..

اتمنى ان تجد المطلوب ..

عذرا للأخ محمد خليل على التدخل :) ..

والكود التالي كتبته لمقارنة التاريخين بدقة الدقائق حيث بتغيير بسيط جدا ممكن مقارنتهما بدقة الأيام وهكذا ...

date1 = CDate("1/1/2003 12:30")

date2 = Now



Response.Write("Date1 = " & FormatDateTime(date1) & "
")

Response.Write("Date2 = " & FormatDateTime(date2) & "
")



diffMinutes = DateDiff("n", date1, date2)



if diffMinutes = 0 then

	Response.Write("Both times are equal")

elseif diffMinutes > 0 then

	Response.Write("Date2 > Date1 in " & diffMinutes & "min")

else

	Response.Write("Date2 < Date1 in " & -diffMinutes & "min")

end if

النتيجة كانت :

Date1 = 1/1/2003 12:30:00 PM

Date2 = 1/17/2003 7:02:04 PM

Date2 > Date1 in 23432min

وفي حالة التساوي :

Date1 = 1/17/2003 7:06:00 PM

Date2 = 1/17/2003 7:06:00 PM

Both times are equal

يمكن مراجعة شرح التابع DateDiff من الصفحة التالية في MSDN :

http://msdn.microsoft.com/library/default....fctdatediff.asp

طبعا بتغيير ال interval يمكن تغيير الدقة .. وأدق الأمر جعلها بالثواني أي s

:) شكرا ليك هاني .. في الحقيقة نسيت اكتب انو لازم يستبدل d للأيام ب n للدقائق ..