DTPicker1 ve Calendar1 = TextBox

[teksen]

Arkadaşlar merhaba,

DTPicker1 den seçtiğim tarihin TextBox1 e Calendar1 den seçtiğim tarihinde TextBox2 ye yazması için nasıl bir kod kullanmamız gerekir acaba?

 

[Necdet]

Merhaba,

Private Sub DTPicker1_Change()
TextBox1.Value = Format(DTPicker1.Value, "dd.mm.yyyy")
End Sub

Private Sub Calendar1_Click()
TextBox2.Value = Format(Calendar1.Value, "dd.mm.yyyy")
End Sub

 

[teksen]

Bu şekilde çalışıyor.

Teşekkür ederim,elinize sağlık.