[Lathe1]

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

[نيمو]

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

كود :

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

[أبووسم]

(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)) ، أنا احدده في تكتست بوكس معين

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

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

[نيمو]

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

كود :

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

او
           

كود :

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

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

[أبووسم]

(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)))

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

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

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

[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)))

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

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

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