[نيمو]

لم افهم بالضبط عمل الكود هذا ولم يكنب في التكست بوكس التاريخ
اعتقد مش تكست بوكس ؟ المهم كتبت هذا لاسطر وتم زيادة شهر وسبعة ايام
مع هذا ننتظر حد يفهم اكثر الشغلة

كود :

           Dim r As Date = Date.Now.ToShortDateString
           txt_date.Text = r
           txt_date.Text = (r.AddMonths(1).AddDays(7))