جمع فترات

وعليكم السلام ورحمة الله وبركاته

هذه أخي واحدة من الطرق الممكنة:

Private Sub Form_Current()
    Dim sDate1() As String, sDate2() As String, sDate3() As String, sDate4() As String
    Dim intMonths As Integer, intDays As Integer, i As Integer

    sDate1 = Split(date1, "،")
    sDate2 = Split(date2, "،")
    sDate3 = Split(date3, "،")
    sDate4 = Split(date4, "،")

    intMonths = Val(Split(sDate1(1), "")(0)) + Val(Split(sDate2(1), "")(0)) _
              + Val(Split(sDate3(1), "")(0)) - Val(Split(sDate4(1), "")(0))

    intDays = Val(Split(sDate1(2), "")(0)) + Val(Split(sDate2(2), "")(0)) _
              + Val(Split(sDate3(2), "")(0)) - Val(Split(sDate4(2), "")(0))

    txtResult = Val(Split(sDate1(0), "")(0)) + Val(Split(sDate2(0), "")(0)) _
              + Val(Split(sDate3(0), "")(0)) - Val(Split(sDate4(0), "")(0)) _
              + Int(intMonths / 12) & " سنوات، "
    txtResult = txtResult & (intMonths Mod 12) + Int(intDays / 30) & " شهور، "
    txtResult = txtResult & (intDays Mod 30) & " يوم، "
End Sub

الافتراض أن عدد أيام الشهر 30 يوماً، والفاصل بين السنوات والشهور والأيام هو دوماً الفاصلة.

تجد ذلك في الملف المرفق، والله أعلم.

Date.rar

أخي الكريم ليست هذه فترات زمنية ، وإنما هي حقول نصية لا يمكن اجراء عمليات حسابية عليها إلا بطريقة ملتفة جداً

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

============

بارك الله فيك أخي أحمد مبارك

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

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

ماذا لو نسي مدخل البيانات فاصلة من الفواصل أو وضع بدلاً منها علامة أخرى؟

وكيف الحال مع الاشهر عدد ايامها بخلاف الثلاثين؟؟

كدت أبدأ في العمل على حل ملخصه غختبار السلسلة النصية وعزل مجموعة الارقام الاولى ومعاملتها على انها السنوات والمجموعة الثانية على انها اشهر ...وهكذا

إلا أني تراجعت إذ الأفضل هو السير تبعاً للأسس العلمية لا أن نبحث عن حلول لمشاكل من صنع أيدينا

اقتباس

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

هذا هو الرأي أستاذ إيهاب، وإنما استهوتني المسألة كتمرين برمجي أحن إليه أحياناً...

السلام عليكم ورحمة الله وبركاته

السادة الأفاضل...

بارك الله فيكم وأشكركم على صنيعكم ....

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

بوركتكم ... أرجو المساعدة

Mark.rar

أين الملف التي ظهرت فيه المشكلة؟؟

وكما قلنا لن يخلو الأمر من المشاكل طالما أخللت بشروط الإدخال (الفواصل وما إلى ذلك) المبني عليها كود الأستاذ أحمد

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

عموماً - كتمرين برمجي "كما قال أستاذنا أحمد مبارك" سأحاول بطريقة أخرى ، والله المستعان

بوركت أخي ....

الملف الذي ظهرت فيه المشكلة هو نفسه الملف بعد تعديله من أستادنا الكبير: أحمد مبارك

بانتظار ردك ... وأعتذر عن إزعاجك

أولاً وقبل كل شيء: أنا أتفق مع الأستاذ إيهاب فيما قال، وعلى الرغم من ذلك، بانتظار أي طريقة أخرى يتفضل بها، ففي النهاية هو تمرين جيد لتذكر بعض الدوال على الأقل...

ثانياً: أخي أيمن، لست أستاذاً كبيراً ولا صغيراً، وإنما يطلق علي ذلك أخي إيهاب من باب التواضع من جانبه، فلا تغتر! أكون ممتناً لك لو خاطبتني باسمي مباشرة.

ثالثاً: من باب تصحيح الخطأ فقط، أرفق الملف مرة أخرى مع بعض الاحتراز عندما تكون مربعات الفترات خالية...

أخوكم أحمد

Date.rar

السلام عليكم ورحمة الله وبركاته

الأخوة الأكارم ..أشكر لكم صنيعكم وجهودكم

بصراحة شديدة واجهت الكثير من المشاكل بسبب أن الفترات نصية

فتارة الكود يعمل بشكل جيدا وتارة أخرى لا يعمل

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

ولكن أطلب خدمة من حضارتكم بأن لا يتم تقسيم مدة الخدمة إلى خلايا مستقلة مثل (خانة للأيام ـ خانة للأشهرـ خانة للسنوات) وإنما أرغب بأن تكون في خانة واحدة بهذا الشكل (10سنوات، 5 شهور، 12 يوم)

ولكم جزيل الشكر والعرفان

أخى

الافضل هو استخدام التاريخ

مثل تاريخ بداية المدة و تاريخ نهايته

ثم تتم العمليات الحسابية عليه

mrnooo2000 كتب:

أخى

الافضل هو استخدام التاريخ

مثل تاريخ بداية المدة و تاريخ نهايته

ثم تتم العمليات الحسابية عليه

هذا هو القول السليم ،

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

ببوركت يا أخي

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

وجزيتم خيرا

Duration.rar

:cool:UP

:blink:up

السلام عليكم

أرجو من الأخوة الأعضاء مساعدتي

وشكرا

تفضل اخى

جرب المرفق

Duration.rar

جزاك الله خيرا أخي mrnooo2000

لقد قمت بتجربة عدة تواريخ فوجدت خطأ في حساب المدة حيث يظهر لي في فرق الشهور (12 شهور) ـ وفرق الأيام أيضا غير صحيح ......

أرفقت صورة عن التواريخ التي أدخلتها ... موضحا بها المدد الخاطئة

أعتذر عن إزعاجك ....... أرجو التعديل :blush:

Durapict.rar

تفضل اخى

تم التعديل

الان الكود اكثر دقة

جرب و اخبرنى

Duration.rar

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

سأجرب وأرد عليك

وألف شكر يا زعيم

ما شاء الله الموضوع 100 %

ألف شكر يا إخوان