Textboxda ileri tarih atmada yardım

[fatih34]

herkeze hayırlı akşamlar, çalışmama textbox'a girdiğim tarihin 2 yıl sonra ileriye atması için formadki örneklere göre kendi çalışmama uyarlamaya çalıştım ancak beceremedim bu konuda bir yardım ederseniz sevinirim.

Private Sub TextBox2_Change()
TextBox6.Value = CDate(TextBox2.Value) + 730 kodu bu şekilde ayarladım. Örnek olarak 07.03.2013'ü textboxsa girdiğim de Textbox6'ya 03.07.2015 olarak atıyor.

Textbox2'ye 07.03.2013 giridğimde Textbox6'ya 07.03.2015 olarak nasıl yazdırırm.Sürçü yisan ettiysem kusura bakmayın

 

[dEdE]

Merhaba,
Şöyle olabilir.

TextBox6.Value = Format(CDate(TextBox2.Value) + 730, "dd.mm.yyy")

şöyle de olabilir.

TextBox6.Value = Format(DateSerial(Year(TextBox2.Value) + 2, Month(TextBox2.Value), Day(TextBox2.Value)), "dd.mm.yyyy")

 

[dEdE]

Sayın fatih34,
Bir de aşağıdaki linke bakın.

http://www.excel.web.tr/showpost.php...72&postcount=3

 

[fatih34]

hocam teşekkür ederim. Vermiş olduğunuz kodu uyguladım ve istediğim sonucu verdi.