[nmst70]

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

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

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

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

[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

[nmst70]

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 هذا هو المطلوب بعينة كل الشكر والعرفان وجعلها الله في ميزان حسناتك

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

[سعود]

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

[سعود]

الازرار مخفية اخي

kslawy
بارك الله فيك على الكود

[kslawy]

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

الكود التالي يقبل التحقق حتى لو كان التاريخ الأول تاريخ قصير والتاريخ الثاني تاريخ طويل كالتالي :

كود :

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 عكسنا الشهر أولا ثم اليوم ثم السنة ، بهذه الطريقة سيعطيك دائما خطأ :


****
***
**
*