Tarih girişini denetleme hk.

[mumugul]

Merhaba,

Bir Textbox' a ya da bir Combobox' a anlamlı bir tarih girildiğini nasıl denetleyebiliriz, yardımcı olur musunuz?

Saygılarımla...

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodlar ile denetleyebilirsiniz.

Sub TarihmiDegilmi()
    If IsDate(TextBox1.Text) Then
        MsgBox "Tarih girdiniz."
    Else
        MsgBox "Tarih girmediniz."
    End If
End Sub

 

[alicimri]

Aşağıdaki kod işinize yarayabilir.

Private Sub TextBox1_Change()
If Len(TextBox1.Value) = 10 Then
If Mid(TextBox1.Text, 4, 2) < 13 And IsDate(TextBox1.Text) Then
Else
MsgBox "Tarih geçerli değil."
End If
End If
End Sub

 

[mumugul]

Teşekkürler...