جمع تاريخ مع رقم

[محمد الورفلي1]

السلام عليكم

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

مثال :  بداية الاقساط  :  1/1/2017

          عدد الاقساط :  10

          نهاية الاقساط : 31/10/2017   وهذا الناتج المطلوب

جمع تاريخ.rar

[سليم حاصبيا]

اكتب هذه المعادلة في الخلية D10

=DATE(YEAR(D6),MONTH(D6)+D8,1)-1

 

[محمد الورفلي1]

السلام عليكم

اريد كود وليس معادلة

لانه في فورم

[محمد الورفلي1]

للرفع

[محمد الورفلي1]

للرفع

 

[محمد الورفلي1]

السلام عليكم تم الحل بقضل الله

وضعته لتعم الفائدة وليستفيد منه شخص آخر

نضع هذا الكود في الكوماند (1)

Private Sub CommandButton1_Click()
If IsDate(TextBox1.Value) Then TextBox2.Value = Format(DateAdd("m", TextBox3.Value, TextBox1.Value), "yyyy/mm/dd")
End Sub