[elgokr]

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

مرحباً اخى السندبااد

القي نظرة على الكود بهذا الشكل

كود :

       If IsDate(TxtBDate.Text) Then
           TBDateTakePric.Text = DateAdd("d", 14, CDate(TxtBDate.Text).ToString("dd/MM/yyyy"))

           Dim dayadd As Date = DateAdd("d", 14, CDate(TxtBDate.Text).ToString("dd/MM/yyyy"))
           Dim days2 As Long = DateDiff("d", Now.Date, dayadd)
           'TBDateNumDay.Text = days2.ToString

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

بمجرد استخدام CDate

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

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

وياتى دور

كود :

.ToString("dd/MM/yyyy")

وهنا لتحديد طبقاً لما تريده

تعال انت كده واكتب التاريخ بهذا الشكل

كود :

يوم شهر
25 4

فقط مسافة بين الرقمين وبدون تحديد السنة

الان تعال وجرب بهذا الشكل

كود :

24 4 2019

طيب تعال وجرب بهذا الشكل

كود :

24-4-2019
أو
24-4

والشكل العام

كود :

24/4
أو
24/4/2019

بالنهاية راجع هذا الرد وكذلك الموضوع

http://vb4arb.com/vb/showthread.php?tid=...#pid139804

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

تحياتى لك

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

---

وصحيحة نقطة اخيرة ونسيت تعديلها والتحدث بخصوصها

على هذا السطر لكود شرط التحقق

كود :

       If IsDate(TxtBDate.Text) Then

يفضل ان تجعله بهذا الشكل

كود :

       If Date.TryParseExact(TxtBDate.Text, "dd/MM/yyyy", System.Globalization.CultureInfo.CurrentCulture, Globalization.DateTimeStyles.None, DatePc) Then

وضع اعلى هذا السطر لشرط التحقق هذا الكود

كود :

       Dim DatePc As Date

بكده اى كان تنسيق الجهاز حتى ولو كان مثل

كود :

الخميس 25 ابريل 2019

فقط سيسلز بان يكون التاريخ المدخل فى TextBox

عبارة عن هذا الشكل

كود :

25/04/2019

ويلزم وضع 0 فى الشهر اذا كان الرقم من 1 : 9

ولتجنب وضع السفر ويكفي اذا كان التاريخ مدخل مثل هذا

كود :

25/4/2019

بانه يكفي الغرض فقط استبدل

كود :

dd/MM/yyyy

الى

كود :

dd/M/yyyy

بكده سيقبل التاريخ بهذا الشكل

كود :

25/4/2019

وايضاً

كود :

25/04/2019

تحياتى لك

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