textbox tarih hatası

[sirkülasyon]

Private Sub TextBox12_Change()
If Len(TextBox12.Text) = 2 Then TextBox12.Text = TextBox12.Text & "."
If Len(TextBox12.Text) = 5 Then TextBox12.Text = TextBox12.Text & "."
If Len(TextBox12.Text) = 10 Then TextBox12.SetFocus
End Sub

düzgün tarih te girilse anlamsız (22.22.2222 gibi) tarihte girilse kabul ediliyor. Bu durumun düzeltilmesini nasıl yapabilirim?

 

[Saban Sertkaya]

Merhabalar,

Şöyle deneyebilirsiniz.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1) > 10 Or Not IsDate(TextBox1) Then
MsgBox "Hatalı giriş yaptınız"
TextBox1 = ""
Exit Sub
End If

TextBox1 = Format(TextBox1, "dd.mm.yyyy")

If CDate(TextBox1) > "31.12.2020" Or CDate(TextBox1) < "01.01.2020" Then
MsgBox "Tarih aralığı 2020 yılı içinde olmalıdır."
TextBox1 = ""
Exit Sub
End If
End Sub