ازاي اعرف ان المكتوب في Text فعلا تاريخ

أخي العزيز في زر حفظ أكتب الكود هذا قبل آد نيو فلنفرض تكست التاريخ هو text1

("text1 = Format(text1, "yyyy / mm / dd

بالطريقة هذي إحنا حكمنا يكتب التاريخ مزبوط زي ماأنته عايز ثم يحفظ وفي زر التعديل كما قبل إيديت

اخي جرب وأنا في إنتظارك

الف الف شكر يا اخ محمد

عملت كل اللي انا عايزة بالكود اللي انت ادتهولى شكرا

تعقيب:

ولتأكد من ان المستخدم ادخل صيغة تاريخ صحيحة اما لا ، بمعنى إذا ادخل المستخدم قيمة نصية بدلاً من التاريخ ،فيمكننا ان نكتب هذا الامر

If IsDate(txtdate.Text) = False Then

MsgBox "الرجاء من المستخدم إدخال صيغة تاريخ صحيحة", , "تنويه"

txtdate.Text = Date

exit sub

endif

شكراً اخي عجيب

ولكن الأفضل أن نحكم التكست ما يكتب سوى ( 0123456789/)

وبكذا نكون قد وصلنا إلى المطلوب بدون تعقيد

طب يا جدعان انا عملت كدة فعلا وخلاص تمت والحمد لله لكن اريد ان افعل شئ اخر متعلق بالتاريخ

وهو ان امستخدم لا يستطيع كتابة تاريخ اقل من تاريخ اليوم كيف

مع العلم ان انا عملت الكود ده

if text1.text <Date then

msgbox " يجب ان يكون التاريخ لا يقل عن تاريخ اليوم"

end if

التاريخ نفع فعلا مع السنين والشهور ولكن ينفع ايضا مع الأيام وانا لا أريد ذلك .... بمعنى

تاريخ اليوم مثلا 13/4/2006

عندما يكتب المستخدم 13 / 4 / 2005 مثلا يعطي رسالة خطا المتفق عليها اعلى

عندما يكتب المستخدم 13/2/2006 مثلا يعطي رسالة خطا المتفق عليها اعلى

لكن اذا كتب المستخدم 10/5/2006 برضو يعطي رسالة خطا المتفق عليها علما بان شهر 5 اكبر طبعا من شهر 4 ولذلك لا يعطي الرسالة بناء على ذلك وايضا السنة اللي كتبها المستخدم كتب 2006 وهو لا يقل عن السنة الحالية لذلك لم تظهر الرسالة بناء على لك ولكن اليوم الذي كتبه المستخدم وهو 10 يقل طبعا عن اليوم الحالي اللي هو 13 ولذلك ظهرت الرسالة

كيف اتفادى هذه المشكلة ؟؟؟؟؟؟؟؟

اخي العزيز الحقيقه البرمجة لازم نحتال عليها في بعض الامور ومن بعض هذه الأمور موضوعك هذا

الحقيقه اللي انا فهمته منك

في زر الحفظ والتعديل ما تبغاه يكتب تاريخ أقل من تاريخ اليوم مثلاً

ضع تكست مخفي أسمه تكست 2 مثلاً

في الفورم لود ضع الكود

والكود التالي معناته عند تشغيل البرنامج أسحب تاريخ اليوم وضعه في تكست 2 اللي هو مخفي ليش خفيناه خفيناه لحيله سوف نتعرف عليها مستقبلاً

Private Sub Form_Load()

Calendar = vbCalGreg

("text2 = Format(Date, "yyyy / mm / dd

("text2 = Format(text2, "yyyy / mm / dd

End Sub

في زر الحفظ والتعديل ضع الكود التالي

معناته لو تكست 1 أصغر من تكست 2 لا تقبل // خلي بالك تكست 2 صاحبنا الأولاني المخفي أعتقد الصورة واضحه وإذا ما وضحت أخفي كمان تكست 1 وريح نفسك من التاريخ هذا رأئي

Private Sub Command1_Click()

If Trim(text1.Text) < Trim(text2.Text) Then

خلي بالك نسيت ما أقلك تريم هذي تفضي المسافات في الصندوق من كتابة التاريخ تفضي المسافات

والسلاشات وتقراه على أنه عدد أحلأ تريم شفتها في حياتي

MsgBox "لا يمكن كتابة التاريخ هذا"

text1.Text = "" علامة تنصيص يعني خليه فاضي

text1.SetFocus حط المؤشر في مكان التاريخ بعد ما تفضيه

Exit Sub اخرج من البرنامج لا تعمل ولا حاجه شكراً ياخويه

End If عيني بترف

MsgBox "يمكن أو يعني أكتب أي شي"

أو نفذ أي شي مثلاً أحفظ أو عدل يعمي أعمل أي حاجه

End Sub

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

مشكور يا اخي هاجرب وقولك

استخدم اداة Mask فهي خصصت لهذا العمل

الاخ العزيز يمكنك استخدام دالة

datediff

مشكورين يا اخواني على متابعتكم