تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف اتأكد من صيغة التاريخ في تكست بوكس ؟
#1
السلام عليكم
عندي تكست بوكس و فيه تاريخ بصيغة (dd/MM/yyyy) فإذا ادخل حد التاريخ بصيغة أخرى مثلا (11/25/2021) احصل على تنبيه

ارجو التعديل على الكود التالي :


كود :
If Pt_DOB.Text = Format(Date.Now, "dd/mm/yyyy") Then
MsgBox(" Correct format ")
Else
MsgBox(" Format of date of birth not correct ! try to use this format day/month/year like 23/08/2021 ")
End if


2.12.0.0
2.12.0.0
الرد }}
تم الشكر بواسطة:
#2
كود :
Imports System.Globalization
Imports System.Text.RegularExpressions

Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim regex As Regex = New Regex("(((0|1)[0-9]|2[0-9]|3[0-1])\/(0[1-9]|1[0-2])\/((19|20)\d\d))$")

       'Verify whether date entered in dd/MM/yyyy format.
       Dim isValid As Boolean = regex.IsMatch(txtDate.Text.Trim)
       Dim dt As DateTime
       isValid = DateTime.TryParseExact(txtDate.Text, "dd/MM/yyyy", New CultureInfo("en-GB"), DateTimeStyles.None, dt)
       If isValid Then
           MsgBox(" Correct format ")
       Else
       MsgBox(" Format of date of birth not correct ! try to use this format day/month/year like 23/08/2021 ")
       End If
   End Sub
End Class
[quote pid='172567' dateline='1615800102']
تفضلوا يا شباب هذا الكود اللي حصلته و شغال و لله الحمد
[/quote]



2.12.0.0
الرد }}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  نقل بيانات تكست بوكس مصمم هاوي 2 120 15-08-22, 02:29 PM
آخر رد: مصمم هاوي
  تيكست بوكس ياوى قيمة فى الجدول حماده ممدوح البحيرى 4 199 15-08-22, 09:21 AM
آخر رد: حماده ممدوح البحيرى
  ارتباط كومبو بوكس مع كومبو بوكس في الداتا كرد فيو نيمو 1 140 27-07-22, 12:50 PM
آخر رد: نيمو
  [سؤال] عايز كود عرض اسماء الجداول من قاعد البيانات الي ليست بوكس حسن الجلب 1 145 23-07-22, 08:53 PM
آخر رد: سعود
  [سؤال] كيفية حفظ عناصر في مجلد بحسب ترتيبها في الليست بوكس asmarsou 1 230 13-07-22, 06:42 PM
آخر رد: ابراهيم ايبو
  اخفاء تكست كعنوان برمجيا في الريبورت فيور yosif 0 137 10-07-22, 12:18 AM
آخر رد: yosif
  مشكلة في الكومبو بوكس mohamedassim 0 198 06-07-22, 11:38 PM
آخر رد: mohamedassim
  نقل نص البوتن إلى التيكست بوكس حماده ممدوح البحيرى 4 435 05-07-22, 09:45 AM
آخر رد: حماده ممدوح البحيرى
  مشكلة الكومبو بوكس واستدعاء البيانات mohamedassim 1 265 28-06-22, 10:22 PM
آخر رد: معاند الحظ
  [VB.NET] حول تكرار البيانات في نفس التاريخ sher 2 253 15-06-22, 04:50 AM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم