منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

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

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



او
           

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

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

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

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

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

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

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

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

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