截止日期时间戳使用字符串

Question

林的Visual Basic 6.0 我试着去自动填写自己的状态。 text9.text作为注册日期和text10.text和截止日期。 我想1年增加text3.text： 格式$（现在，“MMMM DD，YYYY”）的输出会是这样，例如：2013年12月15日，（这是今天日期）上text2.text 有没有什么办法可以产生的uotput：2014年12月15日起在相同的形式text9.text一个textbox10.text？ 这使用的代码IM：

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")