[فراس الغزي]

فراس الغزي كتب : كتب :

elgokr كتب : كتب :

فراس الغزي كتب : كتب :

elgokr كتب : كتب :

فراس الغزي كتب : كتب :السلام  عليكم  اخي  كيفك  

  اخذ  بداية  انا اسف ارسلت اليك رسالة  خاصة  

 ولكن  عندي  استفسار  

  لاحظ الصورة المرفقة  شاهد الصورة  المرفقة  الان  انا  عندي  حقل  تاريخ  وشاهد  مكتوب ثلاث  سنةة  ابي لما اختار  من الكومبوكس  مثلا خيار  بيطلع  هو 3 سنوات  او 18 شهر  او  45 يوم  ابي  تنقص  من  حق  التاريخ  الي  موجود  بالفورم  الي  ماشر  عليه  وبصراحة  محتاجة  ولا افهم الفكرة  كيف  تكون  ممكن مساعدة  من  جنابك  الكريم  وهذا رابط  المشروع  اخي  واتمنى  منك المساعدة  اخي  
اخي  الي بدياه لما اختار الخدمة  ويطلع  الناتلج في  اليبل  3 سنوات بينقص  من  الناتج الي  ماشر  عليه بالصورة ولو  اختار 18 شهر بينقص  من الشهور  ولو  اختار 90 يوم  بينقص  من  الايام     وهكذا  اخي  ربي يوفقك  اتمنى  منك المساعدة  اخي 
https://up.top4top.net/downloadf-103756v2q1-zip.html

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

لنقول ان اللى مكتوب به 18 اسمه TYear1

ونقول اللى مكتوب به 3 سنة تحت اسم Tyear2

الان المطلوب طرح 18-3 ليصبح 15

واللى هى عبارة عن : TYear1 - TYear2

طيب كيف يصبح الكود

لنوضح اولاً بما ان جملة 3 سنة هى عبارة عن الرقم اولاً من ثم الاسم ويوجد بينهم مسافة

اى انها بهذا الشكل [ 3 سنة ]

فالكود سيصبح بهذا الشكل

كود :

كود :

TYear1.text = TYear1.text - val(TYear2.text)

بمجرد تنفيذ الكود ستجد 18 تحول الى 15

واذا كان المطلوب عرضها فى مكان اخر سيتم كالتالى

كود :

كود :

Dim ii as integer = TYear1.text - val(TYear2.text)

طيب ما هى وظيفة Val اليس هى لعرض الارقام

نعم لعرض الارقام التى تبداء قبل النصوص 

وبما اننا لدينا جملة 3 سنة اى بداء النص برقم 

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

اتمنى ان تكون الصورة وضحت لك كاملاً

تحياتى لك

وتمنياتى لك التوفيق

 بداية  شكرا لك  لك  اخي  وفقك  الله  بداية  شكرا لك  اخي لكن  واجهتني  مشكلة  وهي  الان  انا  عندي  عدة  خيارات  منها  3 سنوات  و عندي  18 شهر  وعدي  90 يوم  الان  لما  جربت الكود  وطبقته  على  الكل  بيظهر  عندي  خطا يعني مثلا لو  اخترت الخدمة  18 شهر  نقص  لي  من السنوات  ومن الاشهر  ومن  الايام  18  وكذلك  الايام  لما  ختار  90 يوم  نقص  قيمة  ال  90 يوم  من  كل  الناتج  اليوم  والشهر  والسنة  

  ولا  ادري  ما الخلل

الفكرة لما شرحتها وضحتها على كونها للسنة

وما ينقصك فعله هو عملية تحقق

ان الكمبوبوكس المحدد فى نتتصف الشاشة هل هى 3 سنوات أم انها 18 شهر أم انها 90 يوم

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

فمثلا كود التحقق سيكون على مثال التالى

كود :

كود :

       If ComboBox1.SelectedItem = "3 سنوات" Then
           'الكود الذى سبق وتم شرحه
           TYear1.text = TYear1.text - Val(TYear2.text)
       ElseIf ComboBox1.SelectedItem = "18 شهر" Then
           'هنا ستقوم بعمل كود التالى كونها سنة ونص
           ' جلب عدد السنوات
           Dim yy As Double = Val(Val(TYear1.text) / 12).ToString("0")
           ' جلب عدد الاشهر
           Dim mm As Double = Val(TYear1.text) - Val(yy * 12)
           ' الكود للمعادلة 
           TYear1.text = TYear1.text - yy
           TMonth.text = TMonth.text - mm
       ElseIf ComboBox1.SelectedItem = "90 يوم" Then
           'هنا ستقوم بعمل كود التالى كونها 3 اشهر
           ' جلب عدد الاشهر
           Dim mm As Double = Val(Val(TYear1.text) / 30).ToString("0")
           ' جلب عدد الايام
           Dim dd As Double = Val(TYear1.text) - Val(mm * 30)
           ' الكود للمعادلة 
           TMonth.text = TMonth.text - mm
           TDay1.text = TDay1.text - dd
       End If

تحياتى لك

وتمنياتى لك التوفيق

اخي  العزيز  ولو  تعبتك  ولكن  اعتقد  حصل  عندي  خطا  اتمنى  منك المساعدة  

كود :

كود :

            Label21.Text = CalcAge(Format(DateTimePicker2.Value, "dd/MM/yyyy"), Format(DateTimePicker1.Value, "dd/MM/yyyy"))
            Label22.Text = CalcAge(Format(DateTimePicker2.Value, "dd/MM/yyyy"), Format(DateTimePicker1.Value, "dd/MM/yyyy"))
            Label23.Text = CalcAge(Format(DateTimePicker2.Value, "dd/MM/yyyy"), Format(DateTimePicker1.Value, "dd/MM/yyyy"))
        Else



            Label21.Text = CalcAge(DateTimePicker1.Value, DateTimePicker2.Value)
            Label22.Text = CalcAge2(DateTimePicker1.Value, DateTimePicker2.Value)
            Label23.Text = CalcAge3(DateTimePicker1.Value, DateTimePicker2.Value)

        End If

        If ComboBox1.SelectedItem = "3 سنوات" Then
            'الكود الذى سبق وتم شرحه
            Label21.Text = CalcAge(DateTimePicker1.Value, DateTimePicker2.Value) - Val(muda.Text)
        ElseIf ComboBox1.SelectedItem = "18 شهر" Then
            'هنا ستقوم بعمل كود التالى كونها سنة ونص
            ' جلب عدد السنوات
            Dim yy As Double = Val(Val(muda.Text) / 12).ToString("0")
            ' جلب عدد الاشهر
            Dim mm As Double = Val(Label22.Text) - Val(yy * 12)
            ' الكود للمعادلة 
            Label21.Text = muda.Text - yy
            Label22.Text = muda.Text - mm
        ElseIf ComboBox1.SelectedItem = "90 يوم" Then
            'هنا ستقوم بعمل كود التالى كونها 3 اشهر
            ' جلب عدد الاشهر
            Dim mm As Double = Val(Val(muda.Text) / 30).ToString("0")
            ' جلب عدد الايام
            Dim dd As Double = Val(muda.Text) - Val(mm * 30)
            ' الكود للمعادلة 
            Label23.Text = muda.Text - mm
            Label23.Text = muda.Text - dd
        End If

ضع الخطاء الذى يحدث معك

واتمنى ان تستكمل الرسالة فى الموضوع الخاص بك

حتى تعم الفائدة للجميع

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

لا تنسي توضيح ما الخطاء الذى يحدث معك

وهل الكمبو الخاص بتحديد السنة والشهر واليوم هل هو اسمه 

ComboBox1

كما انا ذكرته فى كود المثال ؟؟

تحياتى لك

وتمنياتى لك التوفيق