تنبيهات حسب التاريخ - نسخة قابلة للطباعة

تنبيهات حسب التاريخ - نسخة قابلة للطباعة

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

تنبيهات حسب التاريخ - محمد خيري - 13-09-19

ارجو منكم اخواني المساعدة. اريد لما اضغط على الداتاجريد و تظهر البيانات بالتاكسات بوكس
اذا كان تاريخ الصنف اليوم ينكتب بالتاكست بكس 4 عبارة ( التاريخ اليوم و يكون لونها التاكست بكس 4 أصفر )
اذا كان تاريخ الصنف ما زال أكثر من 3 أيام ينكتب بالتاكست بكس 4 عبارة ( سينتهي بعد كذا عدد الأيام و يكون لون التاكست بكس 4 أخضر )
اذا كان تاريخ الصنف بقي له فقط 3 أيام ينكتب بالتاكست بكس 4 عبارة ( سينتهي بعد 3 أيام و يكون لون التاكست بكس 4 برتقالي )
اذا كان تاريخ الصنف قد فات ينكتب بالتاكست بكس 4 عبارة ( التاريخ منتهي و يكون لونها التاكست بكس 4 أحمر )
بارك الله فيكم اخواني

RE: تنبيهات حسب التاريخ - ابراهيم ايبو - 13-09-19

السلام عليكم ورحمة الله وبركاته

تفضل اخي محمد هذا المثال كما طلبت عدل الكود للاسماء التي لديك

RE: تنبيهات حسب التاريخ - محمد خيري - 13-09-19

الله يبارك فيك اخي ابراهيم عمل رائع الله يجازيك كل خير.فقط اخي ابراهيم لو كان ممكن في حالة ( بقي أكثر من 3 أيام ) هل ممكن اخي ابراهيم كتابة عدد الايام بالضبط مثلا بدل ما تنكتب بالتاكست بكس 4 بقي أكثر من 3 أيام تنكتب بقي على الانتهاء مثلا 45 يوم أو 65 يوم او 89 يوم كمثال . و اذا ما في امكانية لعمل ذلك ساعتبر ان مثالك يبقى حل ولا اروع.بارك الله فيك

RE: تنبيهات حسب التاريخ - ابراهيم ايبو - 13-09-19

السلام عليكم اخي محمد

والله لاداعي لها اما ان احببت فعليك انشاء كود الفرق بين تاريخين بالايام

RE: تنبيهات حسب التاريخ - محمد خيري - 13-09-19

رايك يهمني اخي ابراهيم كفيت ووفيت و ما قصرت و الله يبارك فيك ان شاء الله.

RE: تنبيهات حسب التاريخ - ابراهيم ايبو - 13-09-19

اخي محمد حتى لايبق بنفسك منها شيئ

عدل الكود الى هذا الكود

كود :

Private Sub Dgv_Table_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dgv_Table.SelectionChanged

        Txt_ExpItems.Text = ""

        If Dgv_Table.CurrentRow.Cells("Item_Exp").Value < Datnow Then

            Txt_ExpItems.Text = "انتهت صلاحية هذه المادة"

            Txt_ExpItems.BackColor = Color.Red

        ElseIf Dgv_Table.CurrentRow.Cells("Item_Exp").Value = Datnow Then

            Txt_ExpItems.Text = "اليوم تنتهي صلاحية هذه المادة"

            Txt_ExpItems.BackColor = Color.Yellow

        ElseIf Dgv_Table.CurrentRow.Cells("Item_Exp").Value = Datnow.AddDays(1) Then

            Txt_ExpItems.Text = "باقي يوم على انتهاء الصلاحية"

            Txt_ExpItems.BackColor = Color.Gold

        ElseIf Dgv_Table.CurrentRow.Cells("Item_Exp").Value = Datnow.AddDays(2) Then

            Txt_ExpItems.Text = "باقي يومان على انتهاء الصلاحية"

            Txt_ExpItems.BackColor = Color.Gold

        ElseIf Dgv_Table.CurrentRow.Cells("Item_Exp").Value = Datnow.AddDays(3) Then

            Txt_ExpItems.Text = "باقي 3 ايام على انتهاء الصلاحية"

            Txt_ExpItems.BackColor = Color.Gold

        Else

            Dim Firstdate As Date = Now

            Dim Seconddate As Date = CDate(Dgv_Table.CurrentRow.Cells("Item_Exp").Value)

            Dim kk As String = DateDiff(DateInterval.Day, Seconddate, Firstdate)

            Txt_ExpItems.Text = " باقي على صلاحية هذه المادة" & (kk * -1) & "يوم"

            Txt_ExpItems.BackColor = Color.Green

        End If

    End Sub

RE: تنبيهات حسب التاريخ - محمد خيري - 13-09-19

الهي يرضى عليك و يبارلك لك بجميع امورك يا طيب يا اصيل.كلو تمام جزاك الله خيرا اخي ابراهيم

RE: تنبيهات حسب التاريخ - ابراهيم ايبو - 13-09-19

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

ولك اضعاف ماتمنيته لي اخي محمد بارك الله فيك