[elgokr]

تم اضافة فورم فى السورس المرفق بالرابط مسبقاً

كل ما هو مطلوب منك التركيز على الفكرة اللى تمت

حتى تتمكن من انهاء ما تريده تماماً

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

اى تم استخدام الادوات التى تحمل الارقام وليس التواريخ واعادة استخراج المدة مجدداً 

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

الكود المستخدم فى الفوم المضاف هو

كود :

       REM هنا يخص طرح السنوات
       If ComboBox1.SelectedItem = "3 سنوات" Then

           TextBox6.Text = TextBox3.Text - Val(ComboBox1.SelectedItem)
           '---------------------------------------------------------------------------------------'

           REM هنا يخص طرح الاشهر
       ElseIf ComboBox1.SelectedItem = "18 شهر" Then

           Dim yy As Double = CStr(Val(ComboBox1.SelectedItem) / 12).Split(".")(0)
           Dim mm As Double = Val(ComboBox1.SelectedItem) - Val(yy * 12)

           TextBox6.Text = TextBox3.Text - yy

           If mm < Val(TextBox2.Text) Then
               TextBox5.Text = Val(TextBox2.Text) - mm
           Else
               TextBox6.Text = Val(TextBox6.Text) - 1
               TextBox5.Text = Val(TextBox2.Text + 12) - mm
           End If
           '---------------------------------------------------------------------------------------'

           REM هنا يخص طرح الايام
       ElseIf ComboBox1.SelectedItem = "90 يوم" Then

           Dim mm As Double = CStr(Val(ComboBox1.SelectedItem) / 30).Split(".")(0)
           Dim dd As Double = Val(ComboBox1.SelectedItem) - Val(mm * 30)

           TextBox5.Text = Val(TextBox2.Text) - mm

           If dd < Val(TextBox1.Text) Then
               TextBox4.Text = Val(TextBox1.Text) - dd
           Else
               TextBox5.Text = Val(TextBox5.Text) - 1
               TextBox4.Text = Val(TextBox1.Text + 30) - dd
           End If
           '---------------------------------------------------------------------------------------'
       Else
           MsgBox("يجب اختيار المدة قبل اتمام عملية الحسابية")
       End If

مرفق السورس + برنامج للمعينة

السورس (2010)

تحياتى لك

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