Textbox Tarih Formatı (01.01.0025) yazınca 2025 oluyor

[Ongun]

Herkese selamlar,

Arkadaşlar, textbox`a tarih formatı koydum. Hatalı tarih girişi yapılınca uyarsın istiyorum. Ancak, 01.01.0025 olarak veya 01.01.0205 olarak yazınca uyarı vermiyor, oysa uyarması lazım.

Ne yapmam lazım. Örnek dosya gönderiyorum. Yardımcı olursanız sevinirim. Saygılarımla. :hey:

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:94c9acb006]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Right(TextBox1.Value, 4) >= 2000 Then
TextBox1.Value = Format(TextBox1.Value, "dd""/""mm""/""yyyy")
Else
MsgBox "hatalı"
End If
End Sub[/vb:1:94c9acb006]

 

[Ongun]

Sayın leventm, ilginize çok teşekkür ederim.

Verdiğiniz kodu denedim ve aşağıdaki şekilde diğişiklik yaptım yıl sorunum çözüldü.

If Right(TextBox1.Value, 4) >= 1995 And Right(TextBox1.Value, 4) <= 2010 Then

Ancak, bu defa gün ve ay hatalı girilirse, uyarı vermiyor. Bu konuda yardımcı olabilirmisiniz. Saygılarımla

 

[Ongun]

Arkadaşlar çalışmalarınızda başarılar dilerim.

Ekli örnek dosyadaki kodları incelerseniz, tarih girerken ayraç kullanmıyorsunuz. Daha da önemlisi hatalı giriş yaptıysanız gün, ay ve yıl girişlerinde uyarı veriyor. Ancak, ay girişinde en fazla 12 olarak yazılması gerektiği halde 13,14,31`e kadar hata vermiyor. Oysa hatalı giriş yapıldığı uyarısı vermesi lazım.

Bu kodu sitemizde buldum ve üzerinde çalışıyorum. Amacım daha kullanışlı hale getirmek.

Bu konuda yardımcı olursanız sevinirim. Saygılarımla