如何使textbox显示提前或者退后一个月份

Question

如题～
我想根据combobox的选项改变，如果之前是2002-2-2，选择提前一个月，textbox怎么才能显示为2002-1-2
格式怎么样的？

Answer 1

Private Sub Command1_Click()
'显示上个月。
    Combo1.Text = DateSerial(Format(Date, "YYYY"), Format(Date, "MM") - 1, Format(Date, "DD"))
End SubPrivate Sub Form_Load()
    Combo1.Text = Date
End Sub

Answer 2

textbox.text=dateadd("m",-1,"2002-2-2")

Answer 3

Dim DtTemp As Date
    DtTemp = combo1.Text
    Text2 = Format(DateAdd("M", -1, DtTemp), "yyyy-MM-dd")你自己需要保证COMBO中格式为合法的时间格式

Answer 4

textbox.text=dateadd("m",-1,"2002-2-2")   '提前一个月 2002-1-2
textbox.text=dateadd("m",1,"2002-2-2")    '后一个月  2002-3-2

Answer 5

Text1.Text = DateAdd("m", -1, "2002-2-2")
Text2.Text = DateAdd("m", 1, "2002-2-2")