Tarih Format Sorunu

[oerbas]

Tüm Form üyelerine selam ve sevgilerimle;
Arkadaşlar Userform intialize ve TextBox Change olayına aşağıdaki format kodu yazıldığı halde TextBox'a gelen tarih gün ay yıl olarak değilde ay gün yıl olarak geliyor. Bu durum bir ara düzeldi ama şimdi yine ay gün yıl olarak geliyor. Sorunu analayamadım, nasıl çözebilirim. Yardımcı olursanız çok sevinirim.

işbaşıtar = Format(işbaşıtar, "dd.mm.yyyy")

 

[oerbas]

NOT: Bilgisayarın tarihini 20/04/2007 olarak değiştirdiğimde durum düzeliyor. bugünün tarihi olan 05/04/2007 (beş nisan 2007 ) aldığımda 04.05.2007 olarak gün hanesi ile ay hanesi ters çevriliyor.

 

[Orion1]

Merhaba.
Format kodunu Textbox'ın exit olayına yazıp denermisiniz?

 

[Orion1]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(işbaşıtar, "dd.mm.yyyy")
End Sub

 

[oerbas]

Sayın Sezar TextBox Change olayını Form Activate ve İntialize olayına vs. sizinde verdiğiniz tarih formatı kodunu yazdım ama sebebini anlayamadığım bir şekilde ay ve gün ters çevriliyor. yani gün ay yıl yerine ay gün yıl oluyor. Örneğin bugünün tarihi 06 NİSAN 2007 İSE Tarih 04 HAZİRAN 2007 Oluyor. Lutfen yardım

 

[dEdE]

Mrb.,
4 yıldır hiç sorun çıkarmadan çalışan Excel üzerindeki UserForm 1-2 aydır sapıtmaya başladı. Tıpkı Sayın oerbas gibi. Onun yaşadığı sorunların aynısını yaşıyorum.
UserForm üzerinden veri girişinde textboxun exit olayı ile sorunu çözdüm. Excel sayfasına istediğim formatta (dd.mm.yyyy) veri aktarabiliyorum. Burada bir sorun yok.
Excel sayfasından okunan veri textbox a aktarılınca sorun başlıyor(dört yıldır yoktu). Burada textbox u ;
txtdogumT = Format(txtdogumT, "dd.mm.yyyy")
koduyla biçimlendiriyorum ama sonuç değişmiyor.
Örn. Bugün 10.04.2007 tarihi yukarıdaki koda karşın 04.10.2007 olarak görünüyor. Bu kod satırının işlem görmediğini düşünerek format kodunun yanına bir adet x karakteri koyarak kontrol ettim. İşlem görüyor.

Bu durumda sorun ne olabilir?

Saygılar.

 

[Qene]

TextBox1.Text = Format(Range("A1").Value, "dd.mm.yyyy")

Yapınca bende gayet güzel aldı.. Dener msiniz?

 

[dEdE]

Teşekkürler.