[elgokr]

فى البداية اسف على التاخير اخى السندبااد

بمجرد ما اطلعت على ردك فخطر فى بالى اكثر من طريقة

ولكن حتى اضع الطريقة التى لا تسبب مشكلة مهما اختلف تنسيق التاريخ

فاحببت اختبر كل ما خطر فى بالى

وسامحنى لكوني لم اختبر كل ما فى بالى ايضاً

لان من ضمنها اذا كان التنسيق كما مشار اليه او غيره ولكن مع التاريخ الهجري ايضاً

لكن بمجرد ما وصلت لك الفكرة من المؤكد انت ستتمكن من فعل الامر

ما خطر فى بالى هو التلاعب فى قيمة TxtBDate

حيث سيتم اجبار المستخدم ادخال التنسيق بهذا الشكل

كود :

25/4/2019
25/04/2019

فيتم التلاعب بعكس القيمة لتصبح

كود :

2019/4/25
2019/04/25

بكده لا يعترض مع اى تنسيق مهما كان واى ما يتم اختياره

ويتم من خلال هذا الكود

كود :

       Dim GetDate As Date
       If TxtBDate.Text.Contains("/") AndAlso TxtBDate.Text.Split("/").Count = 3 AndAlso IsNumeric(TxtBDate.Text.Split("/").Last) Then
           GetDate = TxtBDate.Text.Split("/")(2) & "/" & TxtBDate.Text.Split("/")(1) & "/" & TxtBDate.Text.Split("/")(0)
       End If

الكود كاملاً للحدث

كود :

       Dim GetDate As Date
       If TxtBDate.Text.Contains("/") AndAlso TxtBDate.Text.Split("/").Count = 3 AndAlso IsNumeric(TxtBDate.Text.Split("/").Last) Then
           GetDate = TxtBDate.Text.Split("/")(2) & "/" & TxtBDate.Text.Split("/")(1) & "/" & TxtBDate.Text.Split("/")(0)
       End If
       If IsDate(GetDate) Then
           TBDateTakePric.Text = DateAdd("d", 14, GetDate)
           Dim dayadd As Date = DateAdd("d", 14, GetDate)
           Dim days2 As Long = DateDiff("d", Now.Date, dayadd)

           Select Case days2
               Case 0
                   TBDateNumDay.Text = "اليوم آخر يوم للتعليق "
               Case < 0
                   TBDateNumDay.Text = "الرصيد متاج منذ مدة"
               Case > 14
                   TBDateTakePric.Text = "لم يحن هذا التاريخ بعد"
                   TBDateNumDay.Text = "لم يحن هذا التاريخ بعد"
               Case Else
                   TBDateNumDay.Text = days2.ToString
           End Select
       Else
           TBDateTakePric.Text = "أدخل تاريخاً صحيحاً"
           TBDateNumDay.Text = "أدخل تاريخاً صحيحاً"
       End If

اتمنى هذه الفكرة تناسبك

او تاتى لديك من اسلوب وافكار من خلالها

تم اختبار هذا الكود على اكثر من تنسيق

ويعمل البرنامج بدون اى مشكلة 

تحياتى لك

وتمنياتى لك التوفيق