( تمت الإجابة ) مشكلة ال30 يوم في الفرق بين تاريخين و ظهور الفارق كالساعة

[lordring]

السلام عليكم

في المرفق التالي في دالة حساب الخدمة بالتفصيل

يظهر خطاء عندما تكون خدمة المنتسب اقل من 30 يوم تظهر بالشكل التالي

http://dl.dropbox.co...ing12-29-10.rar

[أ / محمد صالح]

تفضل أخي الكريم

تم عمل دالة جديدة لحساب الفرق بين التاريخين

mas_lordring2-29-10.rar

[الصمت المتحدث]

مشكور أخي mas 123على التفاعل

كنت في هذا الصدد ووجدت حلك الذي أفادني كثيراً

فقط كنت أتساءل هل من الممكن جعل العداد أكثر تفصيلا

بحيث يتم احتساب الساعات و الدقائق الى الثواني

وشكرا

[أ / محمد صالح]

نعم هذا ممكن إذا كان التاريخ القديم أيضا مسجل بتنسيق به الساعة والدقيقة والثانية

وليس مجرد تاريخ به اليوم والشهر والسنة

لأن في هذه الحالة سيتم اعتبار الوقت هو الثانية عشرة صباحاً

بمعنى 1/1/2000 تساوي 1/1/200 00:00:00

ولكن أترك لك فرصة استنباط خط سير الكود وتنفيذه على الساعات والدقائق والثواني كما تم تنفيذه على السنين والشهور والأيام

وتذكر المثل الرائع

لا تعطني سمكة ولكن علمني كيف أصطاد

[الصمت المتحدث]

سأحاول حتى لو أني في تجربتي الأولى على الأكسس

إلا أنني سأحاول ولن أيأس من المحاولة حتى أصل

أما في حالة ما إذا تعضر علي الأمر

فأكيذ لن أتوانى عن سؤالك

[الصمت المتحدث]

تمت أولى المحاولات وهي النتائج لا أجدها سليمة 100 في 100

MHD_TimeAndDate.rar

[ابوخليل]

استاذنا العزيز محمد صالح

سلمت أناملك

اعتقد انه يمكننا الآن في مثالك الاستغناء عن تنسيق التاريخ الموجود سابقا في مربع النص ؟

[أ / محمد صالح]

تمت أولى المحاولات وهي النتائج لا أجدها سليمة 100 في 100

MHD_TimeAndDate.rar

بارك الله لك

إنها سليمة 100%

وهذا الدليل

هذه هي البداية

أن تحاول

[أ / محمد صالح]

استاذنا العزيز محمد صالح

سلمت أناملك

اعتقد انه يمكننا الآن في مثالك الاستغناء عن تنسيق التاريخ الموجود سابقا في مربع النص ؟

كل عام أنتم بخير أخي الكريم أبا خليل

لم أنتبه إلى أنه يوجد تنسيق في مربع النص لذلك بنيت فكرتي على أن يظهر الفارق بنصه الموجود في الكود

....

وطبعاً كما قلت يجب الاستغناء عن تنسيق التاريخ الموجود في مربع النص بالنسبة للأخ lording

كل عام والجميع بكل خير

[الصمت المتحدث]

العفو أستاذنا محمد صالح

الصورة غير مرئية

أما بخصوص تشكيكي في سلامة النتيجة المحصل عليها

فكان سببه ان الناتج غير صحيح على ما يبدو لي

لأنني أعتمدت الوقت الحالي والتاريخ الحالي في حقلي التاريخ والوقت

ومن المفترض عند طرح الوقت الحالي من الحقلين يكون الناتج صفر في جميع

مع العلم أن الناتج لدي يحتسب عددا من الساعات والدقائق

قد يكون الناتج سليم كما تفضلت

لكن هل بامكان التوضيح حتى أفهم آلية عمل الدالة

وشكرا

تم تعديل أكتوبر 31, 2011 بواسطه Cha3iR

[أ / محمد صالح]

المشكلة في ملفك أخي الكريم هي جعلك لتنسيق التاريخ في حقل الآن hh:mm:ss

والصواب yyyy/mm/dd hh:mm:ss حتى يظهر كما بالصورة المرفقة مني

وكذلك التاريخ الثاني

....

بالنسبة لآلية عمل الدالة من خلال تتبع الكود تجد أن :

السنين هي السنة الجديدة - السنة القديمة

وإذا كان الشهر القديم أكبر من الشهر الجديد يتم طرح سنة من السنوات وإضافة 12 شهر على الشهر الحالي

وإذا كان الشهر الحالي أكبر فالشهور هي طرح الشهر الحالي - الشهر القديم

وهكذا

[الصمت المتحدث]

مشكور أخي جزيل الشكر

جزاك الله كل خير وربي ما يحرمنا منك إن شاء الله

وشكرا لصاحب الموضوع هو الآخر

أخي محمد صالح توضحت الأمور عن الآخر

جاء على راسي فكرة إن كان بالامكان تنفيدها

الفكرة: أن نجعل حقل العداد حي يحتسب الوقت بالثانية

أي مع كل ثانية يتغير الناتج المحصل عليه

وشكرا

[أ / محمد صالح]

نعم يمكنك ذلك أخي الكريم

ضع في الخاصية interval القيمة 1000

وضع هذا الكود في حدث ontimer

Private Sub Form_Timer()

Label5.Caption = date_diff([NDate], Now())

End Sub

تم إضافة تسمية label لظهور التاريخ الذي يتم تحديثه عليها

ومرفق ملفك بعد التعديل

Mas_TimeAndDate.rar

[الصمت المتحدث]

الله يبارك لي فيك عن جد لا أجد ما أقول

صراحة تفاعلك يعطيني دفعة من أجل الابحار أكثر في بحر الأكسس

وإن شاء الله تكون دوما في حالة ما هاج البحر عليا ههه

نشوفك دوما سندا لمبتدئين أمثالي

ربي ما يحرمنا منك وينولك لي في بالك

ربي احفظ له والصحة وأكتب له الجنة

آمين

[الصمت المتحدث]

بالفعل هو حسب السؤال تمت الاجابة

لكن مع تطور الأمور تتطور الأفكار برأسي

وأتمنى أن لا أكون قد أكثرك على الأخ محمد صالح وأثقلت عليه بطلباتي التي ما تكاد تنتهي

حتى تتولد من جديد.. لكن ماذا أفعل رأسي لا يتوقف عن التفكير

وآخر ما خطر على بالي

هل بالامكان التحكم في ظهور yyyy/mm/dd hh:mm:ss في الخانة المطبق عليها الدالة

بحيث في حالة ما إذا كانت إحدى القيم تساوي 0 لا يتم إظهارها

مثلا لو كان لدينا 0 عام و 5 أشهر و... القيمة 0 عام يتم اخقاؤها وهكذا

أتمنى أن يكون طلبي واضح وأتمنى أن لا تؤاخدوا مبتدءاً مثلي لكثرة أسئلته

وشكرا

[أ / محمد صالح]

يمكنك عمل ذلك أخي الكريم بتعديل السطر الأخيرفي الدالة إلى التالي

date_diff = IIf(years = 0, "", years & " عام و ") & IIf(months = 0, "", months & " شهر و ") & IIf(days = 0, "", days & " يوم و ") & IIf(Hours = 0, "", Hours & " ساعة و ") & IIf(Minutes = 0, "", Minutes & " دقيقة ") & IIf(Seconds = 0, "", "و " & Seconds & " ثانية ")

[الصمت المتحدث]

أخي محمد أستاذي محمد صالح الشكر في شخصكم قليل

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

لذا سأحرص على عدم تفويت الدعاء في ظهر الغيب لشخصكم الطيب

قسم الأكسس منور بوجودك وربي يدوم علينا هذا النور

ينفسي استفسار ولكن أجد نفسي خجلا من طرحه

ان كان هناك متسع من سعة صدركم أسألكم بطرحه

وشكرا

[أ / محمد صالح]

أكرمك الله أخي شاعر

وشكرا على كلماتك الرقيقة

وإذا كان استفسارك أخي متعلق بالموضوع فلا تتردد في طرحه

وإذا لم يكن كذلك يمكنك فتح موضوع جديد بهذا الخصوص

كل عام وجميع الإخوة بكل خير

[الصمت المتحدث]

أكرمك الله وأحسن إليك على حسن تفاعلك

هو بالفعل متعلق بالموضوع

استفساري يتعلق بنفس الخانة التي سبق وطبقنا الدالة عليها

لكن هذه المرة أطرح إن كان بالامكان التحكم في ظهور الكلمات " ثانية ، دقيقة ، ساعة ،.."

بحيث لو كانت القيمة هي 1 تظهر كلمة " ثانية " أمامها وهذا ما لدينا حتى الساعة

لكن الاضافة التي ننتظرها هي لو كانت القيمة محصورة ما بين 3 و 10 تظهر كلمة " ثواني " بدلا من كلمة " ثانية "

وإذا كانت القيمة تساوي 2 تظهر كلمة " ثانيتين " مع عدم ظهور الرقم 2

وهكذا بالنسبة لباقس الوحدات الأخرى

أتمنى أن يكون الطلب واضحا كما أتمنى أن يكون يسيرا عليك حله

و شكرا

[الصمت المتحدث]

فقط لاثارة الانتباه بعدما لم أتلقى ردا على استفساري الأخير

هل الطلب غير واضح أم غير منطقي ؟

وشكرا

[أ / محمد صالح]

الموضوع بسيط أخي الكريم

يمكنك الاستغناء عن السطر الأخير في الدالة ووضع كود لتفقيط كل رقم من الأرقام الناتجة

ساعتها ستحصل على مثلا:

ثلاثة شهور ويومان واثنتا عشرة ساعة وعشرون دقيقة وخمس وثلاثون ثانية

ولكن اعذرني

هذا الكلام لا يتفق مع تحديث الفارق كل ثانية

[الصمت المتحدث]

شكرا لك أخي محمد

هي فكرة وكبرت براسي ساحاول وأحاول حتى أصل إليها

أو أثيقن من استحالة إمكانيتها

[lordring]

تفضل أخي الكريم

تم عمل دالة جديدة لحساب الفرق بين التاريخين

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

قمت بتطبيق دالتك على الحقل الموجود في نموذجي وعملت 100% بارك الله بيك

هذه الصورة قبل التطبيق

وهذه بعد تطبيق دالتك

حاولت ان طبقها على بقية الحقوول لم افلح اتمنى منك ان تكمل جميلك بتعديل الملف المرفق

لانتهي من هذا الموضوع

وضروري جدا ان تظهر نتيجة في المجمع النهائي حتى في حال عدم وجود قيم في الحقول الاخرى كالاضافية او الانقطاع وان لايحصل التالي

والف شكر لك مقدما وكل عام وانت وبخير .........

old.rar