[moha11]

السلام عليكم ورحمة الله وبركاته 
احب ان اتقدم بالشكر لاخواني اعضاء ومدراء هذا المنتدي الذي ماسألت فيه سؤال الا ووجدت مجموعة من الاجابات علية
فشكرا لكم .....

اليوم انا محتاج لعمل تكست بوكس امرر عليه 8 ارقام بصيغة تاريخ مثل 01092015 وهو يتحقق من انها تصلح بان تكون تاريخ 
بيقوم بادراج علامة الفاصلة الخاصة للتاريخ (/) بينها وان كان النص المدخل ليس ارقام او ارقام لاتشبة التاريخ يعطيني رساله تفيد بذلك
   
في انتظاركم ....
        ولكم الشكر والتقدير ......

[أبو عمر]

(10-09-15, 01:41 PM)moha11 كتب : السلام عليكم ورحمة الله وبركاته 
احب ان اتقدم بالشكر لاخواني اعضاء ومدراء هذا المنتدي الذي ماسألت فيه سؤال الا ووجدت مجموعة من الاجابات علية
فشكرا لكم .....

اليوم انا محتاج لعمل تكست بوكس امرر عليه 8 ارقام بصيغة تاريخ مثل 01092015 وهو يتحقق من انها تصلح بان تكون تاريخ 
بيقوم بادراج علامة الفاصلة الخاصة للتاريخ (/) بينها وان كان النص المدخل ليس ارقام او ارقام لاتشبة التاريخ يعطيني رساله تفيد بذلك
   
في انتظاركم ....
        ولكم الشكر والتقدير ......

لم افهم مالهدف لكن الوجوه التعبيرية في الموضوع توحي بشي
على كل حال
انت قلت 8 ارقام
من السهل جدا ترجمتهم الى التاريخ
باخذ
year=4
month=2
day=2
use
right
left
and
mid
انتهى

[الطالب]

سلام

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If CheckDate(TextBox1.Text.Trim) Then
        MsgBox("التاريخ صحيح")
    Else
        MsgBox("التاريخ خطا")
    End If
End Sub

Private Function CheckDate(ByVal t As String) As Boolean
    t = t.Trim
    If t.Count = 8 Then
        Dim d As String = t.Substring(0, 2) & "/" & t.Substring(2, 2) & "/" & t.Substring(4, 4)
        Return IsDate(d)
    End If
End Function

موفقين

[moha11]

شكرا جزيلا لكم علي الردود
الكود شغال 100% اخي الطالب لكن لااستطيع وضع الفاصلة بين اليوم والشهر
والشهروالسنة ولاتدرج تدرج تلقائيا لكي يعرف المستخدم انه تاريخ
كان قصدي في السؤال انه حي اذا نسيت كتابة الفواصل تدرج تلقائيا بعد نقل المؤشر من هذا التكست
شاكر ومقدر لك تعبك وإن شاء الله في ميزان حسناتك
واحييك علي الجهد....

[أبو عمر]

في مثل هذه الحالات انت كمبرمج شاطر ونبيه
تجيب للمستخدم اداة التاريخ وتريح دماغك وتجبره على اختيار التاريخ منها

حتى لا تضطر لمعالجة اخطاء المستخدم فيما بعد
تحياتي

[moha11]

مشكور ابو عمر بس مطلوب مني اعمل التاريخ في تكست بوكس

---

كيف ادرج هذه الفاصله(/) اذا نسيه المستخدم
مفهمة وجود الفاصلة في هذا السطر في الكود السابق
(Dim d As String = t.Substring(0, 2) & "/" & t.Substring(2, 2) & "/" & t.Substring(4, 4