مقارنة التاريخ المدخل مع تاريخ اليوم في اليوزفورم

[عمار محمد حسن]

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

اخوني في الملف المرفق هناك فورم يتم ادخال تاريخ في التكست بوكس ما اريده هو كود لمقارنة التاريخ المدخل مع تاريخ اليوم واذا كان التاريخ المدخل اكبر من تاريخ اليوم يكتب لي في التكست رقم 2 العقد ساري المفعول واذا كان العكس يكتب لي العقد منتهي ويكون ذالك بشكل اتوماتيكي اي كلما تغير التاريخ في التكست رقم 1

حاولت عمل ذالك ولكني فشلت ارجوا المساعده منكم ولكم مني كل الحب والاحترام والتقدير

التاريخ.rar

[خالد الرشيدى]

اخى الفاضل

جرب الكود التالى

Private Sub TextBox1_AfterUpdate()

If CDate(TextBox1) > Date Then
TextBox2.Text = "ÇáÚÞÏ ÓÇÑí ÇáãÝÚæá"
Else
TextBox2.Text = "ÇáÚÞÏ ãäÊåí"

End If
End Sub

 

[ياسر خليل أبو البراء]

أخي الحبيب لما حملت الملف وجدت الكود موجود بالفعل ويعمل كما تريد

Private Sub TextBox1_AfterUpdate()
    If TextBox1.Text > Format(Date, "dd/mm/yyyy") Then
        TextBox2.Text = "العقد ساري المفعول"
    Else
        TextBox2.Text = "العقد منتهي"
    End If
End Sub

ما المشكلة إذاً ؟

[خالد الرشيدى]

المرفقــــــــــــــــات

 التاريخ.rar

تم تعديل أغسطس 16, 2015 بواسطه خالد الرشيدى