TextBox'ı tarih formatına zorlama

[crion]

Selamlar ve herkese iyi bayramlar.

Kısa ve öz bir sorum var, bir textbox'a tarih giriyorum ve girdiğim değeri otomatik olarak tarih formatına çevirmesini istiyorum GG.AA.YYYY olarak. Bunun için

Dim myDate As Date = Now
    TextBox3.Text = Format(myDate, "dd.mm.yyyy")

kullandım ancak bu şekilde ya girdiğim tarih kaydolmuyor ya da ne tarih girersem gireyim 31.12.1899 gibi abuk bir tarih beliriyor kaydın içinde. Benim istediğim ben 26/12/2011 şeklinde bile yazsam bunun 26.12.2011'e otomatik olarak dönüşmesi. Yardımlarınız için şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz. Texbox'a tarihi

[LIST]
[*]1/3/11
[*]1-3-11
[*]1-3/11
[*]1/3-11
[*]1.3.11
[/LIST]

şeklinde giriş yapabilirsiniz, çıkışta

01.03.2011

biçime dönüştürülür.

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
    TextBox3.Value = Format(CDate(TextBox3.Value), "dd.mm.yyyy")
 
End Sub

Private Sub UserForm_Initialize()
 
    Dim myDate As Date
    myDate = Now
    TextBox3.Value = Format(myDate, "dd.mm.yyyy")
 
End Sub

 

[onurcan1979]

Selamlar ve herkese iyi bayramlar.

Kısa ve öz bir sorum var, bir textbox'a tarih giriyorum ve girdiğim değeri otomatik olarak tarih formatına çevirmesini istiyorum GG.AA.YYYY olarak. Bunun için

Dim myDate As Date = Now
    TextBox3.Text = Format(myDate, "dd.mm.yyyy")

kullandım ancak bu şekilde ya girdiğim tarih kaydolmuyor ya da ne tarih girersem gireyim 31.12.1899 gibi abuk bir tarih beliriyor kaydın içinde. Benim istediğim ben 26/12/2011 şeklinde bile yazsam bunun 26.12.2011'e otomatik olarak dönüşmesi. Yardımlarınız için şimdiden teşekkürler.

Ben bu formatı kullanıyorum. bide bunu deneyin

Private Sub TextBox8_Change()
If Len(TextBox8) = 2 Then TextBox8.Text = TextBox8.Text & "."
If Len(TextBox8) = 5 Then TextBox8.Text = TextBox8.Text & "."
End Sub

 

[Orion1]

aşağıdaki gibi deneyiniz.

TextBox1.Text = Format(Date, "dd\.mm\.yyyy")