Textboxtaki tarihe yıl eklemek

[memduh]

Değerli Forum Yöneticileri öncelikle sizi tebrik eder bu yeni yüzün hayırlı olmasını dilerim. soum textbox1 de bulunan tarihin (01.01.2005) commandbuttunla textbox2 ye 1 yıl ekleyerek yani 01.01.2006 yazacak şekilde kod istiyorum. saygılar sunarım

 

[zafer]

Merhaba

Private Sub CommandButton1_Click()
TextBox2 = CDate(TextBox1) + 365
End Sub

 

[class37]

Merhaba
Private Sub CommandButton1_Click()
TextBox2.Value = Format(Day(TextBox1.Value) & "/" & Month(TextBox1.Value) & "/" & Year(TextBox1.Value) + 1, "dd/mm/yyyy")
End Sub

 

[veyselemre]

TextBox2 = Format(DateAdd("yyyy", 1, TextBox1), "dd.mm.yyyy")