TextBox a Calendar dan tarih atayınca formatı nasıl deği

[a_self_lion]

Selam Arkadaşlar Basit bir proplemim var yardımcı olursanız sevinirim..

bir Textbox a Calendardan tarih değeri aktarırken bana
ay gün yıl olarak aktarıyor ve arasına da / işareti koyuyor benim istediğim
gün ay yıl olarak aktarması ve arasınada nokta . işareti koyması nasıl yapılır yardım ederseniz sevinirim...

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:9cfc366376]Textbox1=format(calendar1,"dd.mmmm.yy")[/vb:1:9cfc366376]

 

[a_self_lion]

Çok Teşekkür ederim Sayın Leventm

 

[excel_haso]

Merhaba arkadaşlar,

Benim de bir textbox a calendar dan tarihi getiriyorum.

Private Sub TextBox1_Change()
TextBox1 = Format(Calendar1, "dd/mm/yyyy")
End Sub

Private Sub TextBox2_Change()
TextBox2 = Format(Calendar2, "dd/mm/yyyy")
End Sub

ilgili textboxlara tarih istediğim gibi geliyor. Fakat ordan hücrelere göderdiğimde, hücre tarih formatlarını "dd/mm/yyyy" yapmama rağmen "mm/dd/yyyy" oluyor ne yapmam gerekiyor.

Private Sub CommandButton1_Click()
If TextBox1 = "" Then
    TextBox2 = ""
    MsgBox "İZİNDE OLDUĞUNUZ İLK TARİHİ GİRİNİZ"
    TextBox1.SetFocus
    Exit Sub
End If
If TextBox1 = Date Then
    TextBox2 = ""
    MsgBox "İZİNDE OLDUĞUNUZ SON TARİHİ GİRİNİZ"
    TextBox2.SetFocus
    Exit Sub
End If
If DateDiff("d", TextBox1, TextBox2) < 1 Then
    TextBox2 = ""
    MsgBox "SON İZİN GÜN TARİHİ İZİNDE OLDUĞUNUZ İLK TARİHDEN KÜÇÜK OLAMAZ"
    TextBox2.SetFocus
    Exit Sub
End If
Range("D19").Value = TextBox1.Value
Range("d21").Value = TextBox2.Value
Range("d17").Value = ComboBox1.Value
Range("D23").Value = TextBox5.Value

'TextBox2.Value = Format(TextBox2, "dd/mm/yyyy")


TextBox4 = Worksheets("form").Range("h17")

 

[Orion1]

Merhaba.
Aşağıdaki şekilde denermisiniz.

Range("D19").Value = CDate(TextBox1.Value)
Range("d21").Value = CDate(TextBox2.Value)
Range("D19").NumberFormat = "dd/mm/yyyy"
Range("D21").NumberFormat = "dd/mm/yyyy"

 

[excel_haso]

Çok teşekkür ederim işlem tamam