+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تاريخ مشروط بالتكست بوكس (/showthread.php?tid=7127)
تاريخ مشروط بالتكست بوكس - smash - 26-11-12
السلام عليكم
كيف اعمل شرط لتاريخ مدخل بتكست بوك داخل سجل بقاعده البيانت ( يعني اذا مضى اكثر من سنه على التاريخ يغير لون خلفية التكست بوك احمر مقارنة مع تاريخ الجهاز)
مثال اليوم 11 محرم 1434
اذا ادخلت تاريخ قبل 11 محرم 1433 يغير لون خلفيه التكست بوك احمر مثلا
طبعا مراعاة تغير التاريخ كل يوم
شكرا
تاريخ مشروط بالتكست بوكس - amgadtamer - 26-11-12
PHP كود :
if cdate(textbox1.text) < now then
textbox1.backcolor=color.red
end if
تاريخ مشروط بالتكست بوكس - sooriaty03 - 26-11-12
تفضل أخي الكريم هذا هو الكود بالنسبة للتاريخ الهجري
أما بالنسبة للميلادي فالسنة ستكون 365
كود :
If Val(DateTime.Now.Subtract(CDate(TextBox1.Text)).ToString("dd")) > 354 Then
TextBox1.BackColor = Color.Red
End Ifتاريخ مشروط بالتكست بوكس - smash - 28-11-12
شكرا لكما وجاري التطبيق
تاريخ مشروط بالتكست بوكس - smash - 28-11-12
لم تنجح
التكست بوك احمر عند ادخال اي تاريخ سواء قديم او بالمستقبل
المطلوب يكون احمر عند مضي اكثر من سنه على التاريخ المدخل
اذا لم يكمل سنه يكون ابيض اللون الافتراضي
تاريخ مشروط بالتكست بوكس - sooriaty03 - 28-11-12
تفضل ياغالي هذا الكود كاملا
كود :
If Val(DateTime.Now.Subtract(CDate(TextBox1.Text)).ToString("dd")) > 353 AndAlso CDate(TextBox1.Text) < DateTime.Now Then
TextBox1.BackColor = Color.Red
Else
TextBox1.BackColor = Color.White
End If