+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف اتأكد من صيغة التاريخ في تكست بوكس ؟ (/showthread.php?tid=38034)
كيف اتأكد من صيغة التاريخ في تكست بوكس ؟ - Alhootti1 - 15-03-21
السلام عليكم
عندي تكست بوكس و فيه تاريخ بصيغة (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 if2.12.0.0
2.12.0.0
RE: كيف اتأكد من صيغة التاريخ في تكست بوكس ؟ - Alhootti1 - 15-03-21
كود :
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]
2.12.0.0