30-09-19, 12:26 AM
الصفحات : 1 2
30-09-19, 12:41 AM
PHP كود :
(TextBox2.Text = Format(CDate(MaskedTextBox1.Text).AddDays(7), "dd/M/yy")
30-09-19, 12:56 AM
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")
30-09-19, 02:03 AM
يوجد خطا بلكود
سوف ارفق لك ملف ممكن تعدل عليه ليصبح يضهر الشهر رقم
اضع في الماسم تيكست تاريخ واضغط على البتوون وشوف المشكله شكرا لك لاهتمامك
https://drive.google.com/open?id=10rVGAz...QJSloCOkfo
رابط الملف
سوف ارفق لك ملف ممكن تعدل عليه ليصبح يضهر الشهر رقم
اضع في الماسم تيكست تاريخ واضغط على البتوون وشوف المشكله شكرا لك لاهتمامك
https://drive.google.com/open?id=10rVGAz...QJSloCOkfo
رابط الملف
30-09-19, 05:58 AM
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
[attachment=23058]
30-09-19, 09:49 AM
شكرا لك اخي
30-09-19, 06:23 PM
الحمد الله و الشكر الله .
30-09-19, 06:48 PM
لتحويل من السلسلة "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
ما هي المشكله
اذا كان لديك وقت كافي لمساعدتي يمكن ارفاق المشروع وتحل المشكله لاني حاولت كثير ولم يزبط
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
ما هي المشكله
اذا كان لديك وقت كافي لمساعدتي يمكن ارفاق المشروع وتحل المشكله لاني حاولت كثير ولم يزبط
30-09-19, 07:02 PM
ارفق المشروع او النافذة الموجود بها الخطا مع قاعدة البيانات او سكربت قاعدة البيانات اذا كانت سيكول سيرفير مع تحديد مكان الخطا في صفحة الكود الموجود به .
30-09-19, 08:02 PM
المشكلة عندك بنوع الحقل بقاعدة البيانات و عدلت لك بعض الاكواد .
الصفحات : 1 2