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

当日期的日值为＆gt;时，它可以正常工作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

当日值<10时，AddYear不起作用

1 个答案: