منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[نقاش] التاريخ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [نقاش] التاريخ (/showthread.php?tid=450)



التاريخ - hussamalhamadany - 08-10-13

[attachment=292]السلام عليكم اخواني
في هذا المنتدى الرائع
اخواني اريد عند كتابة تاريخ معين في تكست 1 يكتب موعد التالي تلقائيا في تكست 2 بعد شهرين من تاريخ في تكست 1
وكما في المرفق وشكرا


RE: التاريخ - alims - 10-10-13

ياريت توضح السؤال اكتر اخى


RE: التاريخ - learning.net - 10-10-13

بسم الله الرحمن الرحيم

اخى الكريم

اذا كنت تستخدم اداتين DateTimePicker
فاستخدم هذا الكود

DateTimePicker2.Value = DateTimePicker1.Value.AddMonths(2).Date


اما اذا كنت تستخدم اداه DateTimePicker و اداة Textbox
فاستخدم هذا الكود

TextBox3.Text = DateTimePicker1.Value.AddMonths(2).Date

اما اذا كنت تستخدم اداتين Textbox (فى هذه الحاله لابد ان تتأكد ان المكتوب فى التكست بوكس1 صيغة تاريخ)
فاستخدم هذا الكود

Dim mydate As Date
Date.TryParse(TextBox1.Text, mydate)
TextBox2.Text = mydate.AddMonths(2)

ملحوظتين صغيرتين
1- "لايوجد مرفقات فى مشاركتك"
2- هذا القسم للمقالات فقط وليس للأسئله (أرجو الانتباه)

بالتوفيق إن شاء الله


RE: التاريخ - Abu Ehab - 10-10-13

Yes ,, You Can Do It
For Example
Dim StartingDate As Date = CDate(TextBox1.Text)
Dim EndingDate As Date = StartingDate.AddMonths(+1)
TextBox2.Text = EndingDate

[b]You can add days and years in the same way


RE: التاريخ - hussamalhamadany - 15-10-13

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


RE: التاريخ - m0075 - 16-10-13

بارك الله فيك


RE: التاريخ - العواد الصغير - 14-08-14

مشكوووووووووور


RE: التاريخ - Omar Mekkawy - 18-08-14

سلام عليكم
تم نقل الموضوع لقسم الأسئلة
بالتوفيق


RE: التاريخ - HASAN6.0 - 25-08-14

PHP كود :
Dim datex As Date
        datex 
CDate(TextBox1.Text)
        
TextBox2.Text datex.AddDays(60