Tarih formatı... TextBox1 = Format

[hyilmaz076]

Arkadaşlar,
formda bulunan 3 adet textbox'a tarih formatı oluşturmayı deniyorum...

Private Sub UserForm_Initialize()
TextBox1 = Format(TextBox1, "dd""/""mm""/""yyyy")

ile

CLng(CDate(TextBox2.Value))
denedim ama olmadı... nerde hata yapmış olabilirim

 

[Levent Menteşoğlu]

Formatı textboxın exit olayına yazın.

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

 

[hyilmaz076]

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

sayın leventm teşekkür ederim... bu işe yaradı peki şimdi girişi 01.01.2005 şeklinde yaparsam / işaretini yapabiliyor ama 01012005 girdiğimde kendisinin oluşturması mümkünmü?

 

[Levent Menteşoğlu]

Textboxa sadece 1-5 yazmanızda yeterlidir.

 

[hyilmaz076]

sevgili leventm;
önce teşekkür ederim ilgine.. şimdi textbox'ta tarih formatında sorun kalmadı tarih 01/05/2005 olarak kaydediyor ancak bunu excel hücresinde kontrol ettiğimde gün ve ayın yer değiştirdiğini görüyorum 01.05.2005 olması gereken hücre 05.01.2005 olarak kaydetmiş görülüyor, ne yapabilirim sizce.

 

[danersin]

Hücreyi formatını değiştirerek bundan kurtulabilirsiniz. Manüel yada makro ile.

 

[hyilmaz076]

Sanırım çözüm şu olsa gerek..

TextBox1 = Format(TextBox1, "dd""/""mm""/""yyyy") yerine
TextBox1 = Format(TextBox1, "dd"".""mm"".""yyyy") yazdırınca sorun çözülüyor gibi yanılıyormuyum!