[ تمت الإجابة ]التعامل مع التاريخ والمعادلات الرياضيه

تفضل اخي

فقط قم باضافة زر وعدد 2 تكست بكس .

ضع الكود التالي في الزر

واكتب التاريخ في تكست1

	 Dim d, m, y As Integer
	 Dim pd As Integer
	 Dim pd1 As Integer
	 Dim pd2 As Integer
	 Dim pd3 As Integer


  If IsDate(Text1.Text) = False Then
	 MsgBox "عفوا يجب ان يكون الادخال تاريخ"
  Else
	 d = Day(Text1.Text)
	 m = Month(Text1.Text)
	 y = Year(Text1.Text)

Dc1:
	  If d > 9 Then
		pd = (Mid(d, 1, 1))
		pd1 = (Mid(d, 2, 1))
		 d = pd + pd1
		GoTo Dc1
	  End If

Dc2:
	If m > 9 Then
	pd = (Mid(m, 1, 1))
	pd1 = (Mid(m, 2, 1))
	  m = pd + pd1
	  GoTo Dc2
	 End If


   y = y + (m + d)


 pd = (Mid(y, 1, 1))
 pd1 = (Mid(y, 2, 1))
 pd2 = (Mid(y, 3, 1))
 pd3 = (Mid(y, 4, 1))

  y = pd + pd1 + pd2 + pd3

Dc3:
	If y > 9 Then
	 pd = (Mid(y, 1, 1))
	 pd1 = (Mid(y, 2, 1))
	 y = pd + pd1
	 GoTo Dc3
	End If
	Text2.Text = y
 End If

تحياتي

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

لكن لاي معادله هذا للثانيه او الثالثه ؟؟؟؟ اظن للثالثه لم اقراء الكود بعد (مستعجل)

شكرااااااا

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

'حجز المتغيرات لاستخدامها لاحقا
Dim d, m, y As Integer
	 Dim pd As Integer
	 Dim pd1 As Integer
	 Dim pd2 As Integer
	 Dim pd3 As Integer

' التأكد من ان الادخال تاريخ وإلا سوف لن يقوم بالعملية	  
  If IsDate(Text1.Text) = False Then
	 MsgBox "عفوا يجب ان يكون الادخال تاريخ"
  Else

'تقسيم التاريخ الى اليوم والشهر والسنه كلا  في متغيير معين
	 d = Day(Text1.Text)
	 m = Month(Text1.Text)
	 y = Year(Text1.Text)

Dc1:
' هنا يتم التأكد من ان تاريخ اليوم اكبر من 9 إذا كان اكبر فيجب جمع الرقمين مع بعضهما
	  If d > 9 Then
'استخراج الرقم الاول ووضعه في متغيير
		pd = (Mid(d, 1, 1))
'استخراج الرقم الثاني ووضعه في متغيير اخر 
		pd1 = (Mid(d, 2, 1))
'جمع الرقمين على بعضهما 
		 d = pd + pd1
'العودة لقبل الكود فربما يكون الناتج اكبر من 9 ايضا كناتج جمع 29
		GoTo Dc1
	  End If

Dc2:
'نفس العملية السابقة تتم للشهر فقط
	If m > 9 Then
	pd = (Mid(m, 1, 1))
	pd1 = (Mid(m, 2, 1))
	  m = pd + pd1
	  GoTo Dc2
	 End If

'اضافة ناتج الشهر واليوم الى السنه		 
   y = y + (m + d)

'هنا تقسيم رقم السنه الى 4 ارقام ليتم جمعها 
'مثال 1988	

' الرقم الاول

pd = (Mid(y, 1, 1))
' الرقم الثاني
pd1 = (Mid(y, 2, 1))
'الرقم الثالث
pd2 = (Mid(y, 3, 1))
' الرقم الرابع
pd3 = (Mid(y, 4, 1))

'جمع الارقام الى بعضها للحصول على النتيجة  
' مثال 
' 8+8+9+1
  y = pd + pd1 + pd2 + pd3

Dc3:
' هنا تبدأ العملية لاستخلاص ارقام السنه بعد الجمع لنحصل في النهاية على رقم واحد من 1 الى 9 
	If y > 9 Then
	 pd = (Mid(y, 1, 1))
	 pd1 = (Mid(y, 2, 1))
	 y = pd + pd1
	 GoTo Dc3
	End If
'اظهار النتيجة في التكست 2
	Text2.Text = y
End If

اتمنى ان يكون الشرح واضحاً

تحياتي

في الحقيقه استعملت الكود وكان واضح ومن خلاله عملت الكود الاخر الي احتاجه وشكرا لك مره اخرى