일 값이 <10 일 때 AddYear가 작동하지 않습니다.

Question

다음 문제가 있습니다. ShortDate에 마스크 된 2 개의 텍스트 상자가 있습니다. 첫 번째 텍스트 상자에 날짜를 삽입하면 2 년 후에 날짜를 표시하는 두 번째 텍스트 상자가 필요합니다.

예를 들어 10/08/2013을 입력하면 두 번째 상자에 2014 년 10 월 8 일이 표시됩니다. 여기

코드입니다 :

이

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