Textbox Tarih Maskesi Oluşturma

Aşağıdaki şekilde de kullanabilirsiniz.

İkinci ve beşinci karakterlerden sonra noktalama yapar.

mgokmen' Alıntı:

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(3 satır)

Bunu deneyebilirsiniz

Genişletmek için tıklayın ...

Private Sub TextBox11_Change()
If Len(TextBox11) = 2 Then
TextBox11 = TextBox11 & "."
End If
If Len(TextBox11) = 5 Then
TextBox11 = TextBox11 & "."
End If
End Sub

Bu şekilde tamamlamış bulunmaktayım. Sorunum çözüldü ok teşekkür ederim, emeğinize sağlık.