[Lathe1]

(10-06-22, 08:50 PM)أبووسم كتب :

(09-06-22, 09:03 AM)نيمو كتب : السلام عليكم
في مشكلة بالرسائل لم استطع رد الرسالة لك وقمت بالرد هنا وانحذف البارحه
المهم

كود :

     Dim r As Date = Date.Now.ToShortDateString
           

اشكرك الحل تمام            txt_date.Text = (r.AddDays(7))

او
           

كود :

txt_date.Text = (r.AddDays(val(textbox1.text)))

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

الف شكر على الرد
و أعتذر على تأخري في الرد بسبب انشغالي في الايام الماضية

جزاك الله خير و بارك في علمك