textbox ta tarih görüntüsü

[ugurakin]

userform da iki adet textbox umuz var, bu textboxlara tarih gireceğiz, örneğin textboxlara 26/8 yazıp enter e bastığımızda 26/08/2005 görünmesini sağlayabilir miyiz?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:e1798d952a]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "dd""/""mm""/""yyyy")
End Sub
[/vb:1:e1798d952a]

 

[ugurakin]

ok.
kolay gelsin.

 

[mraltin]

Sn.Leventm Ayni kodu
Private Sub r_baslangic_Exit(ByVal Cancel As MSForms.ReturnBoolean)
r_baslangic = Format(r_baslangic, "dd""/""mm""/""yyyy")
End Sub
gibi kendi calismama uyarladim.
Fakat;textboxa 01012005 girdigimde tarih=09/10/4670 oluyor.neden acaba?

 

[Levent Menteşoğlu]

01012005

Bu şekilde bitişik yazarsanız hata verebilir. 1-1 şeklinde yazarak deneyin.

 

[mraltin]

Tesekkurler Sn.Leventm
Birlesik yazip bu formata donusturmek mumkun mu acaba?

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:17009c9b77]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1) < 8 Then
MsgBox "En az sekiz rakam yazılmalıdır"
Exit Sub
End If
tar = Left(TextBox1, 2) & "." & Mid(TextBox1, 3, 2) & "." & Right(TextBox1, 4)
TextBox1 = Format(tar, "dd""/""mm""/""yyyy")
End Sub
[/vb:1:17009c9b77]