[أبووسم]

(05-06-22, 02:49 AM)نيمو كتب : لم افهم بالضبط عمل الكود هذا ولم يكنب في التكست بوكس التاريخ
اعتقد مش تكست بوكس ؟ المهم كتبت هذا لاسطر وتم زيادة شهر وسبعة ايام
مع هذا ننتظر حد يفهم اكثر الشغلة

كود :

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

الكود هذا ممتاز و احتاجه لحساب تاريخ انتهاء الإجازة للموظف
ممكن اخي الكريم تعديل الكود بحيث يكود عدد الأيام (AddDays(7)) ، أنا احدده في تكتست بوكس معين

مثلاً اضيف انا يومين او ثلاثة ايام فيظهر تاريخ انتهاء الاجازة

شكرا لك مقدماً وشكراً لصاحب الموضوع