Tetbox'da tarih konusunda yardım

[fatih34]

Hocalarım çalışma aşağıda vermiş olduğum kodu uyguladım. 11.03.2013 diye yazdığımda otomatik olarak ayırıyor.
Direk 11032013 yazdığımda tarihi kendi otomatik olarak ayırması için ne yapmam lazım?

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Right(TextBox2.Value, 4) >= 2000 Then
TextBox2.Value = Format(TextBox2.Value, "dd""/""mm""/""yyyy")
Else
MsgBox "hatalı"
End If
End Sub

 

[asi_kral]

Merhaba

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox2) = 8 Then
TextBox2 = Left(TextBox2, 2) & "." & Mid(TextBox2, 3, 2) & "." & Right(TextBox2, 4)
End If
End Sub

Bu kodu dener misiniz_?

 

[fatih34]

hocam ilginize teşekkür ederim. Kodu denedim ancak
10.03.2013 yazdığımda 10.03. veya 10.0 çıkıyor.

 

[asi_kral]

hocam ilginize teşekkür ederim. Kodu denedim ancak
10.03.2013 yazdığımda 10.03. veya 10.0 çıkıyor.

Üstteki kodu güncelledim.

 

[fatih34]

10.03.2013 olark girdiğimde sorun olmuyor ancak 10032013 bitişik olarak yazdığımda 10.03 yazıyor devamını yazmıyor

 

[asi_kral]

10.03.2013 olark girdiğimde sorun olmuyor ancak 10032013 bitişik olarak yazdığımda 10.03 yazıyor devamını yazmıyor

Küd güncelemesi yapıldı.