Question

我使用visual basic 6.0 我试图自动填写表格。 text9.text作为注册日期和text10.text和到期日期。我想在text3.text中添加1年：格式化$（现在，＆＃34;，mmmm dd，yyyy＆＃34;）输出将是这样的例子：2013年12月15日（今天是今天）text2.text 有没有什么方法可以产生一个uotput：2014年12月15日到textbox10.text与text9.text相同的形式？这个代码即时使用：

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

到期日期时间戳为字符串

1 个答案: