[السندبااد]

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

عندي تاريخ بهذا التنسيق:

20/04/2019

قد يدون تنسيق الجهاز بهذا الشكل:

20-04-2019

أو بهذا الشكل:

2019/04/20

أريد تعديل الكود التالي بحيث تتم العملية بنجاح مهما كان تنسيق التاريخ بالجهاز علماً أنني أريد تنسيق التاريخ عند الإدخال هكذا:

dd/MM/yyyy

جربت الكثير من الطرق ولكن لم تنفع، ووالملف بالمرفقات، وهذا هو الكود:

كود :

 If IsDate(TxtBDate.Text) Then
            TBDateTakePric.Text = DateAdd("d", 14, TxtBDate.Text)

            Dim dayadd As Date = DateAdd("d", 14, TxtBDate.Text)
            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.ToString
            End Select
        Else
            TBDateTakePric.Text = "أدخل تاريخاً صحيحاً"
            TBDateNumDay.Text = "أدخل تاريخاً صحيحاً"
        End If