عمليات حسابية على التاريخ والوقت

أخي الغالي

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

لك تحياتي

بعد اذن استاذنا الفاضل مصلخ الحريصي...

لاجراء عمليات حسابية على الوقت لابد من ان يكون كتابة الوقت على اساس 24 ساعة اي الساعة الواحدة ظهرا تكنب 13:00 والساعة السابعة مساءً تكتب 19:00 ..وهكذا

اما الفترة الصباحية (من الواحدة بعد منتصف الليل الى الثانية عشرة وتسع وخمسون دقيقة ظهرا) فتكتب كما هي.

الان قم باجراء عملية الطرخ (وقت النهاية - وقت البداية) ستظهر لك نتيجة مزعجة في نظرك وما انزل الله بها من سلطان!!!!!

فلو قمت بطرخ الثانية عشر ظهرا - الرابعة صباحا (12-4) صباحا ستظهر لك النتيجة 0.33333333

لماذا ؟؟؟؟

لان انتنسيق الحقل - كما تعلم - هو تاريخ / وقت - فيترجمه الاكسس لا على انه ساعة كذا فقط بل على انه ساعة كذا من يوم كذا وبالتالي فان نتيجة العملية السابقة (التي تنتظر ان تكون ثمان ساعات) يعرضها البرنامج على انها ثلث يوم اي 0.333333 من اليوم

ما الحل اذن؟؟

هو تحويل الايام الى ساغات وذلك بضرب الناتج * 24 (عدد ساعات اليوم).

افتح الاستعلام الموجود بالمرفق .......time.rar

تحياتي

أخي ابا عثمان

حلول ممتازه واسلوب رائع بارك الله فيك

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

اخي ايهاب عثمان

بارك الله فيك وزادك من العلم والمعرفه

تخيل ان الوقت بهذا الشكل

وقت البداية

04:20:00 ص

وقت النهاية

12:50:20 م

كيف سيكون الفرق يالطبع سيكون بهذا الشكل

8.50555555555555

بالطبع هذا لن يرضي غرورك وستبحث عن حل لهذه المشكلة

كيف نتغلب على هذه المشكلة

لابد لنا من عمل وظيفه تقوم بالتحويل بالشكل الصحيح لإيجاد الفرق بين الساعات والدقائق والثواني ويتم استدعاؤها من اي مكان

انظر هذه الدالة

Function GetElapsedTime(interval)

 Dim totalhours As Long, totalminutes As Long, totalseconds As _
	 Long
 Dim days As Long, hours As Long, Minutes As Long, Seconds As Long

 days = Int(CSng(interval))
 totalhours = Int(CSng(interval * 24))
 totalminutes = Int(CSng(interval * 1440))
 totalseconds = Int(CSng(interval * 86400))
 hours = totalhours Mod 24
 Minutes = totalminutes Mod 60
 Seconds = totalseconds Mod 60

 GetElapsedTime = days & " يوم " & hours & " ساعة " & Minutes & _
 " دقيقة " & Seconds & " ثانية "

 End Function

ولإستخدامها في الاستعلام توضع هكذا

ElapsedTime:GetElapsedTime([EndTime]-[StartTime])

ولإستخدامها في مربع نص غير منضم توضع هكذا

=GetElapsedTime([EndTime]-[StartTime])

لتصبح النتيجة هي

0 يوم 8 ساعة 30 دقيقة 20 ثانية

وهذا المثال بعد التعديل

time_up.rar

ألأخوة الأعزاء ربنا يكرمكم ويبارك فيكم على حرصكم على مساعدتى وسرعة استجابتكم

أنا قرأت الردود وان شاء الله حا أجربها ... على البرنامج عندى ... وان شاء الله أبلغكم بالنتيجة

ربنا يجازيكم كل خير ... ويزيدكم من فضله

الاخ الكريم ... احمد عادل بارك الله فيك ...ونحن في خدمتك

الاخت والاستاذة زهرة.....

اقتباس

بالطبع هذا لن يرضي غرورك وستبحث عن حل لهذه المشكلة

معاذ الله.....فمن نكون نحن بجانب علمكم وخلقكم الكريم....

مارايكم في هذا الحل (المجنون)؟؟؟

time.rar

شوف استاذي ايهاب

بخصوص حل مجنون فهو فعلا حل مجنون ولن يفكر فيه احد

لانك قمت بالتفرقه بين الثواني والدقائق والساعات ( مو حرام عليك - يعني خايف يأكلو بعض ) :) :)

الله يعين اللي حيشتغل على الاستعلام ده بالتأكيد راح يتجنن كان عاوز ارقام معينه طلع له استعلام معفرت