textbox a yazarken tarih formatı

[erkanmandm]

textbox a veri girerken (12/02/2008 şeklinde) tarih formatına çevrilmesi için hangi event a hangi kodu yazmalıyım? teşekkürler

 

[Orion1]

Windows'un bölgesel ayrlarından tarihe girip ,istediğniz şekilde biçimlendirmelisiniz.

 

[erkanmandm]

Windows'un bölgesel ayrlarından tarihe girip ,istediğniz şekilde biçimlendirmelisiniz.

cevap için teşekkürler,
ben özellikle (../../...) formatında istemiyorum (12.02.2008) şeklinde de olabilir ayrıca belli bir tarihe örneğin 5 ay eklemek için gereken kod nedir? teşekkürler

 

[Orion1]

Private Sub CommandButton1_Click()
MsgBox DateAdd("m", 5, Date)
End Sub

Userforma bir buton ekleyin.
Yukarıdaki kodu bir butonda kullanın günün tarihine 5 ay ekler.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox1.Value = Format(TextBox1.Value, "dd.mm.yyyy")
End Sub

Yukarıdaki kodu userform'a yapıştırın
Textbox'tan çıkarken tarih şeklinde biçimlendirme yapar.

 

[erkanmandm]

arkadaşlar hala yazarken ../../.... formatına otomatik çevirmiyor. bunu nasıl sağlarız?

 

[karagöz55]

EVREN GİZLEN BEY'e
Yukarıdaki tarih format bilgilerinden dolayı teşekkürler
Gerçekten Evren bey bu işi biliyor.
Başarılarının devamını dilerim

 

[karagöz55]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox1.Value = Format(TextBox1.Value, "dd.mm.yyyy")
End Sub

Bu formülle texbox'a yeni bir tarih girince herhangi bir sorun çıkmıyor, ancak excel sayfasında daha önceden girilen tarihler varsa gün hanesi 12'den büyük olanlarda da bir sorun yok, fakat gün hanesi 12 ve daha küçükse bunu ay hanesine çeviriyor, Mesela 13.3.2008 şeklinde daha önce girilmişse sorun yok
fakat 12.3.2008 şeklinde girilmişse bu veri texbox'dan geçtikten sonra 3.12.2008 şekline dönüşüyor.

bunun mutlaka bir çaresi vardır ama bulamadım, yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[Orion1]

Denetim masasından bölgesel ayarlardan Tarih formatını Türkçe windows için gg.aa.yyyy yapın,ingilizce sürüm için dd.mm.yyyy yapınız.

 

[karagöz55]

EVREN GİZLEN BEY'E İLGİSİNDEN DOLAYI TEŞEKKÜRLER
Ancak benim sorunum hala çözülebilmiş değil.
Çünkü User form'da yeni bir form oluşturdum. Bu form üzerinden girdiğim verilerde herhangi bir sorun çıkmıyor. Ancak form oluşturmadan önce girdiğim verilerde yukarıda anlattığım sorun devam ediyor Örnek dosya gönderiyorum, Yardımı olacak arkadaşlara şimdiden teşekkürler

 

[kuzucuk6]

ActiveCell.Offset(0, 2).Value = CDate(TextBox2.Text) ben texbox2 ye tarih giriyorum kendine göre düzeltirsin