macroda hatamı nasıl düzeltebilirim.

[drseref]

Private Sub DTPicker1_Change()
TextBox1 = DTPicker1 + 0
TextBox1 = Format(TextBox1, "dd.mm.yyyy")
TextBox2 = DTPicker1 + 29
TextBox2 = Format(TextBox2, "dd.mm.yyyy")
TextBox3 = DTPicker1 + 30
TextBox3 = Format(TextBox3, "dd.mm.yyyy")
TextBox4 = DTPicker1 + 59
TextBox4 = Format(TextBox4, "dd.mm.yyyy")
End

macrosunda
DTPicker1 da seçtiğim tarih

TextBox hesaplamalarında ay ve gün yer değiştirmiş şeklinde hesaplama yapıyor.

 

[Mehmet Şahin]

Merhaba,

Private Sub DTPicker1_Change()
TextBox1 = Format(DTPicker1 + 0, "dd.mm.yyyy")
TextBox2 = Format(DTPicker1 + 29, "dd.mm.yyyy")
TextBox3 = Format(DTPicker1 + 30, "dd.mm.yyyy")
TextBox4 = Format(DTPicker1 + 59, "dd.mm.yyyy")
End Sub

şeklinde değiştirerek deneyiniz. Kolay gelsin.

 

[drseref]

çok tşk ederim.
şimdi oldu.

 

[Mehmet Şahin]

Rica ederim.