textbox un change olayında tarih formatı

[mecnun24_]

textbox un change olayına hangi kodu yazmalıyımki veri girmeye başlayınca otamatik nokta virgül koymadan kendi 18.12.2008 vs gibi yazsın. şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Tarihi 6 haneli ve bitişik olarak (010109 gibi) yazmanız kaydıyla aşağıdaki gibi deneyin.

Private Sub TextBox1_Change()
If Len(TextBox1) = 6 Then TextBox1 = Format(Format(TextBox1, "00"".""00"".""00"), "dd mmmm yy")
End Sub

 

[mecnun24_]

levent bey çok teşekkürler ilginize dd mmmm yy aralarına noktayıda koyunca tam istediğim gibi oldu.tşkrler..