如何更改vb.net日期的年份部分

Question

我怎样才能改变约会的年份部分？

因此,如果用户选择3/10/2009,我希望当前等于3/10/2011

 Dim current1 As Date
    current1 = TextBox1.Text
    current1.Year = Now.Year

Answer 1

date1 = DateTime.Parse(TextBox1.Text)

current1 = new Date(Now.Year, date1.Month, date1.Day)