[mostafa12]

TextBox2.Text = Format(CDate(MaskedTextBox1.Text).AddDays(7), "dd/MMM/yy")

مثال 01/jun/19



انا اريده هكذا 01/1/19

[Alhootti1]

PHP كود :

(TextBox2.Text = Format(CDate(MaskedTextBox1.Text).AddDays(7), "dd/M/yy") 


[asemshahen5]

PHP كود :

       MaskedTextBox1.Mask = "0000/00/00"
        MaskedTextBox1.Text = Today.ToString("yyyy/MM/dd")
        Dim datestr As String = MaskedTextBox1.Text
        Dim dd As New DateTime
        dd = Convert.ToDateTime(datestr)
        TextBox2.Text = dd.AddDays(7).ToString("d/M/yy") 


[mostafa12]

يوجد خطا بلكود

---

سوف ارفق لك ملف ممكن تعدل عليه ليصبح يضهر الشهر رقم

اضع في الماسم تيكست تاريخ واضغط على البتوون وشوف المشكله شكرا لك لاهتمامك

---

https://drive.google.com/open?id=10rVGAz...QJSloCOkfo

رابط الملف

[asemshahen5]

PHP كود :

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        'TextBox1.Text = MaskedTextBox1.Text
        'TextBox1.Text = Format(CDate(MaskedTextBox1.Text).AddDays(7), "dd/MMM/yy")
        MaskedTextBox1.Mask = "0000/00/00"
        MaskedTextBox1.Text = "20191229"
        Dim datestr As String = MaskedTextBox1.Text
        Dim dd As New DateTime
        dd = Convert.ToDateTime(datestr)
        TextBox1.Text = dd.AddDays(7).ToString("d/M/yy")
    End Sub 


   

---

PHP كود :

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        MaskedTextBox1.Mask = "0000/00/00"
        MaskedTextBox1.Text = "20191229"
        TextBox1.Text = Format(CDate(MaskedTextBox1.Text).AddDays(7), "d/M/yy")
    End Sub 


   

[mostafa12]

شكرا لك اخي

[asemshahen5]

الحمد الله و الشكر الله .

[mostafa12]

لتحويل من السلسلة "29/01/19" إلى النوع 'Date' غير صالح.
If CheckBox1.Checked Then TextBox4.Text = Val(TextBox4.Text) + 1
CheckBox1.Checked = False
Dim pos As String = BindingContext(dt).Position
dt.Rows(pos).Item(4) = TextBox4.Text
TextBox2.Text = MaskedTextBox1.Text
TextBox2.Text = Format(CDate(MaskedTextBox1.Text).AddDays(7), "dd/MM/yy")
dt.Rows(pos).Item(2) = TextBox2.Text
save_date()
load_date()
يعمل ولا بعمل مثلا
اذا تم ادراج تاريخ له مثل 08/10/19 يعمل
اما اذا تم ادراج تاريخ ثاني له لا يعمل
29/01/19
ما هي المشكله

---

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

[asemshahen5]

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

[asemshahen5]

المشكلة عندك بنوع الحقل بقاعدة البيانات و عدلت لك بعض الاكواد .