Textbox tarih formatı

[erkan_hakan]

Arkadaşlar herkese kolay gelsin

(gönüllü üyelerede şimdiden başarılar) :hey:

tarih formatı ile ilgili sorunum var. Textboxa tarihi takvimden aldırıyorum ama ayın 1 ile 13 arası tarihleri mesela 08.01.2005 ayın 14 ile 31 arası tarihleri normal yani 14.08.2005 alıyor kullandığım kod aşağıdaki gibi bunu nasıl çözebilirim
Private Sub tarih_Change()
tarih = Format(tarih, "dd"".""mm"".""yyyy")
End Sub
:kafa:

 

[Mahmut Bayram]

2 tane örnek veriyorum hangisi sana uygunsa onu kullan.

 

[erkan_hakan]

TextBox Tarih Formatı

Mahmut öncelikle iyi geceler dilerim
Vermiş olduğunuz iki örnekteki kodları inceledim ve uyguladım ama değişen birşey yok aynı sorun devam ediyor. :hey:
ekte size örnek gönderiyorum acaba benim sistemdemi tuhaflık var

Kolay gelsin

 

[Korhan Ayhan]

Selamlar,

Bende bu konuyla ilgili sıkıntı yaşamıştım aşağıdaki kodlarla bu problemi aşmıştım umarım işinize yarar.

Private Sub Calendar1_Click()
TextBox1.Value = Calendar1.Value * 1
Calendar1.Visible = False
TextBox1 = Format(TextBox1, "dd.mm.yyyy")
TextBox2.SetFocus
End Sub

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

Private Sub UserForm_Initialize()
TextBox1 = Date * 1
TextBox1 = Format(TextBox1, "dd.mm.yyyy")
Calendar1 = Date * 1
Calendar1 = Format(Calendar1, "dd.mm.yyyy")
Calendar1.Visible = False
TextBox1.SetFocus
End Sub

 

[erkan_hakan]

ellerine sağlık costcontrol kodlar tam uydu

Hayırlı geceler k::