text_start_date.Text = New Date(Val(text_yaer.Text), Val(text_month.Text), Val(text_day.Text)).ToString("d-M-yyy")
text_end_date.Text = CDate(text_start_date.Text).AddYears(Val(text_duration.Text)).ToString("d-M-yyy")
text_end_date.Text = CDate(text_end_date.Text).AddDays(-1).ToString("d-M-yyy")
text_end_date.Text = CDate(text_start_date.Text).AddYears(Val(text_duration.Text)).ToString("d-M-yyy")
text_end_date.Text = CDate(text_end_date.Text).AddDays(-1).ToString("d-M-yyy")
