تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال بخصوص حفظ التاريخ في قاعدة البيانات من نوع mysql 3loosh44 2 100 19-09-21, 08:47 PM
آخر رد: 3loosh44
  كود انتقال الماوس تلقائيا من التيكست بوكس ابو نور الهدى 6 205 16-09-21, 12:00 AM
آخر رد: ابو نور الهدى
  معادلة عد كلمة معينة داخل اكثر من تكست بوكس ابو العلاء 10 326 13-09-21, 12:45 AM
آخر رد: ابراهيم ايبو
Exclamation [VB.NET] سؤال حول مشكلة كتابة التاريخ في جملة update ali bajmmal 4 407 01-09-21, 06:35 PM
آخر رد: Anas Mahmoud
  اضافة التاريخ الى جميع السجلات aftfm 6 365 30-08-21, 11:11 PM
آخر رد: aftfm
Exclamation [سؤال] احتاج مساعدة في حفظ ليست بوكس الى تكست malek369 0 164 24-08-21, 09:12 AM
آخر رد: malek369
  عرض التاريخ الهجري في الكريستال ريبورت جيولوجي مبتدئ 8 385 06-08-21, 01:36 AM
آخر رد: جيولوجي مبتدئ
  فحص التاريخ و التوقيت و ظهور رسالة تخبرني بذلك العيدروس 4 235 04-08-21, 11:49 PM
آخر رد: العيدروس
  [VB.NET] تغير عرض التاريخ باداة DateTimePicker احمد 2021 0 189 02-08-21, 12:03 PM
آخر رد: احمد 2021
  [VB.NET] مشكلة فى التاريخ asdfar1977 5 470 02-08-21, 02:59 AM
آخر رد: asdfar1977

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


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