سلام دوستان بارها و بارها شده که در برنامه نویسی برای اینکه کاربر یک تقویم به صورت صحیح وارد کنه از Dll ها و تقویم ها ی ساخته شده و... استفاده کردید تا تاریخ توسط کاربر نتونه به صورت نادرست وارد بشه.اما در این قسمت میخوام یه روش دیگه ای رو قرار بدم که تکست باکس مربوطه بیاد و تاریخ وارد شده توسط کاربر رو بگیره و چک کنه و تصیح کنه تا در نهایت تاریخ به درستی وارد بشهو مثلا اگر کاربر نوشت (95/1/1) تاریخ در تکس باکس و یا هر چیزی که مد نظرتون هست بشه(1395/01/01) برای این منظور من کد مربوطه رو قرار میدم تو اینجا تا هرکدوم از دوستان خواستن ازش استفاده کنن.برای همتون آرزوی موفقیت و پیروزی رو دارم(قطعا کد مربوطه دارای نقص هست و بایستی با یکسری ارور تصیح بشه اما ساختار کلی رو ارائه داده)
موفق باشید
If Me.TextBox1.Text.Length = 10 Then
Exit Sub
Else
Dim a, b, c, f As String
a = Me.TextBox1.Text.Substring(2, 1)
If a = "/" Then
Me.TextBox1.Text = "13" + Me.TextBox1.Text
If Me.TextBox1.Text.Length = 10 Then
Exit Sub
End If
End If
a = Me.TextBox1.Text.Substring(4, 1)
b = Me.TextBox1.Text.Substring(7, 1)
If b <> "/" Then
b = Me.TextBox1.Text.Substring(0, 5)
f = Me.TextBox1.Text.Length - 5
c = Me.TextBox1.Text.Substring(5, f)
Me.TextBox1.Text = b + "0" + c
If Me.TextBox1.Text.Length = 10 Then
Exit Sub
End If
End If
a = Me.TextBox1.Text.Substring(7, 1)
If a = "/" And Me.TextBox1.Text.Length <> 10 Then
b = Me.TextBox1.Text.Substring(0, 8)
f = Me.TextBox1.Text.Length - 8
c = Me.TextBox1.Text.Substring(8, f)
Me.TextBox1.Text = b + "0" + c
If Me.TextBox1.Text.Length = 10 Then
Exit Sub
End If
End If
End If
پاسخ با نقل قول