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



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


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