0

次の問題があります: にマスクされた 2 つのテキスト ボックスがありShortDateます。最初のテキスト ボックスに日付を挿入すると、2 年後の日付を表示するには 2 番目のテキスト ボックスが必要です。

たとえば、10/08/2013 と入力すると、2 番目のボックスには 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 の間に入れると機能しません。

誰かがこの問題を解決できるなら、それは大歓迎です。

4

1 に答える 1

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
于 2013-08-23T01:05:27.387 に答える