유효 기간 날짜를 문자열로

Question

내 시각 기본 6.0을 사용합니다. Im은 자동으로 양식을 채우려고합니다. text9.text는 등록 날짜와 text10.text 및 만료 날짜입니다. text3.text에 1 년을 더하고 싶습니다. 형식 $ (지금, "mmmm dd, yyyy") 출력은 다음과 같습니다. 2013 년 12 월 15 일 (오늘 날짜 오늘) text2.text에 2014 년 12 월 15 일부터 text9.text와 같은 형식으로 textbox10.text에 uotput을 생성 할 수있는 방법이 있습니까? 이 코드 메신저 사용 :

Private Sub Form_Load() 

    Call connect 
    query = "Select * from Taxi" 
    rsglob.Open query, connglob 

    If rsglob.BOF = True Then 
     Exit Sub 
    Else 
     Text1.Text = "" 
     Text2.Text = "" 
     Text3.Text = "" 
     Text4.Text = "" 
     Text5.Text = "" 
     Text6.Text = "" 
     Text7.Text = "" 
     Text8.Text = "" 
     Text9.Text = Format$(Now, "mmmm dd, yyyy") (out put is: December 15, 2013) 
     Text10.Text = Format$(Now, ", mmmm dd, yyyy") (Is there any way I make it here as: (December 15, 2014) ? 
    End If 

    Call Gen_ID(Text1) 

End Sub 

Answer 1

사용 DateAdd 함수 기능

http://www.vb6.us/tutorials/understanding-vb6s-dateadd-function

DateAdd("yyyy", 1, Now) 


Text10.Text = Format$(DateAdd("yyyy", 1, Now), ", mmmm dd, yyyy")