[Alhootti1]

السلام عليكم
عندي تكست بوكس و فيه تاريخ بصيغة (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

[Alhootti1]

كود :

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