vb.net - 当日值 <10 时，AddYear 不起作用

Question

我遇到以下问题：我有 2 个文本框被屏蔽为ShortDate. 当我将日期插入第一个文本框时，我需要第二个文本框来显示 2 年后的日期。

例如，如果我输入 10/08/2013，则第二个框应显示 10/08/2014。

这是代码：

Private Sub txtAcquired_LostFocus(sender As Object, e As EventArgs) Handles txtAcquired.LostFocus
    Dim Acquired As Date
    Acquired = txtAcquired.Text
    txtDisposal.Text = Acquired.AddYears(2)
End Sub

当日期的日期值大于 9 时它工作正常，但是当我将日期值在 1 和 9 之间时它不起作用，例如，如果我输入 04/04/2011，第二个框显示 40/42/013_。

如果有人可以帮助解决这个问题，那将不胜感激。

Answer 1

返回的日期有问题。这解决了它。

Private Sub txtAcquired_LostFocus(sender As Object, e As EventArgs) Handles txtAcquired.LostFocus
    Dim Acquired As Date
    If Date.TryParse(txtAcquired.Text, Acquired) Then
      txtDisposal.Text = Acquired.AddYears(2).ToString("MM/dd/yyyy")
    End If
End Sub