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

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

مقارنة بين تاريخين - nmst70 - 05-08-13

السلام عليكم ايها الاخوة الاعزاء

نشكركم اولا على المجهود الرائع في الاستجابة ولي مطلب

عندي على الفورم عدد TextBox1 واكتب فية تاريخ اليوم وعندي TextBox2 اكتب فية تاريخ ايضا بدي عند الضغط على Button1 اذا كان التاريخ المكتوب في TextBox2 اكبر من التاريخ اليوم الموجود في TextBox1 يفتح Form2 واذا التاريخ اصغر يعطينا مسج لا يمكن الدخول التاريخ مختلف طبعا في فيجوال 2008

ان شاء الله يكون السؤال مفهوم
ولكم كل التحية

مقارنة بين تاريخين - kslawy - 05-08-13

أبسط طريقة :

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If CDate(Me.TextBox2.Text.Trim) > CDate(Me.TextBox1.Text.Trim) Then
            ' Form2.Show()
        Else
            MsgBox("لا يمكن الدخول التاريخ مختلف")
        End If
    End Sub


مقارنة بين تاريخين - nmst70 - 05-08-13

kslawy كتب :أبسط طريقة :

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If CDate(Me.TextBox2.Text.Trim) > CDate(Me.TextBox1.Text.Trim) Then
            ' Form2.Show()
        Else
            MsgBox("لا يمكن الدخول التاريخ مختلف")
        End If
    End Sub



ما شاء الله عليك اخي العزيز kslawy هذا هو المطلوب بعينة كل الشكر والعرفان وجعلها الله في ميزان حسناتك

والى اللقاء في موضوع اخر لكم منا كل التحية والاحترام

مقارنة بين تاريخين - سعود - 05-08-13

بعد اذنكم .. ماهي صيغة التاريخ اللتي ينجح معها الكود؟؟

مقارنة بين تاريخين - سعود - 05-08-13

الازرار مخفية اخي
kslawy
بارك الله فيك على الكود



مقارنة بين تاريخين - kslawy - 05-08-13

يعطيك العافية أخي سعود
شكرك موصول إن شاء الله (بالنية)

الكود التالي يقبل التحقق حتى لو كان التاريخ الأول تاريخ قصير والتاريخ الثاني تاريخ طويل كالتالي :
كود :
If CDate(Me.TextBox2.Text.Trim).ToShortDateString > CDate(Me.TextBox1.Text.Trim).ToLongDateString Then

ولكنه لا يقبل هذا :
كود :
If CDate(Me.TextBox2.Text.Trim).ToString("dd/MM/yyyy") > CDate(Me.TextBox1.Text.Trim).ToString("MM/dd/yyyy") Then


وذلك لأننا استخدمنا صيغ تاريخ مختلفة في الأول استخدمنا dd/MM/yyyy يعني اليوم ثم الشهر ثم السنة ، وفي الثانية MM/dd/yyyy عكسنا الشهر أولا ثم اليوم ثم السنة ، بهذه الطريقة سيعطيك دائما خطأ :


****
***
**
*