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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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